Commit no se ejecuta

[Casimiro Notevi]

Me refería a todo el código implicado en la transacción
Ahí veo que haces commit, pero ¿cuándo inicias la transacción en esos casos?
¿Cómo tienes definido el TIBTransaction?

[Angel.Matilla]

Vale, te había entendido mal. Lo cierto es que, y me acabo de dar cuenta al leer este mensaje tuyo, que la transacción la tengo definida en el formulario principal... ¡pero luego no hago nada con ella! Quiero decir: ni la abro, ni la verifico, ni nada de nada, ¡y sin embargo funciona bien! Los registros se graban, se actualizan, se borran. No lo entiendo.


En la transacción asociada al query que hace el INSERT sólo tengo puesto:

AutoStopAction = falseDefaultAction = TACommit
Name = tGesInt

El resto de propiedades están como vienen por defecto en el objeto. Es evidente que algo estoy haciendo mal.

[Angel.Matilla]

Empezado por Casimiro Notevi

Ahí veo que haces commit, pero ¿cuándo inicias la transacción en esos casos?

¡Miento! Como me dejaste con la mosca detrás de la oreja he estado repasando el código. La transacción la activo cuando conecto la base de datos:

Código PHP:

GesInt->DatabaseName = AnsiString(cTablas) + "GesInt.fdb";
GesInt->Params->Clear();
GesInt->Params->Add("user_name=" + NombreUser);
GesInt->Params->Add("password=" + ClaveUser);
GesInt->Params->Add("lc_ctype=ISO8859_1");
GesInt->SQLDialect            = 3;
GesInt->Connected             = true;
Auxiliar->Transaction->Active = true;
Query->Transaction->Active    = true; 


Todas las varaibels que hay por ahí danzando (cTablas, NombreUser y ClaveUser) están bien definidas y con valores correctos. Ese es el úncio sitio donde modifico el esatdo de las transacciones.

[Casimiro Notevi]

Elimina esos commit que haces después de los execsql
Al componente TIBTransaction dale estos valores:

write
nowait
rec_version
read_committed

Luego, en el evento del query que lo necesites, haces un commit explícito:

Código Delphi [-]
procedure TDMmain.QRcentrosCosteAfterPost(DataSet: TDataSet);
begin
  DataSet.Transaction.CommitRetaining;
end;

Y por supuesto, no olvides hacer un commit (no un commitretaining) por ejemplo cuando vuelves a la pantalla principal. Ya depende de cómo tengas estructurado tu programa.

[Angel.Matilla]

Empezado por Casimiro Notevi

Al componente TIBTransaction dale estos valores:

write
nowait
rec_version
 read_committed

¿Dónde pongo esos valores? ¿En los parámetros? ¿Cómo? Porque en la ayuda no lo he visto. El resto del código que me sugieres no se me había ocurrido, la verdad.

[Casimiro Notevi]

Por ejemplo, doble click en el componente.
O botón derecho sobre el mismo -> editar parámetros de transacciones.

[Angel.Matilla]

Imagino que te refieres a esto:

Los valores de la izquierda, ¿los dejo tal cual, sin seleccionar ninguno?

[Casimiro Notevi]

Ese diálogo es.
No hace falta que tú lo teclees. Si marcas "Read Commited" verás que se escriben esas opciones.