Insert con ClientDataSet

[Rockin]

Esto es lo que uso:

Servidor Capa Intermedia

FIBDataBase + FIBDataSet + FIBTransaction + FIBDataSetProvider

Aplicación Cliente

FIBClientDataSet conectado a su Correspondiente FIBDataSetProvider a través de un SocketConnection.

Creo que el que se encarga de iniciar y finalizar la transaccion es el DataSetProvider del servidor de capa intermedia, no en el cliente.

Así es como lo tengo montado, las consultas perfectas y muy rapidas, pero la inserción, modificación e eliminación de registros, me lo hace en memoria pero no lo termina de actualizar a la BD, tengo puesto en el evento afterpost del ClientDataSet el ApplyUpdate(0) famoso.

Saludos.

[[enecumene]]

Efectivamente amigo, es lo que trato decirle, el cliente debe realizar el commit al servidor a traves del socket como dices, solo asi los datos se quedarán grabados en la base.

Ejemplo:

Código Delphi [-]
//insercion de datos
try
....
FIBClientDataSet.ApplyUpdates(-1);
FIBDatabase.Commit;
except
//mensajes de error
FIBDatabase.rollback;
end;

sólo así te va a grabar los datos, tal vez me pueda equivocar , pero estoy seguro que ese es el problema.

Saludos.

[Rockin]

Es que en el cliente no está declarado el FIBDataBase,está en el servidor de capa intermedia por lo que no puedo realizar el Commit en la base de datos.

En la respuesta de Al González anterior, explica que el DataSetProvider es el encargado de activar las transacciones asociadas al DataSet en cuestión.

Seguire mirando. Gracias.

[[Al González]]

Empezado por Rockin

...En la respuesta de Al González anterior, explica que el DataSetProvider es el encargado de activar las transacciones asociadas al DataSet en cuestión...

¡'pérate, 'pérate! Repito lo que dije:

Empezado por Al González

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

Todo parece indicar que ya hay una transacción abierta. Lo primero que habría que investigar es cómo se está abriendo esa transacción para optar por una de dos soluciones:

1. Evitar que haga ese "start transacción".

2. Hacer que tu módulo de datos de la capa intermedia exporte un método que te permita llamar al método "Commit" (o como se llame) de tu componente Database.

Es usual que la capa intermedia exporte algunos métodos (procedimientos) para facilitar que los programas cliente hagan ciertas operaciones contra la base de datos.

Saludos.

Al.

[[enecumene]]

Al lo ha explicado mejor que yo, no creo que exista algo más claro que eso

Saludos.

[Rockin]

Si lo explica de puta madre, pero no lo veo.

Yo tengo un FIBTransaction declarado, lo pongo active := False, para que el DataSetProvider la active? o que hago?

En breves habrá un forero menos porque me voy a suicidar.

[[enecumene]]

Empezado por Rockin

...
En breves habrá un forero menos porque me voy a suicidar.

Hombre, no seas tan drástico , eso es lo menos que queremos, venga pasate a la taberna y bebamos unas chelas .

Saludos.

[Rockin]

Lo conseguí como bien decia el ilustrisimo señor Al González, he tenido que realizar lo siguiente:

Código Delphi [-]
procedure TPruebaFirebird.FIBDataSetProviderTurnosAfterApplyUpdates(
  Sender: TObject; var OwnerData: OleVariant);
begin
    
         if FIBTransactionTurnos.InTransaction then
         begin
                FIBTransactionTurnos.Commit;
         end;
end;

Gracias a vosotros y el magnifico libro la cara oculta de delphi 6 lo conseguí.

Repito ¡GRACIA!