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.