Rubrik: Datenbanken · DAO | VB-Versionen: VB4, VB5, VB6 | 09.02.01 |
Unser heutiger Tipp demonstriert, wie alle in einer Access-Datenbank gespeicherten Tabellen ermitteln werden können - ohne jedoch die System-Tabelle zu berücksichtigen. Die ermittelten Tabellennamen werden im nachfolgenden Beispiel in einem ListBox-Steuerelement angezeigt.
Public Sub ZeigeAccessTab(ByVal dbFile As String)
' dbFile: vollständiger Dateiname inkl.
' Pfadangabe zur MDB-Datei
Dim Db As Database
Dim TabDef As TableDef
Set Db = OpenDatabase(dbFile)
With Db
For Each TabDef In .TableDefs
If UCase$(Left$(TabDef.Name, 4)) <> "MSYS" Then
List1.AddItem TabDef.Name
End If
Next
End With
Db.Close
Set Db = Nothing
End Sub