Microsoft Office Access 2007-Programmierung - Das Handbuch

Alle Datenbanken und deren Tabellen ermitteln

Möchten Sie den Inhalt des Servers näher analysieren, können Sie sich über die Databases- bzw. die Tables-

Collection der DMO tiefe Einblicke verschaffen:

Private Sub Test()

Dim serv As New SQLDMO.SQLServer

Dim db As New SQLDMO.Database

Dim tb As New SQLDMO.Table

Dim i As Integer, j As Integer

Verbindung öffnen:

serv.LoginSecure = True

serv.LoginTimeout = 8

serv.Connect ".\SQLEXPRESS"

Alle Datenbanken abfragen:

For i = 1 To serv.Databases.Count

Eintrag abrufen:

Set db = serv.Databases.Item(i)

Debug.Print db.Name

Alle zugehörigen Tabellen abfragen:

For j = 1 To db.Tables.Count

Set tb = db.Tables.Item(j)

Debug.Print " > " & tb.Name

Next

Next

Verbindung trennen:

serv.Disconnect

End Sub

Die Ausgabe (Auszug):

Abbildung 10.46 Abfrageergebnis

Alternativ können Sie sich auch mit SQL (View) behelfen.

673

Tipps & Tricks