Duda sobre grabación de registros

[usuario1000]

Buenas a todos,


Tengo el siguiente problema en una base de datos y que trabaja con datos reales y me tiene muy mosca, a ver si podéis echarme un cable.


Tengo una aplicacion hecha en Delphi 10 Seatle y que trabaja en red local con firebird, utilizo alrededor de 20 tablas. El problema viene que de vez en cuando y no siempre, algún usuario introduce unos datos y no se refleja de inmediato en la base de datos, se quedan en el limbo, y se llega a actualizar cuando cierro el servidor ó la aplicación cliente (se me olvidaba comentar que la aplicación es DATASNAP). He revisado uno de los procedimiento que me ha fallado y tiene puesto su correspondiente transacciones.StartTransaction, Transacciones.commit ó si procede transacciones.rollback.



Tengo una conexion creada y asociado a esa conexión tengo un componente TFDTransaction, del cual tiro para realizar las transacciones en cada escritura que se realiza a la base de datos.


¿que puede estar pasando?, ¿como hago para que no se queden datos colgados y se graben directamente sin esperar un segundo, existe alguna instruccion?



Me estoy deprimiendo....


Gracias a todos.

[Al González]

Crea una prueba aislada del problema, colocando en una nueva aplicación los elementos esenciales del proceso, como son los componentes de acceso y conexión de base de datos. Un simple formulario, con un botón para intentar reproducir el problema.

Es normal abrumarse ante un bug misterioso cuando este ocurre a mitad del bosque. Pero es un poco más fácil encontrar la causa si se recorta ese pequeño trozo de bosque y se planta en la maceta de tu ventana.

¡Y nos muestras el código!

Saludos.

[Casimiro Notevi]

Un commit que falta por ahí, también :)

[usuario1000]

Gracias por las respuestas, me he limitado a ejecutar un proceso sencillo y he hecho paso a paso lo siguiente y algo falla, me explico:


transacciones.StartTransaction;
try
QExpedientes.ExecSQL;// (aquí paro la ejecución y la ejecuto paso a paso)
Result := 'Ok';
transacciones.Commit;
except
on E: Exception do
begin
transacciones.Rollback;

end;

end;


1º Ejecuto el servidor en modo depuración. Es decir paso a paso. Tengo un stop puesto en la instrucción EXECSQL.
2º Ejecuto el Cliente en modo normal.
3º Ejecuto el SQLManager Lite para ver en todo momento los valores que toman los campos de un registro.
4º Modifico un registro en el cliente y pulso aceptar para que mande los datos al servidor con la correspondiente funcion.enviarDatos(dato1, dato2, dato3...);
5º En el servidor se ejecuta el proceso que he copiado mas arriba y se para la linea donde tengo el stop, y empiezo a ejecutar paso a paso.
6º Se ejecuta QExpedientes.ExecSQL y me voy a la base de datos y no observo modificación alguna, es de esperar que sea así, puesto que no ha llegado aún al commit.
7º Cuando se ejecuta la línea "transacciones.Commit", me voy de nuevo a la base de datos (SQLManager Lite) y le doy a refrescar para ver si ha cogido los nuevos datos y no los ha cogido, aún tiene los antiguos. Le doy a refrescar varias veces y nada de nada. Incluso ejecuto otro cliente y aparecen los datos antiguos. Deprimente.
8º Cierro la aplicación y ahora sí, estan los datos en la Base de Datos.


El problema que me encuentro es que en el momento que grabo un registro, no se actualiza la base de datos de inmediato, dando origen a un problema, que es que otro ususario se conecte y le lleguen unos datos que no sean los actualizados. De hecho me ha pasado ya y quiero evitar ese problema con la grabación inmediata de datos del cliente al servidor.


No sé que hago mal, en principio el proceso es muy sencillo, tal como he puesto más arriba. Supongo que será tocar alguna propiedad o algo del componente TFDTRansaction.


Espero me echen un cable.



Gracias anticipadas.

[Caminante]

Hola


No conozco los componentes que usas pero podrias fijarte el nivel de aislamiento de las transaccion con un readcommited ya deberia leer los datos cambiados.


Espero sea util


Saludos

[usuario1000]

Hola


No conozco los componentes que usas pero podrias fijarte el nivel de aislamiento de las transaccion con un readcommited ya deberia leer los datos cambiados.


Espero sea util


Saludos




Gracias por tu respuesta.


El componente TFDFTransaction en su propiedad Isolation tiene asignado "xiReadCommited".



El TFDQuery que utilizo para realizar el "Update from ...." tiene en su propiedad Transaction asignado el componente TFDFTransaction.

En principio no veo nada raro.


Para que me funcione tengo que poner las siguienes instrucciones en el cliente:

resultado:= funcion.enviarDatosAServidor(dato1, dato2, dato3...);
if resultado = 'OK' then

begin

TFDConnection.connected := false;
TFDConnection.connedted:= True;
end;



No me parece muy coherente cada vez que modifique un dato conectar y desconectar el cliente para que actualice la base de datos.


A ver si podemos arreglarlo de otra forma.


Gracias.

[Casimiro Notevi]

Ese componente fdtransaction ¿tiene una propiedad "base de datos", y está asignada?

[usuario1000]

Ese componente fdtransaction ¿tiene una propiedad "base de datos", y está asignada?




Buenas tardes,


El componente en sí, no veo que tenga tal propiedad, no sé si está muy escondida por alguna subpropiedad, pero no la veo.




Como ultima medida estoy pensando en quitar todas las instrucciones de transacciones, a ver si delphi las ejecuta de forma automática y me arregla el problema, pero lo veo raro. Según tengo entendido cuando no ejecutas una transaccion delphi la ejecuta de forma automática, pero no lo hace.


Me gustaría ver como puedo arreglar este problema de que no me graba instantáneamente en las tablas de la base de datos.



Gracias por tu interés.

[Casimiro Notevi]

El componente en sí, no veo que tenga tal propiedad, no sé si está muy escondida por alguna subpropiedad, pero no la veo.
¿Entonces tienes un componente base de datos y tiene asignado un componente transaction?

[usuario1000]

¿Entonces tienes un componente base de datos y tiene asignado un componente transaction?


Por el lado del Servidor tengo los siguientes componentes:
- TFDConnetion, el cual tiene una propiedad "Transaction" donde tengo asignado el componente TFDTransaction
- TFDTransaction, elcula tiene una propiedad "Connection" donde tengo asignado al componente anterior (TFDConnection).
- Y distintos TFDQuery, en cada uno de ellos hay una propiedad "Transaction" que tiene asignado el TFDTransacction.



por el lado del Cliente, utilizo los siguientes componentes:
- TClientDataSet.
- TDataSetProvider.
- SQLConnection,


hay algunos más componentes, pero básicamentes son del mismo tipo.


Para las grabaciones de datos, utilizo funciones donde paso los parametros a grabar desde el cliente al servidor.



Saludos.

[Casimiro Notevi]

Entonces, no necesitas controlar tú mismo las transacciones.
QExpedientes.ExecSQL;Y nada más.


Lo que no entiendo es eso de "en el lado del servidor" y "en el lado del cliente", ¿tienes un programa cliente, que conecta a un programa servidor, que conecta a la base de datos?
No sé si esos componentes funcionan así, pero me parece extraño.

[usuario1000]

