Transaction is active

[Carmelo Cash]

Hola foro:

He realizado con éxito una migración de base de datos de InterBase a Firebird.

Ahora estoy tratando de no utilizar más BDE para la conexión,

Para conectarme decidí utilizar TIBDatabase (lo nombré "DBConexion").
y un TIBTransaction enlazado (lo nombré "Administracion").

A continuación transcribo el código que utilizo "hasta ahora" para modificar datos utilizando transacciones.

Código Delphi [-]
begin
  D_Datos.Administracion.StartTransaction;
  Try
    qUpdate.ParamByName('P_ID_Operador').Value:=1;
    qUpdate.ExecSQL;
    D_Datos.Administracion.Commit;
  Except
    D_Datos.Administracion.Rollback;
    MessageDlg('Error');
    raise;
  end;
end;

en la línea D_Datos.Administracion.StartTransaction, da el error "Transaction is active"

Les recuerdo que "Administracion" es el componente TIBTransaction.

Bueno. Desde ya gracias por su atención.

[Caminante]

Podrias poner

Código Delphi [-]
begin
if not D_Datos.Administracion.intransaction then
  D_Datos.Administracion.StartTransaction;
  Try
    qUpdate.ParamByName('P_ID_Operador').Value:=1;
    qUpdate.ExecSQL;
    D_Datos.Administracion.Commit;
  Except
    D_Datos.Administracion.Rollback;
    MessageDlg('Error');
    raise;
  end;
end;

Espero te sea util.

Saludos

[Carmelo Cash]

Gracias Caminante.
Funciona bien pero no entiendo cual es la razón, ya que funciona igual que si no coloo el .StartTransaction;. ¿?

o sea, esto tambien funciona:

Código Delphi [-]
begin
  Try
    qUpdate.ParamByName('P_ID_Operador').Value:=1;
    qUpdate.ExecSQL;
    D_Datos.Administracion.Commit;
  Except
    D_Datos.Administracion.Rollback;
    MessageDlg('Error');
    raise;
  end;
end;

[Casimiro Notevi]

Porque ya tienes abierta una transacción desde que conectas a la BD

[Carmelo Cash]

Gracias Casimiro y Caminante, aclaro como fue:

Si estoy conectado con BDE esto funciona bien

Código Delphi [-]
begin
  QueryConsulta.open;                Abro una consulta y luego comienzo la transacción

  D_Datos.Administracion.StartTransaction;
  Try
    qUpdate.ParamByName('P_ID_Operador').Value:=1;
    qUpdate.ExecSQL;
    D_Datos.Administracion.Commit;
  Except
    D_Datos.Administracion.Rollback;
    MessageDlg('Error');
    raise;
  end;
end;

Si estoy conectado con TIBDatabase esto No funciona bien

Código Delphi [-]
begin
  QueryConsulta.open;                Abro una consulta y aparentemente esto ya dispara un comienzo de transacción

  D_Datos.Administracion.StartTransaction;            Entonces esto da error
  Try
    qUpdate.ParamByName('P_ID_Operador').Value:=1;
    qUpdate.ExecSQL;
    D_Datos.Administracion.Commit;
  Except
    D_Datos.Administracion.Rollback;
    MessageDlg('Error');
    raise;
  end;
end;

Por lo tanto la solución propuesta por Caminante es correcta.
Eso es todo.
Saludos

[ecfisa]

Empezado por Carmelo Cash

....
Si estoy conectado con TIBDatabase esto No funciona bien
...

Hola Carmelo Cash.

En realidad puede funcionar bién o no dependiendo de el valor que tenga asignada la propiedad AutoStopAction del TIBTransaction. Aquella puede tomar los valores: saCommit, saCommitRetaining, saNone, saRollback y saRollbackRetaining.

Si la propiedad está en: saNone, saCommitRetaining o saRollbackRetaining la transacción no es finalizada por lo que no es necesario usar el método StartTransaction para volver a ejecutar el código.

Saludos

[Carmelo Cash]

Hola Eficsa

Probé tu sugerencia de modifica la propiedad AutoStopAction del TIBTransaction, pero si no coloco

Código Delphi [-]
if not D_Datos.Administracion.intransaction then
  D_Datos.Administracion.StartTransaction;

Sigue apareciendo el error..

[ecfisa]

Hola Carmelo Cash.

No fuí claro en el mensaje anterior, no quise sugerir que no usaras lo que te propuso Caminante, eso es correctísimo ya que previene cualquier posibilidad de entrar al código con el estado Active en False. Es decir si el IBTransaction esta inactivo es necesario cambiar su estado para operar qualquier TDataSet vinculado a él.

Lo que quise mencionar es el comportamiento del TIBTransaction cuando no se explicita la acción mediante los métodos: Commit, CommitRetaining, Rollback o RollbackRetaining.
En ese caso el TIBTransaction usará la acción definida en la propiedad AutoStopAction cuando se cierre el último TDataSet asociado a esa transacción.

Saludos

[Carmelo Cash]

Ok.
Gracias.