Discussion :

[le_niak]

Bonjour,

J'ai utilisé le code contenu dans la FAq mais malheuresment cela ne fonctionne que sur la meme machine.

Je chercher à réaliser la meme chose mais sur un réseau

Je voudrais que si la base est déjà ouverte et q'une autre personne essaye de l'ouvrir, alors message d'erreur puis fermeture de la base pour la personne en question


Merci

[cotmar]

Salut,

En fait je n'ai pas la réponse, mais en étendant un peut la question, peut on limiter le nombre de personnes connectées en même temps ? Par exemple à 5 ou 10 ?

Par avance merci.

Marco en passant qui espère ne pas abuser.

[Domi2]

Bonjour,

Je dirai oui.

Il est possible de compter le nombre d'utilisateur connecté à la base.

Donc, en testant au lancement de l'application le nombre de connexions déjà en cours, on pourrait empêcher une nouvelle connexion.

Il y'a peut-être d'autres solutions plus simple...

Domi2

[philben]

Bonjour,

si vous passez par la méthode consistant à compter le nombre de connexion à la base distante, voici 2 fonctions possibles qui sont sur le site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
' Retourne le nombre d'utilisateurs connectés à une base
' Moins Propre que CountConnexions (voir plus loin) mais pas besoin d'ADO
Public Function CountConnexion(ByVal sPathMdb As String) As Integer
On Error GoTo errortag
   Dim iHandle As Integer
   Dim tUser As tConnected
 
   ' chemin du fichier LDB de la base
   sPathMdb = Left(sPathMdb, InStrRev(sPathMdb, ".")) + "ldb"
   iHandle = FreeFile
   CountConnexion = 0
 
   ' Ouvrir le LDB
   Open sPathMdb For Binary Access Read Shared As iHandle
 
   ' Lire le LDB
   Do While Not EOF(iHandle)
      ' Compte les enregistrements lus
      Get iHandle, , tUser
      If tUser.byComputer(0) <> 0 And tUser.byUser(0) <> 0 Then
         CountConnexion = CountConnexion + 1
      End If
   Loop
fin:
   Close iHandle
   Exit Function
errortag:
   CountConnexion = -1
   MsgBox "Erreur : " & Err.Number
   Resume fin
End Function
 
 
' Nécessite en référence Microsoft ActiveX Data Objects 2.x library
' Par ADO, compte aussi cette connexion !
Public Function CountConnexions(sPathMdb As String) As Long
On Error GoTo errortag
    Dim oCn As ADODB.Connection
    Dim oRs As ADODB.Recordset
 
    Set oCn = New ADODB.Connection
    oCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathMdb
    ' The user roster is exposed as a provider-specific schema rowset
    ' in the Jet 4 OLE DB provider.  You have to use a GUID to
    ' reference the schema, as provider-specific schemas are not
    ' listed in ADO's type library for schema rowsets
    Set oRs = oCn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
 
    CountConnexions = 0
    If Not oRs.EOF And Not oRs.BOF Then
      oRs.MoveFirst
      Do
         CountConnexions = CountConnexions + 1
         oRs.MoveNext
      Loop Until oRs.EOF
    End If
fin:
   Set oRs = Nothing
   Set oCn = Nothing
   Exit Function
errortag:
   CountConnexions = -1
   MsgBox "Erreur : " & Err.Number
   Resume fin
End Function

Vérifier que si un utilisateur quitte pas proprement l'application, sa connexion risque de rester active et donc fausser le résultat...

Philippe

[le_niak]

Merci pour vos réponses