Discussion :

[noob_vba]

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

[polo(31)]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim nc As New Connection
Dim rs As Recordset
 
nc.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:\..."
 
set rs = NewADODB.Recordset
 
rs.Open "matable", nc
...
rs.Close
nc.Close

[noob_vba]

je suis dans un projet et je voudrait connecter mon projet a une base ADP.

Donc le probleme est de ce connecter a une base de donnée et non a une table.

En tous cas merci pour ton aide ceci me seras comme meme utile pour la suite.

[polo(31)]

mais là tu as quand mème le code pour te connecté a la base

[noob_vba]

oui mais la base n'est pas en local elle est en ADP c'est a dire sur un serveur

[polo(31)]

oui mais ça marche aussi, tu rentre le code et tu fait F1 pour modifier la syntaxe en conséquence