Discussion :

[ninouchfis]

Bonjour,

J'ai un projet adp qui pointe vers une base de données SQL server.
J'utilise un pc ouvert avec une session windows d'une autre personne, avec lequel je me connecte sur le projet adp via une comande runas (ou je met mon login et mon mot de passe).
Le projet est donc ouvert avec ma session et j'aimerai récupérer en vba, le login de la connexion (qui sera utilisé à plusieurs endroits du projet).

J'ai essayé deux choses:
currentuser me renvoie "admin" car je suis admin sur SQL et currentprojet.connection.properties("User ID").value ne me renvoie pas le nom du login.

Quelqu'un pourrait il m'aider svp?

[alassanediakite]

Salut
Je ne comprends pas bien le problème.
Il faut éclaircir ces points:

• J'utilise un pc ouvert avec une session windows d'une autre personne, avec lequel je me connecte sur le projet adp via une comande runas (ou je met mon login et mon mot de passe).

  Login SQL ou WINDOWS? c'est quoi la commande "runas"?

• récupérer en vba, le login de la connexion (qui sera utilisé à plusieurs endroits du projet)

  "utilisé" pour quoi faire?

• currentuser me renvoie "admin" car je suis admin sur SQL et currentprojet.connection.properties("User ID").value ne me renvoie pas le nom du login.

  je ne pense pas que "admin" soit de SQL SERVER! et "User ID" logiquement (je pense) renvoie un "ID" sous forme numérique.

Tu peux voir ici.

[ninouchfis]

Bonjour,

Effectivement mon message manque de clarté.
J'ai cependant trouvé une solution à mon problème.

Pour tout expliquer, je me connecte à un projet adp via un fichier .bat ou j'ai intégré une commande runas qui me permet d'executer mon programme avec un login différent de celui de la session windows. Une fois mon projet ouvert et connecté avec mon login SQL (SQL se connecte dans mon cas avec les identifiants windows) je cherche à récupérer le login connecté sur mon projet pour l'utilisé afin de lancer des connexions des lecteurs réseaux.

Voici le code vba qui me permet de récupérer le login connecté à SQL:

Code :

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

1
2
3
4
5
6
7
 
Dim base As New ADODB.Connection    
SQL = "SELECT     SUSER_SNAME() AS [USER_ID]"
Set base = CurrentProject.Connection
Dim rqt As New ADODB.Recordset
rqt.Open SQL, base
B = rqt![USER_ID]