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 !