Como si hubo un error en una transacion

[JODELSA]

Hola a todos !

Estoy manejando transaciones con delphi7 y me conecto con ADO y mi base de datos es de Access.

Esto es un ejemplo de lo que quiero controlar:

AdoConnection.BeginTrans
AdoQry1.open;
AdoQry1.append;
AdoQry1Nombre.value:='jose';
AdoQry1Nombre.value:='jose';
AdoQry1Nombre.value:='jose';
AdoQry1.post;
AdoConnection.CommitTrans;

?Como capturo y controlo un error si ocurre en este codigo para luego aplicarle un AdoConnection.RollbackTrans

Gracias de antemanos

[mamcx]

Usa un try..except

Código Delphi [-]
AdoConnection.BeginTrans
try
  AdoQry1.append;
  AdoQry1Nombre.value:='jose';
  AdoQry1.post;

  AdoConnection.CommitTrans;
except
  AdoConnection.RollbackTrans;
  raise;
end;