Duda con el uso del ClientDataSet

[Walterdf]

Hola otra vez.

No tengo mucha experiencia con los clientdataset, estuve leyendo algunos artículos y foros en internet pero no logré aclarar algo.

Lo que entendí hasta ahora es que el clientdataset es como tener una tabla en memoria que se puede recorrer y modificar y luego enviar los cambios al origen de los datos, en mi caso una tabla Paradox.

Lo que no me queda claro es si el clientdataset permite insertar, por ejemplo, 10 registros y enviar a la base esos 10 registros mediante ApplyUpdates() o si solo puede insertarse de a 1 solo registro.

Por la experiencia que he tenido, aparentemente solo puede insertarse de a 1.
(es lo que consulté ayer en este hilo http://www.clubdelphi.com/foros/showthread.php?t=59992 )

Esto es así??

Muchas gracias de antemano.
Saludos

[[enecumene]]

Hola, claro que con Clientdataset puedes insertar 10 registros a la base, actualiza registros nuevos e incluso eliminar datos.

Saludos

[Walterdf]

Gracias enecumene por tu respuesta.

Entonces, no se que es lo que estoy haciendo mal, sigo con el mismo problema que comentaba en aquel hilo.

Gracias. Un abrazo

[[enecumene]]

Hola, ¿y como haces el Applyupdate?, inserta el código si no es ninguna molestia.

Saludos.

[Walterdf]

Lo explico mejor. Tengo un formulario donde el usuario va agregando los articulos, y 2 datamodules (1 para la logica de negocios donde estan los clientdatasets y otro para el acceso a datos donde estan las ttables Paradox).

Lo que hago en el form cuando el usuario inserta un articulo es llamar al procedimiento InsertarItem del datamodule de la siguiente manera:

procedure TdmDomain.InsertarItem(item : TArticle);
begin
  with cdsDetailOrder do
  begin
    Open;
    Insert;
    FieldByName('CODIGO').AsString := item.Code;
    FieldByName('MARCA').AsString := item.Mark;
    FieldByName('PRECIOUNITARIO').AsFloat := item.Price;
    FieldByName('CANTIDAD').AsInteger := item.Quantity;
    Post;
  end;
end;

O sea que cada vez que el usuario inserta un item se llama a este procedimiento. El error me lo tira cuando realizo el 2do insert, o sea que ni llego a hacer ApplyUpdates y es el siguiente:
Project PPedidos.exe raised exception class EDBClient with message ". Process stopped. Use Step or Run to continue.

Si lo hago de esta manera:

procedure TdmDomain.InsertarItem(item : TArticle);
begin
  with cdsDetailOrder do
  begin
    Open;
    Insert;
    FieldByName('CODIGO').AsString := item.Code;
    FieldByName('MARCA').AsString := item.Mark;
    FieldByName('PRECIOUNITARIO').AsFloat := item.Price;
    FieldByName('CANTIDAD').AsInteger := item.Quantity;
    Post;
    ApplyUpdates(0); //nueva linea
    Close; //nueva linea
  end;
end;

Me inserta el registro sin inconvenientes pero esto significa insertar en la los registros tabla de a 1.

Evidentemente algo estoy haciendo mal.
Muchas gracias!!

[[enecumene]]

Dos cosas, intenta hacer el open del clientdataset fuera del procedimiento, o sea, tenerlo abierto todo el tiempo, puede ser al crear el formulario y la otra agrega lo siguiente:

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

Comentanos como te fue.

Saludos.

[Walterdf]

mmmmm, no entiendo en que cambia ApplyUpdates(-1)?, me sigue insertando los items de a 1. ¿?

[[enecumene]]

Empezado por Walterdf

mmmmm, no entiendo en que cambia ApplyUpdates(-1)?, me sigue insertando los items de a 1. ¿?

Me refería así:

Código Delphi [-]
procedure TdmDomain.InsertarItem(item : TArticle);
begin
  with cdsDetailOrder do //Sin el open
  begin    
    Insert; 
    FieldByName('CODIGO').AsString := item.Code;
    FieldByName('MARCA').AsString := item.Mark;
    FieldByName('PRECIOUNITARIO').AsFloat := item.Price;
    FieldByName('CANTIDAD').AsInteger := item.Quantity;
    Post;
  end;
end;

y en el botón donde tienes el applyupdates le cambias el 0 por -1.

Saludos.

PD. el open del ClientDataset lo abres cuando creas el form u en otro sitio.

[Walterdf]

Haciendolo de esa manera, al hacer el Post (en el 2do. registro) me tira el error que comentaba antes.

[Neftali [Germán.Estévez]]

A mi con un código como este (lo he hecho a partir del tuyo) funciona perfectamente y me inserta varios registros.

Código Delphi [-]
var
  i:Integer;
begin

  for i := 0 to 5 do begin
    with ClientDataSet1 do
    begin
      Insert;
      FieldByName('EmpNo').AsInteger := -(i - 1);
      FieldByName('LastName').AsString := 'aaaaaaa' + IntToStr(i);
      FieldByName('FirstName').AsString := 'bbbbbbb'  + IntToStr(i);
      FieldByName('PhoneExt').AsInteger := 500 + i;
      Post;

    end;
  end;

  ClientDataSet1.ApplyUpdates(-1);

Revisa que el error no te lo estén generando los datos que insertas; Problemas con claves duplicadas, índices únicos,...

Revisa el parámetro entero del ApplyUpdates que te da el número de errores; También puedes intentar programar alguna cosa en los eventos que se refieren a los posibles errores en la inserción; OnPostError, OnAfterPost, OnAfterApplyUpdates,...

[JosepGA]

Hola,

mira el evento OnReconcileError del ClientDataSet, en la ayuda te dice como hacer que te aparezca una ventana donde se muestra el motivo que causa el error del ApplyUpdates, pero para ello deberás ponerle ApplyUpdates( 0 )

Un saludo

[Walterdf]

Hola

Mil disculpas por no responder antes pero estuve algunos días sin internet.

Les comento que el problema era algo muy tonto y no me di cuenta hasta que programé lo mismo en una aplicación de prueba, sin capas ni nada. El error estaba en la tabla donde insertaba los registros, tenía un campo llave y al hacer el segundo insert me daba un key violation. Recien al hacerlo sobre un nuevo proyecto me detalló el error, en el proyecto original (con datamodules) no detallaba nada, muy raro.

Agradezco mucho la colaboración de todos, me sirvió mucho.

Un abrazo.