Bonjour ;
Je travaille sur Access 2010, j’ai réussi à connecter à une base de données Firebird en VBA Access
Mon problème si que je n’arrive pas à afficher mon Recordset dans un sousformulaire Access, un message apparait disant incompatibilité de type, pourriez-vous m’aider s.v.p ?
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
15
16
Sub SQL_FireBird()
'//--------------------------------------
Dim adoConn As ADODB.Connection, rst As ADODB.Recordset
Set adoConn = New ADODB.Connection: Set rst = New ADODB.Recordset
 
adoConn.ConnectionString = "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; DBNAME=\\MONSERVEUR\F:\REPERTOIRE\LE FICHIER.gdb;"
 
adoConn.Open
Père = 10: selNode = 2017
rst.Open "SELECT etsfacture.Code_c,etsfacture.DATEFACT,etsfacture.NFACT,etsfacture.MHT " & _
                "FROM etsfacture " & _
                "Where Extract(Month From etsfacture.DATEFACT)=" & Père & " " & _
                "And Extract(Year From etsfacture.DATEFACT)=" & selNode & " Order By etsfacture.NFACT", adoConn
 
 
Forms![F12]![F3].Form.RecordSource = rst   ' là le message incompatibilité de type apparait
merci par d'avance