Como pesquisar entre datas !
20/05/2003
0
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;
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;
Pc
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)