Discussion :

[NoViceDel]

Salut,

Toi qui li ce post, j'ai besoin de ton aide.
J'effectue une requête sur un serveur à partir d'un lien ODBC pour obtenir un certains nombres de résultats. Ces résultats je désire les stocker dans une table ou un queryDef. Donc pour faire le CreateQueryDef, il n'y a pas de problèmes.
Mon problème est que je n'arrive pas à récupérer les données. J'obtiens runtime error '3001'

J'ai recherché sur ces types d'erreurs mais je ne trouve pas de réponse pertinente.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Monrs As ADODB.Recordset
Dim sqlquery As String
Dim ws As Workspace
Dim db As Database
Dim str As String
 
sqlquery = "SELECT ....;"
Set Monrs = New ADODB.Recordset
Set ws = DBEngine.Workspaces(0)
Let str = "ODBC;DSN=REVIEW;UID=TEMP"
Set db = ws.OpenDatabase("REVIEW", True, False, str)
Monrs.Open sqlquery, db
Monrs.Close
db.Close

Merci, pour votre aide !

[moulefrite]

salut

essaye ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Dim cmd As ADODB.Command
 Dim rs As ADODB.Recordset
 
 Set cmd = New ADODB.Command
 cmd.CommandText = "Employés"
 cmd.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=chemin\maBDD.mdb"
 
 Set rs = New ADODB.Recordset
 rs.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdTableDirect

[NoViceDel]

Merci de ton aide moulefrite. Le problème c'est que tu récupères directement une table sur une base locale. J'utilise un lien ODBC pour effectuer une requête.

A mon avis c'est dans la commande pour exécuter la requête que j'ai un problème, mais je ne vois pas où.

J'ai vérifié ma requête et elle fonctionne ! Mais le code ne fonctionne pas ...

[moulefrite]

alors verifie les parametre a mettre lors de ton rs.open

essaye de faire un mix avec ceux que je t'ai donné adlockoptimistic, etc....

[NoViceDel]

C'est bon j'ai trouvé !
Le problème venait de la commande str qui contenait l'active connection ! Mon provider était ODBC alors qu'il fallait utiliser MSDASQL. Tout fonctionne ! Merci de ton aide.Je poste le code pour ceux qui en ont besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim ws As Workspace
Dim db As Database
Dim str As String
...
Set ws = DBEngine.Workspaces(0)
Let str = "Provider=MSDASQL;DSN=REVIEW;UID=TEMP"
...
Monrs.Open sqlquery, str, adOpenStatic
...

Merci encore moulefrite !

[moulefrite]

y a pas de quoi moi aussi je bug souvent sur ce genre de probleme et c'a fait
toujours plaisir de trouver de l'aide sur ce site alors quand je peu (meme si c'est rare) j'essaye d'en faire autant