Como pesquisar entre datas !

20/05/2003

1

Por favor me ajudem não consigo fazer uma consulta
entre datas ...
ex: tenho um forme e um botão quando aberto o botão pesquiso por uma query :
frm_dm.qry_relatorio.Close;
frm_dm.qry_relatorio.SQL.Clear;
frm_dm.qry_relatorio.SQL.Add (´select * from pedido where usuario ´´+edit1.text+´´ and data_pedido = ??????????´);
frm_dm.qry_relatorio.OpenDatabase;
frm_dm.qry_relatorio.Active := true ;
end;


Responder

Posts

20/05/2003

Carnette

Por favor me ajudem não consigo fazer uma consulta entre datas ... ex: tenho um forme e um botão quando aberto o botão pesquiso por uma query : frm_dm.qry_relatorio.Close; frm_dm.qry_relatorio.SQL.Clear; frm_dm.qry_relatorio.SQL.Add (´select * from pedido where usuario ´´+edit1.text+´´ and data_pedido = ??????????´); frm_dm.qry_relatorio.OpenDatabase; frm_dm.qry_relatorio.Active := true ; end;


Consultando entre datas utilizando SQL
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);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := ´SELECT Nome,Empresa,FoneRes,FoneCom,Mala FROM Contatos WHERE Data >=:pInicial and Data<=:pFinal ORDER BY Nome´;
Query1.ParamByName(´pInicial´).AsDateTime := StrToDate(Inicio);
Query1.ParamByName(´pFinal´).AsDateTime := StrToDate(Final);
Query1.Prepare;
Query1.Open;
DBGrid3D1.SetFocus
end;
Label3.Caption := ´Total de contatos: ´ + IntToStr(Query1.RecordCount)


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira