[ADODB] Récupérer les identifiants Windows

Version imprimable

Bonjour,

afin de ne pas stocker de données dans un code VBA, je souhaiterais me logger à la base de données MSSQL en utilisant le nom d'utilisateur et le mot de passe de la personne utilisant l'excel (elle a les droits).

Savez vous comment faire?

Voici mon code (qui marche si je rentre à la main des identifiants)

Code:

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
 
Sub Connect()
 
 'Objet de connexion
 Set cnx = New ADODB.Connection
 
 'Si la connexion est déjà ouverte, on la ferme
 If cnx.State <> adStateClosed Then cnx.Close
 
 Dim NomUtilisateur, MotDePasse As String
 Dim NomServeur, NomBaseDeDonnees As String
 
 'Paramètres de connexion à la base de données
 NomUtilisateur = "NOM D'UTILISATEUR"
 MotDePasse = "MOT DE PASSE"
 NomServeur = "NOM DU SERVEUR"
 NomBaseDeDonnees = "NOM DE LA BASE"
 
 'Définition de la chaîne de connexion
 cnx.ConnectionString = "UID=" & NomUtilisateur & ";PWD=" _
 & MotDePasse & ";" _
 & "DRIVER={SQL Server};Server=" _
 & NomServeur & ";Database=" & NomBaseDeDonnees & ";"
 
 'Ouverture de la base de données
 cnx.Open
 
End Sub

21/07/2008, 14h34
Laestic
Bonjour,

plutot que de donner un utilisateur SQLServer et son mot de passe, tu peux essayer avec l'integrated security dans la chaîne de connexion :
Code:

1 2 sCnx = "DRIVER={SQL Server};Server=" _ & NomServeur & ";Database=" & NomBaseDeDonnees & "; Integrated security=SSPI"
Ca permet l'authentification par la session Windows. Attention toutefois, il faut que ce type d'authentification soit paramétré sur le serveur (que l'utilisateur de la session aie bien les droits...)
21/07/2008, 15h01
ouskel'n'or

Pour avoir le nom de l'utilisateur c'est
Nom = Application.environ("USERNAME")
Pour le reste, je ne vois pas ta questtion