Transações no Firebird 2.0

Firebird

16/12/2007

No SQL Server uso o seguinte comando para executar transações:

BEGIN TRAN

Delete * From T003_Associados Where AssociadoID = 3
COMMIT TRAN

ROLLBACK

E Funciona bem.

Como uso esse mesmo comando usando o Firebird 2.0?


Developer1978

Developer1978

Curtidas 0

Respostas

Sremulador

Sremulador

16/12/2007

da mesma forma mas vc pode usar tb

arbAGRE

CommitRetaining

e

RollbackRetaining


GOSTEI 0
Developer1978

Developer1978

16/12/2007

Veja o código do botão excluir:
try
DMCadastro.Q_Aux.Close;
DMCadastro.Q_Aux.SQL.Text := ´ BEGIN TRAN ´;
DMCadastro.Q_Aux.ExecSQL; // Aqui ocorre o erro

DMCadastro.Q_Aux.Close;
DMCadastro.Q_Aux.SQL.Text := ´ DELETE FROM T003_ASSOCIADOS WHERE ASSOCIADOID = ´ + IntToStr(DMCadastro.cdsCadAssociadosASSOCIADOID.AsInteger);
DMCadastro.Q_Aux.ExecSQL;

DMCadastro.Q_Aux.Close;
DMCadastro.Q_Aux.SQL.Text := ´ CommitRetaining ´;
DMCadastro.Q_Aux.ExecSQL;
except
DMCadastro.Q_Aux.Close;
DMCadastro.Q_Aux.SQL.Text := ´ RollbackRetaining ´;
DMCadastro.Q_Aux.ExecSQL;
DMCadastro.fnMensagens(´Erro ao excluir registro!´);
end;

aparece a mensagem de erro quando é executada a primeira instrução SQL : ´Token Uncknow - line1, column 2 BEGIN´.


GOSTEI 0
POSTAR