Fórum FDQuery + FFDConnection #551471
15/04/2016
0
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..
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
Curtir tópico
+ 0
Responder
Posts
15/04/2016
Raimundo Pereira
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;
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;
Responder
Gostei + 0
15/04/2016
Geraldo Barroso
P2 valeu vou tentar aki posto se deu certo..
Desde já agradeço.
Desde já agradeço.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)