Fórum fazer pesquisa entre datetimepicker #165613
19/06/2003
0
tenho 2 datetimepicker quero pesquisar pedidos feitos entre determinado periodo
datetimepicker1 inicio da pesquisa
datetimepicker2 fim da pesquisa
valeuu!!!
datetimepicker1 inicio da pesquisa
datetimepicker2 fim da pesquisa
valeuu!!!
Du_godoy
Curtir tópico
+ 0
Responder
Post mais votado
19/06/2003
Faça o seguinte:
no seu SQL quando vc tiver a cláusula WHERE escreva isto:
WHERE campo_data >= :DATAINI and campo_data <= :DATAFIM
depois, quando for executar o SQL, antes de dar um OPEN na query escreva:
query1.ParamByName(´DATAINI´).AsDateTime := datetimepicker1.Date;
query1.ParamByName(´DATAFIM´).AsDateTime := datetimepicker2.Date;
query1.Open;
Para que funcione sem erros e que nunca perca nenhum registro, coloque no campo time do datetimepicker:
00:00:00 - no datetimepicker1
23:59:59 - no datetimepicker2.
Qualquer dúvida é só mandar um e-mail OK!
no seu SQL quando vc tiver a cláusula WHERE escreva isto:
WHERE campo_data >= :DATAINI and campo_data <= :DATAFIM
depois, quando for executar o SQL, antes de dar um OPEN na query escreva:
query1.ParamByName(´DATAINI´).AsDateTime := datetimepicker1.Date;
query1.ParamByName(´DATAFIM´).AsDateTime := datetimepicker2.Date;
query1.Open;
Para que funcione sem erros e que nunca perca nenhum registro, coloque no campo time do datetimepicker:
00:00:00 - no datetimepicker1
23:59:59 - no datetimepicker2.
Qualquer dúvida é só mandar um e-mail OK!
Nando
Responder
Gostei + 1
Mais Posts
19/06/2003
Sandra
Boa tarde [b:54be3184cc]du[/b:54be3184cc]!
Veja este exemplo e faça as adaptações de acordo com suas necessidades:
Bom trabalho!!
:D
Veja este exemplo e faça as adaptações de acordo com suas necessidades:
If DateTimePicker2.Date < DateTimePicker1.Date Then begin ShowMessage(´Intervalo de datas inválido! A data inicial deve ser menor que a data final!´); DateTimePicker2.Date := DateTimePicker1.Date; end else begin Inicio := DateToStr(DateTimePicker1.Date); Final := DateToStr(DateTimePicker2.Date); Query1.Close; Query1.SQL.Clear; Query1.SQL.Text := ´Select * from Cadastro WHERE Data >=:dInicial and Data<=:dFinal Order by Nome´; Query1.ParamByName(´dInicial´).AsDateTime := StrToDate(Inicio); Query1.ParamByName(´dFinal´).AsDateTime := StrToDate(Final); Query1.Prepare; Query1.Open; end;
Bom trabalho!!
:D
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)