[firebase-br] Problemas com Select

[Joao Marcos]

coloque exatamente o código abaixo:

Caso retorne erro do mesmo jeito, tente verificar as configurações de
hora do seu sistema operacional.

o código abaixo tá correntinho.


 procedure TFrmPesquisa.SpeedButton1Click(Sender: TObject);
var
 vDataIni,vDataFim : string;
begin
 vDataIni := Quotedstr(FormatDateTime('DD.MM.YYY', DateTimePicker1.Date);
 vDataFim := Quotedstr(FormatDateTime('DD.MM.YYY', DateTimePicker2.Date);

  DmPesquisa.cdsPesquisa.Close;
 DmPesquisa.cdsPesquisa.CommandText :=
 'select c.cli_codigo, c.cli_nome, v.cli_codigo, v.vis_data, v.vis_hora ' +
 'from cliente c, visita v where c.cli_nome = ' +Quotedstr( Edit1.Text)+
 ' and v.vis_data between'+ vDataIni + ' and ' + vDataFim +
 ' and c.cli_codigo = v.cli_codigo';
 DmPesquisa.cdsPesquisa.Open;
end;