Hola gente, estoy haciendo una aplicación con datasnap. Del lado servidor tengo un modulo de datos remoto con los componentes IBDatabase, IbTransaction, IBQuery, IBUpdateSQL e IBdatasetProvider, todo enlazado a las correspondientes tablas y base de dato.
Del lado del cliente tengo el SocketConnection, Datasourece y Clientdataset. He logrado la comunicacion entre las aplicaciones y desde el cliente puedo recorrer y filtrar la información de las tablas. El problema esta cuando quiero agregar nueva información, no pasa nada, y aqui les pego el codigo del boton qe agrega
Código Delphi
[-] try
ClientDataSet1.Insert;
ClientDataSet1NOMBRE.Value:=Edit2.Text;
ClientDataSet1EDAD.Value:=StrToInt(Edit3.Text);
ClientDataSet1.Post;
if (ClientDataSet1.ApplyUpdates(0)>0)then
begin
showmessage('Error en servidor');
ClientDataSet1.CancelUpdates;
end;
except
ClientDataSet_cobranza.CancelUpdates;
raise
end;
ClientDataSet_cobranza.RefreshRecord;
Cabe destacar que nuca saltan excepciones el codigo finaliza como si se hubiera ejecutado exitosamente.
Desde ya agradezco cualquier ayuda.
Saludos!