Entonces, no necesitas controlar tú mismo las transacciones.
Código Delphi [-] (https://www.clubdelphi.com/foros/#)QExpedientes.ExecSQL;

Y nada más.


Lo que no entiendo es eso de "en el lado del servidor" y "en el lado del cliente", ¿tienes un programa cliente, que conecta a un programa servidor, que conecta a la base de datos?
No sé si esos componentes funcionan así, pero me parece extraño.




Perdón, no me he explicado bien. Lo que quiero decir es que tengo dos programas, uno es el servidor y otro el cliente. El cliente envia la información a grabar al servidor y el servidor está conectado a la base de datos mediante el componente TFDConnection, que por medio de TFDQuery (qExpedientes.ExecSQL) graba la información en la misma. Pero no lo hace al instante, tarda un tiempo, incluso demasiado. Es una aplicación DataSnap.



No sé si alguno de los componentes debo indicar algo para que la grabación sea inmediata, ya lo estuve revisando y no veo nada que me llame la atención.


Gracias por tu interés.

[look]

Buenas a todos,
..

..., algún usuario introduce unos datos y no se refleja de inmediato en la base de datos, se quedan en el limbo, y se llega a actualizar cuando cierro el servidor ó la aplicación cliente (se me olvidaba comentar que la aplicación es DATASNAP). ..


.

Hola amigo, firebird es una base de datos enteramente transanccional, es decir , todo los procesos empiezan siempre con un start transaction y finalizan con un commit, ...
cuando una transaccion esta en proceso y no termina con su respectivo commit, al cerrar la connecion , en tu caso cerrar el cliente o servidor, firebird toma el commit en ese momento, (autocommint), es por eso que solo ves los datos hasta que cierran la app cliente o server.
en resumen tienes que confirmar los datos con un commit, revisa esto, las querys que estas utilizando para hacer insert o update, deben tener asiganada la transanccion que tiene la base de datos, la base de datos tienen que tener asignada esa misma transaccion.

[usuario1000]

Hola amigo, firebird es una base de datos enteramente transanccional, es decir , todo los procesos empiezan siempre con un start transaction y finalizan con un commit, ...
cuando una transaccion esta en proceso y no termina con su respectivo commit, al cerrar la connecion , en tu caso cerrar el cliente o servidor, firebird toma el commit en ese momento, (autocommint), es por eso que solo ves los datos hasta que cierran la app cliente o server.
en resumen tienes que confirmar los datos con un commit, revisa esto, las querys que estas utilizando para hacer insert o update, deben tener asiganada la transanccion que tiene la base de datos, la base de datos tienen que tener asignada esa misma transaccion.


He revisado todas las transacciones y todas terminan con un Commit o con un RollBack. No hay ningún StartTransaction que se quede descolgado.


Además me he ido a un proceso de alta de registro en concreto que se ve facilmente en 3 líneas el proceso completo de StartTransaction y el commit seguidamente y no graba al instante en la base de datos.



No sé ya que propiedad tocar ni que hacer.


Quedo a la espera de vuestros comentarios.


Gracias.

[usuario1000]

¿Existirá alguna instrucción para vaciar el buffer o algo parecido?


Recuerdo que en las tablas de delphi mas antiguos existía el "flushbuffer" para grabar inmediatamente, no sé por si acaso hay algo parecido.


Gracias.

[Casimiro Notevi]

Haz lo que te dijo Al González:
Crea una prueba aislada del problema, colocando en una nueva aplicación los elementos esenciales del proceso, como son los componentes de acceso y conexión de base de datos. Un simple formulario, con un botón para intentar reproducir el problema.
Es normal abrumarse ante un bug misterioso cuando este ocurre a mitad del bosque. Pero es un poco más fácil encontrar la causa si se recorta ese pequeño trozo de bosque y se planta en la maceta de tu ventana.
¡Y nos muestras el código!
Saludos.
Es que no podemos hacer mucho si no podemos "tocar y ver" tu programa.

[Caminante]

Gracias por tu respuesta.

Para que me funcione tengo que poner las siguienes instrucciones en el cliente:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)resultado:= funcion.enviarDatosAServidor(dato1, dato2, dato3...); if resultado = 'OK' then begin TFDConnection.connected := false; TFDConnection.connedted:= True; end;



No me parece muy coherente cada vez que modifique un dato conectar y desconectar el cliente para que actualice la base de datos.


Gracias.


Pues a mi no se tampoco me parece coherente cerrar la coneccion y volver a conectar. Si las transacciones estan configuradas correctamente deberia bastar con cerrar y abrir el dataset. Habria que ver como haces el proceso. Poruqe se supone que la transaccion (estando en readcommited) deberia poder leer las transacciones confirmadas. A mi siempre me ha funcionado; aunque nunca he usado datasnap.

[Al González]

Es como si tuviera transacciones anidadas:
StartTransaction
StartTransaction
Commit
Commit

El "verdadero" commit es el último, pero es sólo una idea. Procura aislar el proceso en una aplicación mucho más sencilla.

[Casimiro Notevi]

Es como si tuviera transacciones anidadas:
StartTransaction
StartTransaction
Commit
Commit
El "verdadero" commit es el último, pero es sólo una idea. Procura aislar el proceso en una aplicación mucho más sencilla.
Casi seguro que es algo así. Está haciendo transacciones manualmente, cuando el componente ya las tiene asociadas implícitamente.

[usuario1000]

