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