Discussion :

[Abed_H]

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

[marot_r]

Bonjour.

essaye :

Code :

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

1
2
3
4
rst.Open "SELECT etsfacture.Code_c,etsfacture.DATEFACT,etsfacture.NFACT,etsfacture.MHT " & _
                "FROM etsfacture " & _
                "Where Extract(Month From etsfacture.DATEFACT)=#" & format(Père,"yyyy\-mm-\dd") & "# " & _
                "And Extract(Year From etsfacture.DATEFACT)=#" & format(selNode,"yyyy\-mm-\dd") & "# Order By etsfacture.NFACT", adoConn

1. le # est un délimiteur de date.
2. le format(, "yyyy\-mm\-dd") est pour éviter que Access confonde le mois et le jour de la date.

A+

[Abed_H]

Bonjour
merci de votre réponse marot_r
la syntaxe que vous m’avais proposé fait apparaitre un autre message disant que

[ODBC Firebird Driver][Firebird]Dynamic SQL Error
SQL error code=-104
Token unknown-line 1,char 139

en tous cas merci