Commit no se ejecuta
 

Antes que nada advertir que he estado buscando por el foro pero el único caso que he visto similar al mio es usan componentes FireDAC que yo no uso.

En una aplicación con BCB6 estoy migrando una base de datos Access a otra Firebird. En principio no me está dando demasiados problemas pero al cargar una de las tablas con definiciones FOREIGN KEY sobre otras de la BB.DD. me están surgiendo problemas. Tengo este código apra insertar registros en una tabla FB:
Tras grabar este registro tengo que ejecutar este otro código sobre otra tabla:
Ambos códigos se ejecutan uno tras otro. El problema que se me está presentando es que si el registro a buscar en este SELECT coincide con el que acabo de grabar en el INSERT anterior siempre se sale por el continue del final y no sé como evitarlo sin tener que andar cerrando y abriendo la BB.DD. Los elementos que estoy usan son dos TIBQuery (Query y Auxiliar), un TEdit (Edit) y un TADOQuery (qGesElec1).

Bueno, no pones el código completo de esa parte y no podemos saber dónde inicias la transacción y demás. Se supone que en la consulta no estarás obteniendo los datos de otra transacción que, obviamente, no ve a la anterior.

¡Uf! ¿Todo el código? Luego no quiero protestas
tGesElec es un TADOTable. El problema ya os digo viene al tratar de buscar el último código grabado; ejecutando con el depurador y una vez hecho el segundo commit si busco el registro con SQLManager sí lo veo, pero si sigo la ejecución del programa entonces da un query vacío.

Es la primera vez que me tengo que enfrentar a un BB.DD. Acces, que encima ni he diseñado yo ni tengo documentación alguna sobre su estructura. Los querys sobre Access (qGesElec1 y qGesElec2) los estoy montando así porque si tarto de hacerlo con parámetros no sé como se hace; pensaba que era como en el caso de los TIBQuery.

El bucle ese for (nItem = 1; nItem < 8; nItem ++) es porque en dos tablas Access todos los registros están definidos como Ele_Part1, Ele_Part62, etc. y Vot_P1, Vot_P2, etc. Encuentro absurdo crear registros sin información sin razón alguna y los estoy cambiando de forma.

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

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:
El resto de propiedades están como vienen por defecto en el objeto. Es evidente que algo estoy haciendo mal.

¡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:
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.

Elimina esos commit que haces después de los execsql
Al componente TIBTransaction dale estos valores:
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.

¿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.

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

Imagino que te refieres a esto:

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

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

Gracias por todas las respuestas (me estáis enseñando un montón de cosas que desconocía) y perdón por lo paliza que llego a ser. Vamos a ver. He hecho lo que me has sugerido: darle los valores a la transacción, poner el código de la transacción (lo he puesto en el evento QueryAfterPost, como en tu ejemplo, pero tal vez no sea el mejor sitio) y he eliminado los commit tras los ExecSQL... ¡Pero me sigue haciendo lo mismo! Cuando tiene que buscar el último valor que se ha grabado en el query INSERT INTO Mesas, sigue sin encontrarlo y se salta el resto del código. De hecho tengo puesto con el depurador que se pare en:
pero ni siquiera llega a entrar en ese evento; tengo puesta la "parada" justo en la línea del CommitRetainig. El código está puesto así, de forma similar a otros eventos, para que me valga para otros querys que hay en la aplicación; por ejemplo:

Pero, ¿qué error sale? ¿has verificado qué valores llevan los parámetros? etc.

No sale ningún error; hace lo mismo que antes: al llegar a verificar si el query a devuelto algo, como no encuentra el dato continua con el siguiente valor del bucle. Sí, los parámetros están puestos todos. Ya te digo que he puesto el código que me has sugerido donde he indicado (en el AfterPost) pero ni siquiera llega a entrar en el evento.

Tras el insert, ¿se guardó el registro?
Al hacer después el select, ¿has comprobado el query con ibexpert, o el programa que uses, para ver si es correcto?

Sí. Yo uso SQL Manager, pero es lo mismo; después del insert sí puedo hacer la consulta con SQL Manager.

Por lo tanto el problema está en el código donde se hace el select, ¿lo has seguido paso a paso con el depurador?

Sí, y se ejecuta perfectamente y sin errores. De hecho he comprobado con el propio SQL Manager que hace bien el INSERT.

No, si digo en el select, que es el que no hace:

¡Ah! El select tampoco da ningún error; simplemente no devuelver nada. Y como en el insert está probado con el SQL Manager y ahí sí devuelve resultado.