GetMDBUser

'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