Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

HINWEIS

Kapitel 10: SQL Server

serv.Connect ".\SQLExpress", "sa", "tom"

Auswahl der Datenbank:

Set db = serv.Databases.Item("northwind")

Abfrage der Nutzernamen:

For i = 1 To db.Users.Count

Debug.Print db.Users.Item(i).Name

Next

serv.Disconnect

End Sub

Sie müssen natürlich die entsprechenden Rechte in der Datenbank besitzen!

Abbildung 10.44 Abfrageergebnis

Alle registrierten Microsoft SQL Server ermitteln

Auch hier helfen die DMO weiter. Mit der Methode ListAvailableSQLServers können Sie die gewünschten

Daten abrufen.

Private Sub Test()

Dim app As SQLDMO.Application

Dim mynames As SQLDMO.NameList

Dim i%

Set app = New SQLDMO.Application

Set mynames = app.ListAvailableSQLServers

For i = 1 To mynames.Count

Debug.Print mynames(i)

Next

End Sub

Abbildung 10.45 Abfrageergebnis

Damit sinnvolle Werte angezeigt werden, muss auch der SQL Server Browser-Dienst aktiviert und gestartet sein.

Bei der Express Edition ist dies per Default nicht der Fall.

672