[firebase-br] Mesmo com erro o Commit ocorre

[Levi Tancredo - Suporte]

Eu uso D5 e utilizo o IBDatabase, IBTransaction, e não tem essa opção. Tem
uma assim: DefaultAction:=TACommit; 
Eu iniciei com StartTransction.


Assim:

Procedure FrmPrincipal.Deletar();
var Query:tIBQuery;
begin
  Query:=TIBQuery.create(nil);
  try
    Query.Database := DMPrincipal.IBDatabase;
    Query.Transaction := DMPrincipal.IBTrans_Coletivo;
    Query.Transaction.StartTransaction;

    Query.SQL.Clear;
    Query.SQL.Add('DELETE FROM CLIENTES');
    ...
    ...
    {Ocorreu um erro}
    ...
    ...  
    Query.Transaction.Commit;
  except
    Query.Transaction.Rollback;
  end;
End;

Porque ele executa a ação mesmo sem receber o Commit?


---------------------------
Levi Tancredo
(48)632-3178 / 9109-5575
http://www.flexsw.com.br
---------------------------