bom dia tenho esse codigo q uso pra pesquisar no banco accdb, mas agora to migrando pra firebird e quero usar esse codigo pra pesquisar no banco fdb
alguem pode me da uma ideia como se faz esse codigo pra pesquisar no firebirds
Public Function DlookupX(NomeCampo As Variant, nomeTabela As Variant, Optional Filtro As String = "") As Variant
Dim rs As dao.Recordset
Dim strSQL As String
strSQL = "Select (" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(Filtro = "", ";", " WHERE " & Filtro & ";")
Call fncAbreConexao(102030)
Set rs = db.OpenRecordset(strSQL, 4)
DlookupX = rs!k
rs.Close
Set rs = Nothing
End Function
alguem pode me da uma ideia como se faz esse codigo pra pesquisar no firebirds
Public Function DlookupX(NomeCampo As Variant, nomeTabela As Variant, Optional Filtro As String = "") As Variant
Dim rs As dao.Recordset
Dim strSQL As String
strSQL = "Select (" & NomeCampo & ") AS k FROM " & nomeTabela & IIf(Filtro = "", ";", " WHERE " & Filtro & ";")
Call fncAbreConexao(102030)
Set rs = db.OpenRecordset(strSQL, 4)
DlookupX = rs!k
rs.Close
Set rs = Nothing
End Function