[firebase-br] RES: relatorio c/ periodo entre datas com crystal e firebird/vb6

[André Conrado]

Acho que esse assunto é OFF TOPIC. Porque seu problema parece está nos
comando sql que você está passando pro cristal report. Mas mesmo
assim, com relação ao firebird, você poderia criar uma consulta e
passar as data por parâmetro.

abçs

Em 2 de maio de 2012 14:40, Juliasse <geral em outlett.com.br> escreveu:
>
> Boa tade
> Então eu tentei e mesmo assim não dá certo não
>
>
> -----Mensagem original-----
> De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
> nome de Wilson Rosa
> Enviada em: terça-feira, 1 de maio de 2012 23:10
> Para: FireBase
> Assunto: Re: [firebase-br] relatorio c/ periodo entre datas com crystal e
> firebird/vb6
>
> Você pode usar o formato brasileiro (com ponto) "dd.mm.yyyy" ou o americano
> (com barra) "mm/dd/yyyy".
>
>
>
> *Wilson Rosa*
> Desenvolvedor Desk
> wsrosa em gmail.com
> *
> *
>
>
>
> Em 1 de maio de 2012 15:47, Juliasse <geral em outlett.com.br> escreveu:
>
>>
>>
>> Boa tarde galera,
>>
>> E estou fazendo alguns relatórios no vb6, eu uso o firebird 2.0 e o
> crystal
>> 9.
>>
>> Fiz o relatório, criei uma aplicação no vb para abrir usando o crviewer
>> tudo
>> funciona blz com os outros filtros por nomes, mas quando fui
>>
>> Fazer a pesquisa por datas dá um erro/;
>>
>>
>>
>> Failed to open rowset.
>>
>> Details: ADO error code: 0x80040e21
>>
>> Source: ibole.TIBOLECommand
>>
>> Description: Dynamic SQL Error
>>
>> SQL error code -804
>>
>> Function unknown
>>
>> CONVERT
>>
>>
>>
>> Eu estou postando as linhas de comando blz, Pessoal me dá uma força.
>>
>>
>>
>> Set crxReport = Nothing
>>
>> Set crxReport =
>> crxApp.OpenReport("C:\DATABASES\RELATORIOS\Relat_det_venda.rpt")
>>
>> crxReport.DiscardSavedData
>>
>>
>>
>> If txtDtIn <> Empty And txtDtFim <> Empty Then
>>
>>     DataInicio = Format(txtDtIn.Text, "yyyy,mm,dd")      ----------------
>> Obs: Eu já tentei usando com  / ,  .  –  mm,dd,yyyy   e não deu certo
>>
>>     DataFinal = Format(txtDtFim.Text, "yyyy,mm,dd")
>>
>>     SQLDT = "{TAB_VENDA_DIRETA.DATA}"
>>
>>     SQL = SQLDT & " IN DATE(" & DataInicio & ") TO DATE(" & DataFinal &
> ")"
>> ------------- Obs: eu já tentei colocando apostofo e não deu certo
>>
>> End if
>>
>>
>>
>>    crxReport.RecordSelectionFormula = SQL
>>
>>    CRViewer.ReportSource = crxReport
>>
>>    CRViewer.ViewReport
>>
>>
>>
>> Eu uso dessa mesma forma em outro projeto usando o banco em access
>>
>> Mas no firebird não deu certo.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use:
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa