¿Por qué a veces recibo un & # 8220; Objeto de transacción no válido & # 8221; ¿excepción?

Question

¿Hay algún problema con este código?
A veces obtengo un objeto de transacción " Inválido no válido " excepción en ella:

procedure BlaBla;
var
  TD: TDBXTransaction;
begin
  TD := SQLConnection.BeginTransaction;
  try
    SQLConnection.ExecuteDirect('some sql command');
    SQLConnection.ExecuteDirect('some sql command');
    SQLConnection.CommitFreeAndNil(TD);
  except
    SQLConnection.RollbackFreeAndNil(TD);
  end;
end;

Esta excepción se presenta al usuario, por lo que asumo que RollbackFreeAndNil la genera, ya que todo el resto está dentro de un intento ... excepto.

¿Debería envolver RollbackFreeAndNil con otro intento ... excepto? Qué desastre.

Estoy usando Delphi 2009, DBX con Firebird 2.1 y el controlador de Devart.

Answer 1

El problema es que SQLConnection.BeginTransaction devuelve nulo si SQLConnection no está conectado a la base de datos. Y luego obtengo la excepción de objeto de transacción no válido.

Nunca esperé eso. Debería intentar conectarse o plantear una excepción. Volver a cero no tiene sentido para mí.

Answer 2

¿Qué pasaría si CommitFreeAndNil lanzó una excepción?

RollbackFreeAndNil se llamará. ¿Sería TD válido entonces?

Estás comiendo la excepción, y por lo tanto la evidencia. No hagas eso volver a tirar:

procedure BlaBla;
var
  TD: TDBXTransaction;
begin
  TD := SQLConnection.BeginTransaction;
  try
    SQLConnection.ExecuteDirect('some sql command');
    SQLConnection.ExecuteDirect('some sql command');
  except
    SQLConnection.RollbackFreeAndNil(TD);
    raise;
  end;
  SQLConnection.CommitFreeAndNil(TD);
end;

Answer 3

algunas veces es que ejecutas varios procedimientos con un componente como cxdbmemo y le das un error. Debe eliminar ese componente (o algo así) y hacer su transacción normal.

Answer 4

SQLConnection.DBXConnection.BeginTransaction(TDBXIsolations.ReadCommitted);