FDQuery + FFDConnection

Delphi

15/04/2016

Ajuda com código,

O código abaixo atualiza um campo que indica quem esta começando a alterar uma informação preciso de guardar o nome da estação que esta
abrindo o registro, tento fazer o código abaixo e não grava informação.

Alguém pode dar uma luz o que posso esta fazendo de errado

Banco firebird 1.5
FDConnection
FDQquery já usei com FDUpdateSql e nda..



 FDQuery.Close;
 FDQuery.SQL.Clear;
 FDQuery.SQL.Add('UPDATE TABELA  SET CAMPO=''DELL_001''  WHERE CODIGO=4');
 FDQuery.ExecSql;
Geraldo Barroso

Geraldo Barroso

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

15/04/2016

DM.FDQuery.Close;
DM.FDQuery.SQL.Clear;
DM.FDQuery.SQL.Add('SELECT * FROM TABELA WHERE CODIGO='''+IntToStr(4)+'''');

DM.FDQuery.OPEN;
if DM.FDQuery.RecordCount=0 then
begin
ShowMessage('Atualização não permitida, código informado não localizado na Tabela');
exit;
end
else
begin
try
DM.FDQuery.Close;
DM.FDQuery.SQL.Clear;
DM.FDQuery.SQL.Add('UPDATE TABELA SET CAMPO='''+'DELL_001'+''''+' WHERE CODIGO='''+IntToStr(4)+'''');
MEMO1.Lines.Clear;
MEMO1.Lines.Add(DM.FDQuery.SQL.Text);


DM.Transaction.StartTransaction;
DM.FDQuery.ExecSql;
DM.Transaction.Commit;
ShowMessage('Atualização realizada com sucesso');


except

on E : Exception do
ShowMessage(' Verifique sua estrutura de Update : '+E.Message);

end;
DM.Transaction.Rollback;
end;
GOSTEI 0
Geraldo Barroso

Geraldo Barroso

15/04/2016

P2 valeu vou tentar aki posto se deu certo..

Desde já agradeço.
GOSTEI 0
POSTAR