IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Liste des utilisateurs connectés à une base (serveur TSE)


Sujet :

VBA Access

  1. #1
    Membre régulier Avatar de e040098k
    Inscrit en
    avril 2007
    Messages
    197
    Détails du profil
    Informations forums :
    Inscription : avril 2007
    Messages : 197
    Points : 94
    Points
    94
    Par défaut Liste des utilisateurs connectés à une base (serveur TSE)
    Bonjour,

    J'ai trouvé se code me permettant de lister les utilisateurs de ma base de donnée :

    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
    Option Compare Database
    Option Explicit
     
    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
    MsgBox WHO_IS, vbInformation, "Liste des connectés"
    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
    Ma base se trouve sur un serveur TSE, les utilisateurs on chacun une session TSE pour le connectés a celle-ci !
    Grace à mon code j'obtiens seulement:

    SERVEURTSE | Admin;

    J'aimerais obtenir la liste des noms de tous les utilisateurs!

    Est-ce que cela est possible?

  2. #2
    Membre régulier
    Inscrit en
    mai 2006
    Messages
    87
    Détails du profil
    Informations forums :
    Inscription : mai 2006
    Messages : 87
    Points : 80
    Points
    80
    Par défaut
    j'ai presque le meme probleme que toi sauf que j'ai le nom des stations connectées suivi de admin
    si j'ouvre mon LDB(avec word) j'ai les memes info

    et toi?

  3. #3
    Membre régulier Avatar de e040098k
    Inscrit en
    avril 2007
    Messages
    197
    Détails du profil
    Informations forums :
    Inscription : avril 2007
    Messages : 197
    Points : 94
    Points
    94
    Par défaut
    J'en suis au même point je n'ai pas encore eu le temps de creuser le problème en profondeur !

    Je te tiens au courant si j'ai du nouveau !

  4. #4
    Membre régulier
    Inscrit en
    mai 2006
    Messages
    87
    Détails du profil
    Informations forums :
    Inscription : mai 2006
    Messages : 87
    Points : 80
    Points
    80
    Par défaut hello!
    si on admet qu'1 utilisateur utilise principalement une machine:

    on pourrait faire une table de correspondance nom machine,nom utilisateur(principal)?

    car je pense que ton serveur vois une machine tse_*** et c'est la session (utilisateur) windows qui se connecte (c'est le serveur qui fait le lien)

    donc a distance (depuis ta base) tu connais la machine connectée mais pas l'utilisateur (sauf si tu as les droit administrateur)

    enfin c'est ce que je crois....
    enfin si tu trouve ca m'interesse aussi

  5. #5
    Membre régulier Avatar de e040098k
    Inscrit en
    avril 2007
    Messages
    197
    Détails du profil
    Informations forums :
    Inscription : avril 2007
    Messages : 197
    Points : 94
    Points
    94
    Par défaut
    Bonjour,
    Je me permet de faire un up de ce message, car après avoir chercher dans tous les sens, je n'ai pas trouver d'autre moyen de lister les utilisateurs d'une base que la lecture du fichier ldb.

    Je n'ai donc aucun autre résultat que
    SERVEURTSE
    admin

    La seule information utile est le nombre de connecté !

    Est-ce que quelqu'un connait un autre moyen que la lecture du fichier ldb ?

    Merci

Discussions similaires

  1. Réponses: 6
    Dernier message: 07/10/2014, 15h47
  2. Liste des utilisateurs connectés au serveur Firebird
    Par kaouane dans le forum Firebird
    Réponses: 11
    Dernier message: 23/10/2012, 20h13
  3. Réponses: 0
    Dernier message: 08/02/2011, 18h52
  4. [AC-2003] Connaitre la liste des utilisateurs connectés à ma base [ACCESS POSTGRESQL]
    Par flet le kid dans le forum Sécurité
    Réponses: 5
    Dernier message: 10/07/2009, 11h51
  5. liste des users connectés à une base acces
    Par progima dans le forum Access
    Réponses: 2
    Dernier message: 07/11/2005, 16h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo