VBA excel <-> SQL Server 2005, login failed
Bonjour à tous.
Je suis actuellement en train de dev une macro excel de traitement de données.
Cette macro se connecte à une DB SQL Server 2005 distante avec reussite dans 2 cas :
-cas 1 : utilisation de l'utilisateur "sa" de la db SQL
-cas 2 : utilisation d'un utilisateur "ereader" configuré sur SQL server, mais sans mot de passe...
Si je definit un password sur SQL Server pour l'utilisateur "ereader" (read only) excel me sort cela :
[Microsoft][ODBC SQL Server Driver][SQL Server] Login failed for user ereader
Voici l'extrait de code utilisé :
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
29
30
31
32
33
34
35
|
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
'-----------------------------------------------
If cnx.State <> adStateClosed Then cnx.Close
'-----------------------------------------------
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'-----------------------------------------------
If rst.State <> adStateClosed Then rst.Close
'initialisation de l'itérateur
Dim NomUtilisateur, MotDePasse As String
Dim NomServeur, NomBaseDeDonnees As String
'Connection param
NomUtilisateur = "ereader"
MotDePasse = "pass" (fonctionne seulement si pas de mot de passe)
NomServeur = "10.10.0.249"
NomBaseDeDonnees = "callcenter"
'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 |
Je dois dire que malgre tous mes tests je ne vois pas du tout d'ou vien le probleme...
Accessoirement, savez vous s'il est possible de "crypter" le mot de passe pendant le trajet Excel - SQL server ?
