Fichiers de verrouillage (.ldb ou .laccdb) et utilisateurs connectés

[Arkham46]

Bonjour à tous,

Voici un article pour vous expliquer le pourquoi et le comment des fichiers de verrouillage Access :

Les fichiers de verrouillage Access


Ce fichier dont l'extension est ldb ou laccdb est créé au côté du fichier de base de données.
Grâce au contenu de ce fichier et aux informations de verrouillage qu'il porte, nous pouvons lister les utilisateurs (et leur PC) connectés.

Bonne lecture.

[loufab]

Très bon tuto !

[Domi2]

Bonjour,

Actuellement, j'utilise un système basé sur MSLDBUSR.DLL. Je vois ce qu'il me reste à faire

Tutoriel très technique, mais expliquant clairement le fonctionnement de ces fichiers de verrouillage. J'aime bien, notamment, les images illustrant la création des lignes de connexion et la pose des verrous, c'est bien plus simple à comprendre que nombre d'explications fragmentaires que j'aie pu lire sur le sujet.

Au final, un super document de référence.

Domi2

[mumen]

Excellente information, excellent tuto rigoureux et complêt.

J'ai appris quelque chose sur le verrouillage des fichiers . Grâce à ça, je vais pouvoir réécrire mon module de connexion et sans doute enlever le contournement que j'avais mis en place. Reste à savoir si je saurais retrouver l'utilisateur concerné dans ma structure.

J'ai relevé un bug :

Description : Certaines bases de données n'apparaissent pas dans la liste alors qu'elles sont vraiment ouvertes.

Cause : le programme n'est pas insensible à la casse : si l'extension de la base sélectionnée est '.Mdb' ou encore '.MDB', alors la liste des verrous n'apparaît dans le tableau du formulaire.

Solution : Ajouter deux instructions 'LCase' dans la procédure de classe 'LDBFileName', comme je le fais ici aux lignes 2 et 4 :

Code :

1
2
3
4
5
6
7
8
9
Public Property Get LDBFileName() As String
    If LCase( Right(gDBFileName, 4)) Like ".md*" Then
        LDBFileName = Left(gDBFileName, Len(gDBFileName) - 3) & "ldb"
    ElseIf LCase(Right(gDBFileName, 5)) Like "accd*" Then
        LDBFileName = Left(gDBFileName, Len(gDBFileName) - 5) & "laccdb"
    Else
        LDBFileName = ""
    End If
End Property

[jimbolion]

Arkham46,

Là on frise l'excellence (non c'est atteint)

Tout simplement fabuleux

JimBoLion