Pesquisa por data

Question

Preciso fazer uma pesquisa, onde o usu�rio digite a data ou selecione de uma dblistbox, e ap�s mostr todos os registros com vencimento naquela data...com sql d� erro no param...na tabela o campo venci...

Carnette · Answer

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)