title image


Smiley Re: Wer greift im Moment auf die DB zu?
Hi,



du kannst dies mit dem folgendem Code durchführen. Den hab ich hier im Forum bekommen.



Feststellen welcher User die Datenbank benutzt.



Public Sub ShowUserRosterMultipleUsers(DBName As String)

'

' DBName: Name der zu untersuchenden Datenbank

'

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

cn.Provider = "Microsoft.Jet.OLEDB.4.0"

cn.Open "Data Source=" & DBName



Set rs = cn.OpenSchema(adSchemaProviderSpecific, , _

"{947bb102-5d43-11d1-bdbf-00c04fb92675}")



' Eine Liste der Benutzer für die angegebene Datenbank im Direktbereich

' im Direktbereich ausgeben

With rs

Debug.Print rs(0).Name, "", rs(1).Name, "", rs(2).Name, rs(3).Name

Do While Not .EOF

Debug.Print rs(0), rs(1), rs(2), rs(3)

.MoveNext

Loop

.Close

End With

End Sub



Im Direktfenster folgendes eingeben:



ShowUserRosterMultipleUsers "S:\Support\Reporting\Operations_Overview.mdb"

COMPUTER_NAME LOGIN_NAME CONNECTED SUSPECT_STATE

PC0783 Admin Wahr Null





Gruss



Ralf

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: