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
Sa bug plus mais sa marche pas.
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"
Merci
Partager