Esse relatório não quer sair .. Preciso de Ajuda!!!!

Delphi

01/08/2003

Estou tentando fazer uma pesquisa no meu banco de datas de forma que eu busque todas as pessoa em um intervalo de datas, o campo que quero procurar é datanascimento com o ano mesmo (20/01/1985) e estou usando o seguinte codigo.

procedure TForm_buscar1.SpeedButton1Click(Sender: TObject);
var
Inicio,Final:string;

begin

If DateTimePicker2.text < DateTimePicker1.text Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.text := DateTimePicker1.text;
end
Else
begin
Inicio := (DateTimePicker1.text);
Final := (DateTimePicker2.text);

with form_principal.tb_servidor do
begin
Close;
form_principal.Query1.SQL.Clear;
form_principal.Query1.SQL.Add(´SELECT * FROM servidor WHERE datanascimento >= :pInicial and datanascimento<= :pFinal´);
form_principal.Query1.ParamByName(´inicial´).AsDateTime := StrToDate(Inicio);
form_principal.Query1.ParamByName(´final´).AsDateTime := StrToDate(Final);
form_principal.Query1.Prepare;
form_principal.Query1.Open;
form_rel_busca.QuickRep1.Preview;
end;

end;

e ele me retorna o seguinte erro:
query1: parameter ´inicial´ not found.

Preciso entregar esse programa até segunda-feira 04/08/2003.

Se alguem puder me ajuda ficarei extremamente agradecido :cry:


Machado

Machado

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

01/08/2003

Machado,
Segundo o seu código, os parâmetros são pInicial e pFinal.
Substitua para as linhas abaixo:
form_principal.Query1.ParamByName(´pinicial´).AsDateTime := StrToDate(Inicio);
form_principal.Query1.ParamByName(´pfinal´).AsDateTime := StrToDate(Final);


GOSTEI 0
Machado

Machado

01/08/2003

Ai cara valeu, mas eu havia parado para prestar a atenção e ja havia descoberto o erro, muito obrigado por ter respondido ao meu topido.
:D :lol: :wink:


GOSTEI 0
POSTAR