'Inserire sulle dichiarazioni generali
Public Const OptAllLDBUsers = &H1 Public Const OptLDBLoggedUsers = &H2 Public Const OptLDBCorruptUsers = &H4 Public Const OptLDBUserCount = &H8 Public Const OptLDBUserAuthor = &HB0B Public Declare Function LDBUser_GetUsers Lib "MSLDBUSR.DLL" _ (lpszUserBuffer() As String, ByVal lpszFilename As String, _ ByVal nOptions As Long) As Integer Public Declare Function LDBUser_GetError Lib "MSLDBUSR.DLL" _ (ByVal nErrorNo As Long) As String Private Sub Get_UserNames() ReDim msstring(1) As String Dim strDBName As String Dim miLoop As Integer ListView1.ListItems.Clear 'Questa funzione suporta i percorsi UNC's strDBName = "C:\Program Files\Microsoft Office\Northwind.mdb" 'Questa funzione passa il percorso del database e restituisce 'il numero totale degli utenti cllegati miLoop = LDBUser_GetUsers(msstring, strDBName, OptLDBLoggedUsers) If miLoop = 0 Then ListView1.ListItems.Add , , "Nessun utente collegato!", , 1 Exit Sub End If For miLoop = LBound(msstring) To UBound(msstring) If Len(msstring(miLoop)) = 0 Then Exit For End If ListView1.ListItems.Add , , msstring(miLoop), , 1 Next miLoop Me.Caption = "DB Users = " & ListView1.ListItems.Count End Sub Inputs: strDBName as string = Path del file MDB da monitorare Returns: miloop as long - Numero utenti collegati al Database Assumes: Richiede l'installazione nel sistema della DLL msldbusr.dll che potete trovare su : http://premium.microsoft.com/download/msdn/samples/4890.exe con un piccolo progetto di esempio. Aggiungere una ListView (ListView1) sul progetto ed utilizzare il codice fornito La ListView deve essere settata con 1 colonna |