Fórum erro de dados no QReport #370577
19/05/2009
0
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
Curtir tópico
+ 0
Responder
Posts
19/05/2009
F4rr3ll
ja rodei este sql no banco de dados e funciona certinho
Responder
Gostei + 0
20/05/2009
F4rr3ll
So que quando rodo no delphi, nao funciaona
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)