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 :
Ensuite si je fais une requête appelant "rqcrreate", çà ne 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 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
Paut-être faut-il l'ajouter à la collection QueryDefs, j'ai essayé avec la méthode, mais çà ne marche pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part db.Querydefs.append qdf
Merci d'avance pour votre aide
Partager