Rubrik: Datenbanken · ADO | VB-Versionen: VB5, VB6 | 29.10.02 |
Tabellen einer Access-Datenbank ermitteln (ADO) Dieses Beispiel zeigt, wie sich in Verbindung mit ADO alle Tabellen einer Access-Datenbank ermitteln lassen. | ||
Autor: Dieter Otter | Bewertung: | Views: 31.459 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Unser heutiger Tipp zeigt, wie Sie unter Verwendung von ADO alle Tabellen einer Access-Datenbank ermitteln können. Die einzelnen Tabellen werden hierbei in einer ListBox angezeigt.
Setzen Sie zunächst einen Verweis auf die Microsoft ActiveX Data Objects 2.5 Library (Komponenten - Verweise) und ziehen dann eine ListBox, sowie einen CommandButton auf die Form.
Private Sub Command1_Click() Dim oConn As New Connection Dim oRs As Recordset With oConn ' Provider: Access 2000/XP .Provider = "Microsoft.Jet.OLEDB.4.0" ' Pfad zur Access-Datenbank .Properties("Data Source") = "c:\db\datenbank.mdb" ' Cursor-Location .CursorLocation = adUseClient ' Connection öffnen .Open ' Recordset über Tabellen-Schema erstellen Set oRs = .OpenSchema(adSchemaTables) ' Recordset durchlaufen und alle Tabellen auflisten Do Until oRs.EOF If oRs("TABLE_TYPE") = "TABLE" Then List1.AddItem oRs("TABLE_NAME") End If oRs.MoveNext Loop End With ' Recordset und Connection schließen oRs.Close oConn.Close End Sub