none
Pesquisa entra datas no Crystal9 RRS feed

  • Pergunta

  • 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

    segunda-feira, 20 de agosto de 2012 17:26