Mit Microsoft Jet UserRoaster in Access 2000 prüfen, wer an Datenbank angemeldet ist.

Bei Verwendung von Microsoft Visual Basic für Applikationen in Microsoft Access 2000 können Sie eine Liste mit den Benutzern ausgeben, die an einer Datenbank angemeldet sind. Die Vorgehensweise ist in diesem Artikel anhand eines Beispielcodes erläutert.

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität sowie ohne Anspruch auf Support zur Verfügung. In diesem Artikel wird vorausgesetzt, dass Sie mit der in den Beispielen verwendeten Programmiersprache und mit den zum Erstellen und Debuggen von Prozeduren verwendeten Tools vertraut sind. Die Spezialisten von Microsoft Product Support Services können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind. Das Feature Benutzerliste stellt eine Möglichkeit dar, zu bestimmen, wer momentan mit einer Microsoft Jet-Datenbank verbunden ist. Die Liste ist über die ADO-Schnittstelle für die Programmierung verfügbar, und es werden für jeden Benutzer folgende Informationen zurückgegeben:

• Der Name des vom Benutzer verwendeten Computers.
  
• Den Sicherheitsnamen, d. h. die Benutzer-ID.
  
• Ob der Benutzer zu dem Zeitpunkt mit der Datenbank verbunden ist. (Eine Benutzer-ID bleibt in der Sperrdatenbank, bis sich der letzte Benutzer abmeldet, oder bis der Slot für eine neue Benutzerverbindung benötigt wird.)
  
• Ob die Benutzerverbindung ordnungsgemäß beendet wurde.
  
• Das Feature zum Anzeigen der Benutzerliste kann zusammen mit der Verbindungskontrolle verwendet werden, um zu bestimmen, welche Benutzer noch verbunden sind. Diese können dann gebeten werden, die Verbindung zu unterbrechen.

Das Feature zum Anzeigen der Benutzerliste ist auch nützlich, um solche Probleme bei Datenbankbeschädigungen herauszufinden, die mit den Aktivitäten eines bestimmten Benutzers im Zusammenhang stehen.

Beispielcode

Führen Sie die folgenden Schritte aus, um den Beispielcode anzuzeigen:

Hinweis: Der Beispielcode in diesem Artikel verwendet Microsoft ActiveX Data Objects (ADO). Damit dieser Code korrekt ausgeführt wird, müssen Sie die Microsoft ActiveX Data Objects 2.x-Objektbibliothek referenzieren (wobei es sich bei Version 2.x um 2.1 oder höher handelt). Klicken Sie hierzu im Menü Extras des Visual Basic Editors auf Verweise und stellen Sie sicher, dass das Kontrollkästchen für die Microsoft ActiveX Data Objects 2.x-Objektbibliothek aktiviert ist.

1. Kopieren Sie die Beispieldatenbank Nordwind in den Ordner "C:\".
2. Öffnen Sie in Microsoft Access C:\Nordwind.
3. Klicken Sie im Datenbankfenster unter Objekte auf Module, und klicken Sie dann auf Neu.
4. Speichern Sie das Modul als "BenutzerAnzeigen".
5. Geben Sie in das Modul "BenutzerAnzeigen" den folgenden Code ein:

   Sub ShowUserRosterMultipleUsers()
       Dim cn As New ADODB.Connection
       Dim cn2 As New ADODB.Connection
       Dim rs As New ADODB.Recordset
       Dim i, j As Long
   
       cn.Provider = "Microsoft.Jet.OLEDB.4.0"
       cn.Open "Data Source=c:\Northwind.mdb"
   
       cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
       & "Data Source=c:\Northwind.mdb"
   
       ' The user roster is exposed as a provider-specific schema rowset
       ' in the Jet 4 OLE DB provider.  You have to use a GUID to
       ' reference the schema, as provider-specific schemas are not
       ' listed in ADO's type library for schema rowsets
   
       Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
       , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
   
       'Output the list of all users in the current database.
   
       Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
       "", rs.Fields(2).Name, rs.Fields(3).Name
   
       While Not rs.EOF
           Debug.Print rs.Fields(0), rs.Fields(1), _
           rs.Fields(2), rs.Fields(3)
           rs.MoveNext
       Wend
   
   End Sub
   					

6. Schließen Sie die Datenbank Nordwind, wenn Sie dazu aufgefordert werden, und speichern Sie die Änderungen an ShutDownDB. (Dies muss durchgeführt werden, damit die Datenbank aufgrund des von Ihnen eingegebenen Codes exklusiv gesperrt wird.)
7. Öffnen Sie C:\Nordwind erneut.
8. Drücken Sie [STRG]+[G], um das Direktfenster im Visual Basic Editor zu öffnen.
9. Geben Sie im Direktfenster Folgendes ein, und drücken Sie die [EINGABETASTE]:

   ShowUserRosterMultipleUsers
   					

   Beachten Sie, dass im Direktfenster eine Liste der Benutzer der Datenbank zurückgegeben wird.