Microsoft Access 2010 Programmierung - Das Handbuch

Tipps & Tricks

Alle Nutzer einer Datenbank ermitteln

Mit Hilfe der SQLDMO können Sie eine Liste aller vordefinierten Nutzer einer Datenbank ermitteln.

Oberfläche

Ein einfaches Formular, zwei Befehlsschaltflächen und ein Textfeld.

Quelltext

Private Sub Test()
Dim serv As New SQLDMO.SQLServer
Dim db As New SQLDMO.Database
Dim i As Integer

    serv.LoginSecure = True
    serv.LoginTimeout = 8

Verbinden mit dem 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

Hinweis

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

Abbildung 11.62 Abfrageergebnis

Alle registrierten Microsoft ...