Rubrik: Datenbanken · DAO | VB-Versionen: VB4, VB5, VB6 | 09.02.01 |
Alle Tabellen einer Access-Datenbank ermitteln Dieser Tipp zeigt, wie alle in einer Access-Datenbank gespeicherten Tabellen ermitteln werden können. | ||
Autor: Michael Becker | Bewertung: | Views: 44.153 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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