Delphi: erro na consulta de aniversariantes

27/04/2017

0

Boa tarde pessoal!

Estou usando o DELPHI 2010 com banco ACCESS e surgiu o seguintes erros no código em tela:

Qryclientes.Close;
Qryclientes.SQL.Clear;
Qryclientes.SQL.Add('select * from Clientes');
Qryclientes.SQL.Add('where extract(month from Nascimento) = :Mes');
Qryclientes.ParamByName('Mes').AsInteger := StrToInt(EdtNiver.Text);
Qryclientes.Open;

Erros:

[DCC Error] UConsultas.pas(40): E2003 Undeclared identifier: 'ParamByName'
[DCC Error] UConsultas.pas(40): E2066 Missing operator or semicolon

Alguém sabe me dizer o que está acontecendo??

Grato.
Mailson Janoca

Mailson Janoca

Responder

Post mais votado

27/04/2017

Olá!

Vc colocou esse mesma query na sua tabela para retornar o resultado esperado?

Ediberto Alves

Ediberto Alves
Responder

Mais Posts

27/04/2017

Jones Granatyr

Opa! Ao invés de colocar o ParamByName, coloque Params[0]

Seria somente pra testar se o problema está na query ou algo com o ParamByName
Responder

28/04/2017

Mailson Janoca

Bom dia!

Agradeço pela a ajuda, mas não deu certo!
Responder

28/04/2017

Daniel Araújo

Bom dia!
Essa query que tu tá utilizando é de qual componente? BDE, ADO, DBExpress, etc?
Responder

28/04/2017

Mailson Janoca

Bom dia

E da paleta ADO.
Responder

28/04/2017

Daniel Araújo

Tenta substituir isso:
Qryclientes.ParamByName('Mes').AsInteger := StrToInt(EdtNiver.Text);


Por isso:
Qryclientes.Parameters.ParamByName('Mes').Value := StrToInt(EdtNiver.Text);


Se a resposta foi útil dê um like!!!
Responder

28/04/2017

Alex Giordan

Boa noite.
Uma sugestão, pegue o mês em uma função separada, e depois já passe pronto formatado no seu Qryclientes.SQL.Add('where extract(month from Nascimento) = :Mes'); assim vc não necessitaria mais do ParamByName.
Responder

02/05/2017

Mailson Janoca

Bom dia!

Não deu ....
Responder

02/05/2017

Mailson Janoca

Bom dia!

Poderia me ajudar ???
Responder

02/05/2017

Cesar Azeredo

Tenta Qryclientes.Params.paramvalues[''Mes''] := StrToInt(EdtNiver.Text);
Responder

04/05/2017

Alex Giordan

Coloca ai para nós todo o seu método que esta dando erro. Grato
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar