Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Error en insercion con Datasnap (https://www.clubdelphi.com/foros/showthread.php?t=66838)

rruffino 15-03-2010 13:34:39

Error en insercion con Datasnap
 
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!:)

Al González 16-03-2010 01:19:48

¿En sí qué esperas que suceda? ¿Tiene que ver con ese RefreshRecord? ¿Para qué lo usas? :)

rruffino 16-03-2010 13:57:57

Hola, gracias por tu respuesta. Lo que espero es que el registro quede en la tabla de manera persistente, y ahora me salta un error que dice:
Project Preoject1.exe raised exception class EDBClient with message 'At beginning of table'. Process stoped. Use step or run to continue.

Nuevamente gracias.

Al González 16-03-2010 17:38:02

Cita:

Empezado por rruffino (Mensaje 356971)
Cabe destacar que nuca saltan excepciones el codigo finaliza como si se hubiera ejecutado exitosamente.

Cita:

Empezado por rruffino (Mensaje 357089)
Lo que espero es que el registro quede en la tabla de manera persistente, y ahora me salta un error que dice:
Project Preoject1.exe raised exception class EDBClient with message 'At beginning of table'.

Dos preguntas:

1. ¿Qué cambiaste de tu código para que pasara de no elevarse ninguna excepción, a elevarse esa excepción?

2. ¿Con qué finalidad usas el método RefreshRecord?

Saludos.

Al González. :)


La franja horaria es GMT +2. Ahora son las 16:55:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi