Cómo controlo la Transaccion iniciada..

[ronimaxh]

Hola amigo del clud, tengo una plicación que usa sql sever 2000 y la conexion es ado.

La pregunta es la siguiente si realizo una transacción y en el preceso ocurrre un error me da una excepcion y lo controlo con esto:

Código Delphi [-]
             frmdata.conexion.BeginTrans;
             iniciando el proceso.....
              try
              Post;
              frmdata.conexion.CommitTrans;
              limpia_comentario;
              Application.MessageBox('Guardado','Atención',+MB_ICONINFORMATION);
              except
              frmdata.conexion.RollbackTrans;
              Application.MessageBox('Transacción Cancelada','Atención',+MB_ICONERROR);
              end;

Nota:  cuando ocurre el frmdata.conexion.RollbackTrans;
aquí se mantiene la transacción y luego me dice que no se puede iniciar mas transacción en está sección, como cancelo la transacción iniciada.