Rubrik: Datenbanken · ADO | VB-Versionen: VB5, VB6 | 17.12.04 |
Unser heutiger Tipp zeigt, wie Sie unter Verwendung von ADO Ext. 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.x Library, aktivieren weiterhin noch den Eintrag Microsoft ADO Ext. 2.x for DDL and Security (Komponenten - Verweise) und ziehen dann eine ListBox, sowie einen CommandButton auf die Form.
Private Sub Command1_Click()
Dim oConn As ADODB.Connection
Dim oCat As New ADOX.Catalog
Dim i As Long
' Connection öffnen
Set oConn = New ADODB.Connection
With oConn
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\datenbank.mdb;" & _
"Persist Security Info=False;"
End With
' aktuelle Verbindung als aktive Verbindung zuweisen
With oCat
.ActiveConnection = oConn
' ListBox löschen
List1.Clear
' alle Tabelle ermitteln und in ListBox übertragen,
' wobei Systemtabellen NICHT angezeigt werden sollen!
For i = 0 To .Tables.Count - 1
If UCase$(Left$(.Tables(i).Name, 4)) <> "MSYS" Then
List1.AddItem .Tables(i).Name
End If
Next i
End With
' Connection-Objekt schließen
oConn.Close
Set oConn = Nothing
End Sub