Erro parâmetros AdoQuery
22/03/2022
0
Sou totalmente novo no Delphi. Venho da WEB e preciso fazer projetinho no Delphi (XE8).
Basicamente, a rotina é:
Estou fazendo um SELECT em um banco de dados MySql e vejo qual o ID do último registro inserido. Pego o resultado dessa consulta e guardo em uma variável chamada id.
Uso o ADOQuery e faço um SELECT em um banco de dados access, passando como parâmetro no WHERE o id recebido anteriormente.
Quando rodo a consulta, me retorna: ADOQuery1: Parameter ''id_param'' not found.
Abaixo, meu código para análise. Não crio nada via design, tudo via código.
SQL.Clear;
ShowMessage(id); //retorna o id recebido na consulta ao Mysql
SQL.Add(''SELECT * FROM TABELA'');
SQL.Add(''WHERE "Código" >: id_param'');
SQL.Add(''ORDER BY "Código" DESC'');
SQL.Add(''LIMIT 100'');
ADOQuery1.Parameters.ParamByName(''id_param'').Value := StrtoInt(id);
Open;
Showmessage(''Passou na função tudo belezinha. A Campo na tabela Access é '' + FieldByName(''campo'').AsString); //Não chega aqui.. dá o erro do Parâmetro antes.
Alguém consegue me passar uma luz e me mostrar onde esta o erro?
PS: O Nome da tabela no Access realmente é Código, com Upper, Lower Case e acentuação.
Oswaldo
Posts
23/03/2022
Emerson Nascimento
SQL.Add('WHERE "Código" > :id_param');23/03/2022
Oswaldo
SQL.Add('WHERE "Código" > :id_param');Olá, obrigado por ajudar.
sim, a comparação é "maior" realmente. A sua dica funcionou, dicar o : colado ao nome do parâmetro resolveu o erro. Agora, esta dando erro de sintaxe na cláusula ORDER BY.
Consegue ver algum erro nela?
SQL.Add('ORDER BY "Código" DESC');
23/03/2022
Gxf
ShowMessage(id); //retorna o id recebido na consulta ao Mysql
SQL.Add('SELECT * FROM TABELA ');
SQL.Add('WHERE 'Código' > :id_param ');
SQL.Add('ORDER BY 'Código' DESC ');
SQL.Add('LIMIT 100');
ADOQuery1.Parameters.ParamByName('id_param').Value := StrtoInt(id);
Open;
Showmessage(''Passou na função tudo belezinha. A Campo na tabela Access é '' + FieldByName(''campo'').AsString); //Não chega aqui.. dá o erro do Parâmetro antes.
23/03/2022
Oswaldo
O problema estava no LIMIT 100.
SQL.Clear;
//ShowMessage(id); //retorna o id recebido na consulta ao Mysql
SQL.Add('SELECT TOP 100 * FROM TABELA');
SQL.Add('WHERE 'Código' > :id_param ');
SQL.Add('ORDER BY 'Código' DESC ');
ADOQuery1.Parameters.ParamByName('id_param').Value := StrtoInt(id);
Open;
Showmessage(''Passou na função tudo belezinha. A Campo na tabela Access é '' + FieldByName(''campo'').AsString);
Esse código funcionou 100%. Agradeço a todos pela ajuda e esclarecimentos.
Clique aqui para fazer login e interagir na Comunidade :)