Olá, preciso efetuar uma pesquisa entre datas, estou usando vb6, crystal9 e Db firebird 2.5, eu faço com todos os tipos de filtros, mas usando data não da certo dá um erro de conversão.
Fiz usando DB do Access e deu certo mas com o firebird não.
estou usando assim:
Dim crxApp As New CRAXDRT.Application
Dim crxReport As New CRAXDRT.Report
Dim VAR_DtIn As Variant
Dim VAR_DtFim As Variant
Private Sub Command1_Click()
Set crxReport = Nothing
Set crxReport = crxApp.OpenReport("C:\DATABASES\RELATORIOS\TESTE_vendas.rpt")
crxReport.DiscardSavedData
VAR_DtIn = Format(Text1, "MM/DD/YYYY")
VAR_DtFim = Format(Text2, "MM/DD/YYYY")
SQL = "{TAB_VENDA_DIRETA.DATA} IN DATE('" & VAR_DtIn & "') TO DATE('" & VAR_DtFim & "')"
crxReport.RecordSelectionFormula = SQL
CRViewer.ReportSource = crxReport
CRViewer.ViewReport
End Sub
Eu já tentei colocando o "00:00:00" com a data mas mesmo assim dá o erro:
"Failed to open a rowset
Details: ADO Error code 0x80040e21
source: Ibole tibole command
descryption: Dynamic sql error
SQL Error code= -804
Function unknown
CONVERT