erro de dados no QReport
Ola comunidade, vida de iniciante é dificiu
Estou tentando colocar este sql em um relatorio do qreport do delphi 7
procedure TfrmDataAniCliente.FormCreate(Sender: TObject);
begin
vSelect := ´Select EXTRACT(Day from dt_nasc), Nome, codigo, dt_nasc, fone, endereco from Clientes ´;
vSelect := vSelect+´where EXTRACT (Month from dt_nasc) = :Mes ´;
vSelect := vSelect+´ ORDER BY NOME ´;
ADO_ClientesAni.Close;
ADO_ClientesAni.SQL.clear;
ADO_ClientesAni.SQL.Add(vSelect);
ADO_ClientesAni.ParamByName(´Mes´).AsString := FrmRelClientes.Edit1.text;
ADO_ClientesAni.Open;
PreverAni.Preview;
close;
end;
Mais quando executo ele da o seguinte erro (CONVERTION ERROR)
Estou usando uma query do ZEOS, delphi7 e firebird 2.0
ou se alguem tiver um jeito mais simples de retornar os aniversariantes do mes X.
Desde ja agradeço pela ajuda
Estou tentando colocar este sql em um relatorio do qreport do delphi 7
procedure TfrmDataAniCliente.FormCreate(Sender: TObject);
begin
vSelect := ´Select EXTRACT(Day from dt_nasc), Nome, codigo, dt_nasc, fone, endereco from Clientes ´;
vSelect := vSelect+´where EXTRACT (Month from dt_nasc) = :Mes ´;
vSelect := vSelect+´ ORDER BY NOME ´;
ADO_ClientesAni.Close;
ADO_ClientesAni.SQL.clear;
ADO_ClientesAni.SQL.Add(vSelect);
ADO_ClientesAni.ParamByName(´Mes´).AsString := FrmRelClientes.Edit1.text;
ADO_ClientesAni.Open;
PreverAni.Preview;
close;
end;
Mais quando executo ele da o seguinte erro (CONVERTION ERROR)
Estou usando uma query do ZEOS, delphi7 e firebird 2.0
ou se alguem tiver um jeito mais simples de retornar os aniversariantes do mes X.
Desde ja agradeço pela ajuda
F4rr3ll
Curtidas 0
Respostas
F4rr3ll
19/05/2009
ja rodei este sql no banco de dados e funciona certinho
GOSTEI 0
F4rr3ll
19/05/2009
So que quando rodo no delphi, nao funciaona
GOSTEI 0