Pesquisa entre datas clientdataset
bom dia estou fazendo uma consulta entre datas mas nao esta funcionando, estou utilizando o clientedataset e insiro esse codigo
var
Inicio, Final : string;
begin
With DataModule2 do
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
ClientDataSet2.close;
ClientDataSet2.CommandText := ´select * from CADASTRO_CLIENTE WHERE DATA_CADASTROS >=:dti and DATA_CADASTROS<=:dtf ORDER BY DATA_CADASTROS´;
ClientDataSet2.Params [0].Value := StrToDate(Inicio);
ClientDataSet2.Params[1].Value := StrToDate(Final);
ClientDataSet2.Open.
MAS NAO FUNCIONA FICA DANDO ERRO , INFORMANDO COLUMN UNKNOWN DTI.
ALGUEM SABE ME INFORMAR COMO FACO UMA CONSULTA ENTRE DATAS
USANDO O CLIENTDATASET POR GENTILEZA
var
Inicio, Final : string;
begin
With DataModule2 do
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
ClientDataSet2.close;
ClientDataSet2.CommandText := ´select * from CADASTRO_CLIENTE WHERE DATA_CADASTROS >=:dti and DATA_CADASTROS<=:dtf ORDER BY DATA_CADASTROS´;
ClientDataSet2.Params [0].Value := StrToDate(Inicio);
ClientDataSet2.Params[1].Value := StrToDate(Final);
ClientDataSet2.Open.
MAS NAO FUNCIONA FICA DANDO ERRO , INFORMANDO COLUMN UNKNOWN DTI.
ALGUEM SABE ME INFORMAR COMO FACO UMA CONSULTA ENTRE DATAS
USANDO O CLIENTDATASET POR GENTILEZA
Ciotti
Curtidas 0