blokkade inlog access database

[tieltje1971]

Hoi,

Misschien heeft een van jullie hier ervaring mee.

Ik heb een access applicatie in beheer, hier kunnen meerdere gebruikers op inloggen (staan in een .mdw bestand). Gebruikers kunnen meerdere sessies openen onder dezelfde gebruikersnaam, dit is ongewenst want dit haalt oa de performance naar beneden. Weet een van jullie of het mogelijk is om er voor te zorgen dat 1 gebruiker maximaal 1 sessie kan openen (bijv: dmv check op het ldb bestand?, of iets anders ?)

Alvast bedankt,

Mark

 

[Guus2005]

Check op het ldb bestand:

Public Function CountInstance() As Integer

    Dim cn                           As Object
    Dim rs                           As Object
    Dim strCompname                  As String
    Const c_adSchemaProviderSpecific As Integer = -1
    
    CheckUserInfo
    strCompname = guUserInfo.Computer
    
    CountInstance = 0
    
    Set cn = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
    
    Set rs = cn.OpenSchema(c_adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    
    'Er zit een nullchar achter ieder veld. Vandaar TrimNull.
    Do While Not rs.EOF
        If TrimNull(Nz(rs.Fields(0))) = strCompname And TrimNull(Nz(rs.Fields(2))) = True Then
            CountInstance = CountInstance + 1
        End If
        rs.MoveNext
    Loop

End Function

Tijdje geleden dat ik deze gebruikt heb. Weet niet meer of die werkt of niet.

Public Function TrimNull(startstr As String) As String
    TrimNull = Left$(startstr, lstrlenW(StrPtr(startstr)))
End Function

HTH