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:     [ Jetzt bewerten ]	Views:  32.106
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 37 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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