Bonjour

Je voudrais créer une requête SQL directe en VBA, paramétrer sa connection, pour pouvoir s'en servir pour faire une jointure avec une table locale ou traiter puis insérer les données dans la base locale.

J'ai essayé via ce 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
15
16
17
Private Sub createQuery()
 
Dim oCnMySQL As ADODB.Connection
Dim RSEntr As New ADODB.Recordset
Dim rsdata As New ADODB.Recordset
Dim RSSource As New ADODB.Recordset
Dim ages As Variant
Dim db As DAO.Database
Dim datos As Double
Set db = CurrentDb
Dim qdf, qdf2, qdf3 As DAO.QueryDef
 
'DoCmd.DeleteObject acQuery, "rqcreate"
Set qdf = db.CreateQueryDef("RQCreate", "select * from gepal")
qdf.Connect = "ODBC;DSN=infolog C3"
 
End Sub
Ensuite si je fais une requête appelant "rqcrreate", çà ne marche pas
Paut-être faut-il l'ajouter à la collection QueryDefs, j'ai essayé avec la méthode
Code : Sélectionner tout - Visualiser dans une fenêtre à part
db.Querydefs.append qdf
, mais çà ne marche pas.

Merci d'avance pour votre aide