Delphi - Erro Token Not Found
27/06/2017
0
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
Posts
27/06/2017
Smaili Amorim
muda para
Query5.ParamByName('Edit1').Value:=StrToInt(Edit.text);
28/06/2017
Clovis Júnior
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
28/06/2017
Natanael Ferreira
Acrescente isso e teste novamente.
Clique aqui para fazer login e interagir na Comunidade :)