Fórum Transações no Firebird 2.0 #59260

da mesma forma mas vc pode usar tb

arbAGRE

CommitRetaining

e

RollbackRetaining

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´.