[firebase-br] Problemas com Select

[Joao Marcos]

aqui vai o código como deve ser meu velho.

 O problema de deve ser o seguinte.

As datas não devem ser formadatas com / e sim com PONTO

formatdatetime('DD.MM.YYY',date)
copia o código abaixo e vê se funciona.

Abraços.



procedure TFrmPesquisa.SpeedButton1Click(Sender: TObject);
var
vDataIni,
vDataFim : string;
begin
vDataIni := Quotedstr(FormatDateTime('mm.dd.yyyy', DateTimePicker1.Date));
vDataFim := Quotedstr(FormatDateTime('mm.dd.yyyy', 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;