¿Por qué CommitRetaining funciona después de agregar, pero no después de modificar?

[[Al González]]

¡Buen día a todos!

En una aplicación Delphi7 + IBX + Firebird 1.5, utilizo la operación CommitRetaining después de hacer una actualización de registro a una tabla.

Esto me permite que al guardar un registro nuevo, otras aplicaciones cliente tengan automáticamente acceso a él. Sin embargo, cuando modifico un registro que acaba de ser dado de alta, guardándolo de nuevo después de la modificación, CommitRetaining no actualiza dicho cambio.

En las demás aplicaciones cliente el registro se ve como fue guardado la primera vez. En la aplicación, al cerrar la tabla y volverla a abrir, veo que efectivamente el cambio no se realizó.

¿Podrían ayudarme con este extraño caso? Sospecho que tiene que ver con un impedimento de la base de datos para realizar la modificación física del registro. Sólo que no hay mensaje de error al respecto.

Gracias.

Al González .

[__cadetill]

Hola Al

Con que componente realizas las modificaciones? Con un TIBDataset? Si es así, mira que esté informada la propiedad ModifySQL (o algo así )

[[Al González]]

¡Buen día a todos!

Gracias por responder Cadetill.

Estoy utilizando TIBTable. Después de algunas pruebas adicionales, descubrí que funciona sólo si antes de modificar el registro, llamo al método Refresh de la tabla. Lo cual, claro está, no justifica el extraño comportamiento que se presenta.

Le hecharé un vistaso al código interno del método Refresh, para ver si encuentro otra pista.

De cualquier forma, les agradezco sus aportaciones.

Seguimos en contacto.

Al González .

[[Al González]]

¡Buen día a todos!

Bien, parece que ya encontré la causa del problema, no así todavía la solución.

Hice la misma prueba con un TIBDataSet y sudedió exactamente lo mismo. Luego utilicé un componente TIBSQLMonitor para examinar detenidamente las instrucciones SQL que se generaban cuando intentaba guardar el registro modificado.

Uno de los campos de la tabla es entero, autoincrementado con un generador y un disparador before insert en la base de datos. Cuando doy de alta un registro, dicho campo obtiene su valor correctamente en la tabla, más no así en la memoria del componente TIBTable/TIBDataSet. En este último, después de realizar el guardado (Post) del nuevo registro, el campo autoincrementado se presenta aún en blanco, con su valor nulo predeterminado (¿por qué? ¿debo refrescarlo? ¿cómo es adecuado hacerlo?). Por lo tanto, cuando intento guardar la modificación de un registro en la tabla, en ésta no hay físicamente un registro que coincida con ese valor nulo del campo en memoria, y la sentencia SQL Update interna no realiza ninguna modificación.

Ahora, con esto. Según veo, la solución está en hacer que el campo autoincrementado obtenga su valor correcto en la memoria del programa, antes de intentar hacer cualquier modificación sobre el registro. Si el disparador es before insert, entiendo que el campo debería presentar un valor, por lo menos después de guardar un nuevo registro (Insert Into).

¿Qué debo hacer para que ésto suceda? ForcedRefresh no surte efecto al respecto. Refresh si pero se cambia de registro, además de que tendría que llamarlo entonces siempre después de guardar un registro nuevo, por cada tabla de la base de datos que utilice un generador para alguno de sus campos.

Les agradezco mucho todas sus aportaciones.

Seguimos en contacto.

Al González .

[__cadetill]

Veamos, que no se si te he entendido. ¿Estás diciendo que en el Before Insert del TIbTable o TIbDataset coges el valor de la clave del nuevo registro? Si es así, es normal que no tenga ningún valor, en el Before Insert todabía no se ha añadido el registro. Lo que me extraña es que no te dé ningún error :s

Para asignar valores a los nuevos registros, yo te aconsejo utilizar el evento OnNewRecord

Pruebalo y nos comentas

[[Al González]]

¡Buen día a todos!

Hola Cadetill, agradezco mucho tus respuestas.

Con respecto a:

Empezado por cadetill

...en el Before Insert del TIbTable o TIbDataset coges el valor de la clave del nuevo registro?...te aconsejo utilizar el evento OnNewRecord...

Debo comentar que conozco y se cómo se utilizan los eventos BeforeInsert y OnNewRecord de TDataSet. Nada más que con "Before Insert", yo me refería al momento en el que un disparador (trigger) en la base de datos se ejecuta para asignar el valor al campo entero autoincrementado, utilizando un generador. Es decir un disparador creado con la sintaxis SQL Create Trigger Nombre For TABLA Before Insert As...

Empezado por Al González

...Uno de los campos de la tabla es entero, autoincrementado con un generador y un disparador before insert...Si el disparador es before insert, entiendo que el campo debería presentar un valor, por lo menos después de guardar un nuevo registro (Insert Into)...

El problema que tengo es que en pantalla (y en la memoria de TIBTable/TIBDataSet) no se presenta el valor del campo autoincrementado, aún cuando ya guardé el registro. Sólo se ve hasta que cierro y vuelvo a abrir la tabla.

Muchas gracias. Algo me dice que la solución está cerca.

Al González .