Duda sobre grabación de registros

[[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:

Código Delphi [-]
  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]

Empezado por 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

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:

Código Delphi [-]
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]

Empezado por Casimiro Notevi

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.

[Caminante]

Empezado por usuario1000

Gracias por tu respuesta.

Para que me funcione tengo que poner las siguienes instrucciones en el cliente:
Código Delphi [-]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.

[Casimiro Notevi]

Haz lo que te dijo Al González:

Empezado por 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.