Insert con ClientDataSet

[Rockin]

Hola amigos, tengo un pequeño problema y no se como solucionarlo, tengo el siguiente codigo.

Código Delphi [-]
       datDatosRemoto.FIBClientDataSetTurnos.Open;
              datDatosRemoto.FIBClientDataSetTurnos.Insert;
              datDatosRemoto.FIBClientDataSetTurnos.FieldByName('tipo_turno').AsString:= txtTurno.Text;
              datDatosRemoto.FIBClientDataSetTurnos.FieldByName('horas').AsDateTime:= strtotime(txtHoras.Text);
              datDatosRemoto.FIBClientDataSetTurnos.Post;

Donde inserto registros, el problema es que al insertar y comprobar el DBGrid asociado me aparece en este, pero al salir de la aplicacion y volve a entrar ya no me aparece, y en la BD no queda grabado ningún registro. Lo mismo me ocurre al modificar datos.

¿Que estoy haciendo mal?..
Saludos

[[enecumene]]

Hola, Para grabarlo en la base de datos debes usar:

Código Delphi [-]
datDatosRemoto.FIBClientDataSetTurnos.ApplyUpdates(-1);

Eso va luego del post.

Saludos.

[Rockin]

Tengo puesto en el evento AfterPost del CDS, ApplyUpdates(0), y como te digo me guarda los cambios si lo vuelvo a consultar en el momento, pero al salir y entrar en la aplicación ya no sale. Es como si lo mantuviera en memoria, o yo que se. Voy a probar como me dices, de todas formas.

Saludos.

[[Al González]]

¡Hola!

Empezado por Rockin

Tengo puesto en el evento AfterPost del CDS, ApplyUpdates(0), y como te digo me guarda los cambios si lo vuelvo a consultar en el momento, pero al salir y entrar en la aplicación ya no sale. Es como si lo mantuviera en memoria, o yo que se. Voy a probar como me dices, de todas formas.

Saludos.

Lo que haces está bien, si el objetivo es que cada registro guardado se refleje de inmediato en la base de datos. Lo que puede estar sucediendo es que en ese momento tengas abierta una "transacción", la cual no es "cometida" (confirmada) antes de cerrar el programa y por lo tanto se esté "revirtiendo" (rollback).

Te sugiero revisar cómo estás manejando las transacciones en tu programa.

Saludos.

Al González.

[Rockin]

He estado buscando y tengo entendido que el DataSetProvider en el Servidor de Capa Intermedia, es el encargado de activar las transacciones asociadas al DataSet. A lo mejor me estoy equivocando y tengo que llamarla yo, o confirmarla como me comentas.

Seguire con el tema a ver si doy con ello.

[[Al González]]

¡Hola!

Empezado por Rockin

...tengo entendido que el DataSetProvider en el Servidor de Capa Intermedia, es el encargado de activar las transacciones asociadas al DataSet...

En efecto, eso hace el componente TDataSetProvider cuando la conexión no tiene una transacción activa en ese momento. Es decir, si el programa no ha empezado una transacción explícitamente, el componente proveedor la establece y cierra cuando aplica las actualizaciones.

Esto fue lo que me llevó a pensar que tal vez tu programa sí está abriendo una transacción antes de la llamada a ApplyUpdates (probablemente es algo que haga de manera predeterminada alguno de los componentes de conexión que estás usando).

Aquí el código que ejecuta el proveedor en la capa intermedia (unidad Provider.pas):

Código Delphi [-]
function TDataSetProvider.InternalApplyUpdates(const Delta: OleVariant; MaxErrors: Integer;
  out ErrorCount: Integer): OleVariant;
begin
  CheckDataSet;
  FTransactionStarted := not IProviderSupport(DataSet).PSInTransaction;

  // Sólo si no hay ya transacción activa, el componente proveedor abrirá una
  if FTransactionStarted then
    IProviderSupport(DataSet).PSStartTransaction;
  try
    CheckResolver;
    Resolver.FUpdateTree.InitData(DataSet);
    try
      Result := inherited InternalApplyUpdates(Delta, MaxErrors, ErrorCount);
    finally
      Resolver.FUpdateTree.InitData(nil);
    end;
  finally
    if FTransactionStarted then
      IProviderSupport(DataSet).PSEndTransaction((ErrorCount <= MaxErrors) or (MaxErrors = -1));
  end;
end;

Espero te sea de utilidad, no dejes de retroalimentar el hilo.

Al González.

[Rockin]

No se si tendré algo mal declarado en las propiedades del Provider, ClientDataSet o yo que se.

Saludos.

[Rockin]

Sigo liado con el tema este, no tengo cojones de realizar cambios en la BD.Lo he intentado multitud de formas y nada.

Realizo el ApplyUpdate(0) despues del POST, y me guarda los cambios, ya que al realizar un consulta y mostrarlo en un DBGrid me sale modificado, pero al salir de la aplicación los cambios no se reflejan en la tabla de la BD.

¿Alguien puede ayudarme, please?

[[enecumene]]

Hola, debes realizar el commit al FIBConnection para que se grabe en la base de datos.

Código Delphi [-]
DatosRemotos.FConnection1.Commit;

Saludos.

[Rockin]

¿que componente es FIBConnection? No lo tengo declarado

[[enecumene]]

Empezado por Rockin

¿que componente es FIBConnection? No lo tengo declarado

perdón, realmente no sé como se llama el componente para conectar a la base de datos, en el caso de ADO sería ADOConnection, el de ZEOS ZConnection, no sé el de FIBPlus entonce asumí que se llamaría así.

Saludos.