Problem Tabellen
03.09.2002 10:57:13
S.Hauser
Ich weiss das passt hier ned rein, aber ich find einfach nix zu dem.
Mein Problem:
Ich will alle Tabellen einer Datenbank auflisten, nur leider kommen dann auch die Systemtabellen. Wie kann ich das verhindern?
Hier der Code:
Private Sub Worksheet_Activate()
Dim i As Integer
Dim db As database
Dim test As String
lstanzeige.Clear
Set db = opendatabase("D:\test2\daten.mdb")
For i = 0 To db.TableDefs.Count - 1
test = db.TableDefs(i).Name
lstanzeige.AddItem db.TableDefs(i).Name
Next i
End Sub
Die Ausgabe sieht etwas so aus:
123
Test1
MSysQueries
MSysRelation
Vergleich
Anzeige