Supportnet / Forum / Datenbanken
VB6/DAO : Alle Tabellen eine Datenbank anzeigen lassen
Frage
Hallo, ich möchte in VB6 einen Viewer für MDB-Datenbanken programmieren. Dazu soll eine Auswahl aller Tabellen nach dem Öffnen der Datenbank gezeigt werden.
Ich habe jedoch kein Property gefunden, dass die Tabellen einer Datenbank darstellt. Kann mir einer helfen?
Antwort 1 von Teddy7
Hallo Dirk !
Vielleicht hilft Dir das schon:
-------------------------
Private Sub Befehl10_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
MsgBox tdf.Name
Next
End Sub
----------------
Gruß
Teddy
Vielleicht hilft Dir das schon:
-------------------------
Private Sub Befehl10_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
MsgBox tdf.Name
Next
End Sub
----------------
Gruß
Teddy
Antwort 2 von Marie
hm, ich glaube nicht. Wenn er von VB6 aus die Tabellen auslesen will ist ihm mit Set db=CurrentDb nicht gedient :-)
Oder habe ich was falsch verstanden?
Gruß Marie
Oder habe ich was falsch verstanden?
Gruß Marie