Comment co,,aitre la liste des utilisateur connécté a une base access [Résolu]

Messages postés
6
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
31 juillet 2005
- - Dernière réponse : azizika
Messages postés
6
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
31 juillet 2005
- 31 juil. 2005 à 00:34
Je débute en vb dans le cadre d'un stage d'immersion je suis éléve ingénieur .
Je commence à bien aimer le Vb malgré le sproblème qu'il me pose.
merci!!
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
1356
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
1
3
Merci
Bonsoir,



Ce genre d'infos se trouve dans le fichier .ldb crée automatique à l'ouverture du fichier mdb .



article et exemple :

ACC97 : procédure les fichiers .LDB lue

@+

PS: Si votre problème est résolu, prière de bien vouloir clôturer votre message par une réponse acceptée !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
815
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
1
3
Merci
Salut,

tu peux essayer ceci




Private Type Un_Connecté
' --nom PC
PC(1 To 32) As Byte
' --nom utilisateur
User(1 To 32) As Byte
End Type





Public Function WHO_IS() As String
' -- retourne une liste séparée par des points virgules indiquant le nom de l'ordinateur ainsi que
' -- l'utilisateur connecté à la base.
On Error GoTo Err_WHO_IS
Dim Mon_LDB As Integer, i As Integer
Dim Mon_Chemin As String
Dim Mon_Log As String, Ma_Connexion As String
Dim Nom_PC As String, Nom_Utilisateur As String
Dim utilisateur As Un_Connecté
Mon_Chemin = CurrentDb.Name
CurrentDb.Close
' --Aller chercher le LDB
Mon_Chemin = Left(Mon_Chemin, InStr(1, Mon_Chemin, ".")) + "LDB"
Mon_LDB = FreeFile
' --Ouvrir le LDB
Open Mon_Chemin For Binary Access Read Shared As Mon_LDB
' -- Lire le LDB
Do While Not EOF(Mon_LDB)
' -- Chaque enregistrement lu est placé dans la variable utilisateur pour y être traité.
Get Mon_LDB, , utilisateur
With utilisateur
i = 1
Nom_PC = ""
' -- nom du PC
While .PC(i) <> 0
Nom_PC = Nom_PC & Chr(.PC(i))
i = i + 1
Wend
i = 1
Nom_Utilisateur = ""
' -- nom de l'utilisateur
While .User(i) <> 0
Nom_Utilisateur = Nom_Utilisateur & Chr(.User(i))
i = i + 1
Wend
End With
Mon_Log = Nom_PC & " | " & Nom_Utilisateur
If InStr(Ma_Connexion, Mon_Log) = 0 Then
Ma_Connexion = Ma_Connexion & Mon_Log & ";"
End If
Loop
Close Mon_LDB
' --WHO_IS contient la liste des utilisateurs
WHO_IS = Ma_Connexion
Exit_WHO_IS:
Exit Function
Err_WHO_IS:
MsgBox Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur"
Close Mon_LDB
Resume Exit_WHO_IS
End Function



++

Zlub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
5
3
Merci
Va voir cette source, elle est faite pour toi

http://www.vbfrance.com/code.aspx?id=28606

TBBUIM

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
31 juillet 2005
0
Merci
merci pour la reponse mais je ne comprend pas ça TBBUIM