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

azizika 6 Messages postés mercredi 22 novembre 2000Date d'inscription 31 juillet 2005 Dernière intervention - 24 juil. 2005 à 23:44 - Dernière réponse : azizika 6 Messages postés mercredi 22 novembre 2000Date d'inscription 31 juillet 2005 Dernière intervention
- 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
cs_frop01 1356 Messages postés lundi 27 octobre 2003Date d'inscription 19 novembre 2008 Dernière intervention - 25 juil. 2005 à 00:10
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 !

Merci cs_frop01 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 122 internautes ce mois-ci

Meilleure réponse
Zlub 815 Messages postés mercredi 11 octobre 2000Date d'inscription 29 septembre 2010 Dernière intervention - 25 juil. 2005 à 11:16
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

Merci Zlub 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 122 internautes ce mois-ci

Meilleure réponse
tbbuim1 940 Messages postés jeudi 20 février 2003Date d'inscription 3 février 2011 Dernière intervention - 26 juil. 2005 à 17:33
3
Merci
Va voir cette source, elle est faite pour toi

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

TBBUIM

Merci tbbuim1 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 122 internautes ce mois-ci

azizika 6 Messages postés mercredi 22 novembre 2000Date d'inscription 31 juillet 2005 Dernière intervention - 31 juil. 2005 à 00:34
0
Merci
merci pour la reponse mais je ne comprend pas ça TBBUIM

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.