Duvida em DateTimePicker1

Question

Estou fazendo a busca da seguinte maneira mas nao traz os dados da busca:Query1.Close;Query1.ParamByName(�DataInicial�).AsDatetime := DateTimePicker1.DateTime;Query1.ParamByName(�DataFinal�).AsDatetim...

Mmtoor · Answer

Para pesquisar por data numa query, fa�a o seguinte:

Var
Inicio: String;
Final: String;
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);
datamodule1.query12.Close;
datamodule1.query12.SQL.Clear;
datamodule1.query12.SQL.Text := �SELECT * FROM orcamento WHERE data >=:pInicial and data<=:pFinal ORDER BY produto DESC�;
datamodule1.query12.ParamByName(�pInicial�).AsDateTime := StrToDate(Inicio);
datamodule1.query12.ParamByName(�pFinal�).AsDateTime := StrToDate(Final);
datamodule1.query12.Prepare;
datamodule1.query12.Open;
datamodule1.query12.SetFocus
end;
ShowMessage(�Total de registros encontrados na pesquisa: � + IntToStr(datamodule1.Query12.RecordCount));

Espero ter ajudado.
whiteband@ig.com.br

F�rum Duvida em DateTimePicker1 #175733