Insert con ClientDataSet

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

Gracias por tu interés pero estoy desesperado, he mirado en diez millones de foro, he probado de todas las maneras posible pero nada, en fin voy a probar con SQL Server, a ver si el problema es de los componentes de Firebird, por decir algo.