Delphi - Erro Token Not Found

27/06/2017

0

Pessoal agora o problema é que ele dá erro de TOKEN NOT FOUND ao realizar esta consulta SQL no Delphi... Quando tiro o LIMIT :Edit1 do código abaixo ele executa bem mais com ele dá esse erro... Alguma sugestão?



procedure TForm4.Button1Click(Sender: TObject);

begin
   Try
    Query5.Close;
    Query5.SQL.Clear;
    Query5.SQL.Add('DELETE FROM Produtos WHERE MarcaProduto = :Combo2 LIMIT :Edit1');

    Query5.ParamByName('Combo2').Value:=ComboBox2.Text;
    Query5.ParamByName('Edit1').Value:=StrToInt(Edit);
    Query5.ExecSQL;
    //Query5.Open;
    ShowMessage('Compra finalizada!');
   Except
    Showmessage('Aconteceu um erro...');
   end;
end;
Clovis Júnior

Clovis Júnior

Responder

Posts

27/06/2017

Smaili Amorim

Query5.ParamByName('Edit1').Value:=StrToInt(Edit);
muda para
Query5.ParamByName('Edit1').Value:=StrToInt(Edit.text);
Responder

28/06/2017

Clovis Júnior

Query5.ParamByName(''Edit1'').Value:=StrToInt(Edit);
muda para
Query5.ParamByName(''Edit1'').Value:=StrToInt(Edit.text);


Pois é tem esse detalhe... mas depois que modifiquei como vc disse continuou dando o mesmo erro de token
Responder

28/06/2017

Natanael Ferreira

Faltou um AND ou OR (depende da sua condição) antes de LIMIT :Edit1.

Acrescente isso e teste novamente.
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