Casi seguro que es algo así. Está haciendo transacciones manualmente, cuando el componente ya las tiene asociadas implícitamente.




Buenas


Como puedo averiguar si el componente las tiene asociada implicitamente. ¿Cual es la propiedad?.



Ayer por la noche quité todas las instrucciones de transacciones, para ver si se hacían de forma automática las grabaciones de manera implicita, quité el componente TFDTransaction y no funcionó. Así que lo dejé como estaba.


Lo he solucionado de forma provisional modificando el programa Cliente, cada vez que envío datos al programa Servidor, lo que hago es seguidamente desconectar y conectar al cliente del servidor, y así sí que se refleja inmediatamente la grabación. Pero como digo, no es una forma de hacerlo que me guste, aunque consigo lo que quiero. Seguiré investigando a ver que sucede.


No hago transacciones anidadas, un ejemplo es como el que sigue:
transacciones.StartTransaction;
try
qCuentas.ExecSQL;
Result:= 'Ok';
transacciones.commit;
Except
on E: exception do
begin
transacciones.Rollback;
raise;
end;
end;


Tan sencillo como eso y no graba cuando llega al commit.


Gracias por vuestros comentarios.

[Caminante]

Hola



Los componentes IBX (Que son los que uso) tienen una propiedad Intransaction que indica si ya esta iniciada una transaccion.



if not IBTransaction1.intransaction then
IBTransaction1.startTransaction;


Supongo que los componentes que usas deben tener una propiedad similar.

[engranaje]

Por si es de ayuda, solo apuntar que una conexión (TFDConnection) también puede estar en una transacción. Estás seguro de que todas tus transacciones son sobre TFDTransaction y no tienes ninguna sobre TFDConnection?

[Casimiro Notevi]

Ya lo hemos comentado antes, si el componente base de datos/conexión tiene asociado ya un componente transaction, no tienes que hacerlo tú. Es lo que estamos intentando decirte todos desde el principio.
// transacciones.StartTransaction;
try
qCuentas.ExecSQL;
// Result:= 'Ok';
// transacciones.commit;
Except
on E: exception do
begin
// transacciones.Rollback;
raise;
end;
end;Y eso, además, que no tenemos ni idea de lo que hace ese programa servidor.

[Al González]

En un mensaje previo dices que el componente TFDConnection está en la aplicación servidor, y luego mencionas que lo usas en el lado cliente. Tal vez puedas aclararnos cómo está verdaderamente organizado tu proyecto.

Por otra parte, considera lo mencionado aquí (http://docwiki.embarcadero.com/Libraries/Tokyo/en/FireDAC.Comp.Client.TFDCustomConnection.CommitRetaining):
FireDAC supports nested transactions, so the current transaction is the one started with the most recent StartTransaction call. If the database does not support nested transactions, like most of DBMSs, then FireDAC emulates nested transactions using savepoints. CommitRetaining is useful only for the main transaction, not for nested ones.

The CommitRetaining call is the shortcut to Transaction.CommitRetaining, if the Transaction property is assigned. Otherwise, CommitRetaining will operate on default connection transaction.

Before calling CommitRetaining, an application may check the status of the InTransaction property. If an application calls CommitRetaining and there is no current transaction, an exception is raised.

E insisto: Haz una prueba aislada con UNA sola aplicación, una ventana, con un botón y todos los componentes mínimos dentro. Antes de distribuirlo en capas.

Saludos. :)

[orodriguezca]

En Firebird todo lo que se hace contra la base de datos siempre está "cobjiado" en una transacción, incluso las sentencias select.

Yo suelo utilizar dos componentes de transacción diferentes, uno para las lecturas, que lo defino como la transacción por defecto de la conexión, y otro para las actualizaciones. En tu caso probaría a escribir el código así:


qCuentas.Transaction := TransaccionesUpd; //o algo parecido. generalmente lo hago en tiempo diseño en el modulo de datos
transaccionesUpd.StartTransaction;
try
qCuentas.ExecSQL;
Result:= 'Ok';
transaccionesUpd.commit;
Except
on E: exception do
begin
transaccionesUpd.Rollback;
raise;
end;
end;

[usuario1000]

Gracias a todos por la información, voy a revisar lo que me habéis comentado y a hacer algunas pruebas.


Muy agradecido.