Bonjour je voudrait me connecter une base de donnée SQL j'ai chercher et trouver quelque post je m'en suis inspirer et voici mon code mais celui ci ne bug pas mais ne marche pas si quelqu'un pouvais m'aider sa serais gentil

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

	

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

	
12345678910111213141516
Set gCn = New ADODB.Connection 
With gCn 
.Provider = "sqloledb.1" 
.CommandTimeout = 15000 'Après 15 secondes, sortir 
.CursorLocation = adUseServer 
.Properties("Data Source") = "MAXIPC" 'Serveur 
.Properties("Initial catalog") = "pubs" 'Base 
.Properties("User ID") = "***" 'par défaut 
.Properties("Password") = "****" 
.Open 
End With 
 
j'ai remplacer (User Id et password) par ce code
 
Code :
.Properties("Integrated Security") = "SSPI"
Sa bug plus mais sa marche pas.

Merci