Registros en en bloques de 100 o mas...

[Casimiro Noteví]

¿Pero el TClientDataSet necesita tener todos los datos en memoria o pueden ser leídos poco a poco?

[rgstuamigo]

Pues para eso precisamente tiene la propiedad PacketRecords donde se puede definir la cantidad de registros que traerá desde el servidor.
Si quieres más información, pues en el otro hilo en cuestion he puesto algunos enlaces muy pero muy interesantes.

[Casimiro Noteví]

No había leído el otro hilo "ayuda con consulta"
Los Tclientdataset los he usado alguna vez como tablas temporales en memoria, sé que son muy potentes, vi un video de ¿jachguate? donde se explicaban cosas muy interesantes.
Pero, es que son tantas cosas para aprender, no da tiempo, todavía me siento un inútil analfabeto e inculto, puede que dentro de otros 25 años haya aprendido lo básico

[Casimiro Noteví]

Los componentes ClientDataSet tienen una propiedad llamada PacketRecord la cual determina cuandos registros se van a almacenar en memoria. Por defecto tiene configurado -1 lo que significa que se van a cargar todos los registros en la tabla. Como eso no me interesa en el listado general del formulario principal lo que vamos a hacer es poner esta propiedad a 100.

Por eso he ordenado la lista por el campo ID descendentemente para que se vean sólo los últimos 100 registros insertados. Una de las cosas que más me gustan de los componentes ClientDataSet es que se trae los 100 últimos registros y desconecta la tabla y la transacción quitándole trabajo al motor de bases de datos. Si el usuario que maneja el programa llega hasta el registro número 100 el propio componente conecta automáticamente con el servidor, se trae otros 100 registros y vuelve desconectar.

IMPRESIONANTE

[rgstuamigo]

Así es Casimiro... la verdad es que el ClientDataSet es uno de los componentes más robustos que he encontrado entre los componentes que vienen con Delphi , por lo cual me di cuenta que para que nuestra aplicacion esté bien diseñada es necesaria dividirla en capas, tal cual como menciona el autor de la página donde extraiste ese párrafo anterior.

[[AzidRain]]

Mas que potente este componente es de los mas subutilizados de Delphi el detalle es que encontramos muchos tutoriales e informaciones distintas para cada utilización, pero no hay un compendio que abarque todo lo que este componente puede hacer, muchos nos quedamos nomas con la idea de que nos sirve para hacer entre otras cosas tablas en memoria, pero como se ve hay mucho todavía por explorar.

[Jose Roman]

Bueno ya hice lo que me han propuesto y sale perfecto, solo tengo una problema, alguien se le ocurre como controlar los registros, es decir:

he hecho algo al llegar al registro numero 100 y pasa perfectamente al siguiente registro, pero tengo problemas al dar clic en el boton PRIOR del DBNavigator. Si alguien me corrige lo realizado o me da una idea mejor gracias.

Nota: lo hice con 10 registros para ver mas rapido lo que pasa.

Código Delphi [-]
procedure TwConsigna.bsSkinDBNavigator1Click(Sender: TObject;
  Button: TbsNavigateBtn);
begin
  zqReg.Open; // Query que da el numero de registros
  if Button in [nbLast,nbFirst] then
  begin
    zqConsi.Close;
    zqConsi.SQL.Clear;
    zqConsi.SQL.Add(MiSQL);
    zqConsi.SQL.Add('ORDER BY ID_CG DESC');
    if Button = nbLast then
    begin
      zqConsi.ParamByName('R').Value := zqRegCOUNT.Value - 9;
      zqConsi.Open;
      zqConsi.Last;
    end else
    begin
      zqConsi.ParamByName('R').Value := 0;
      zqConsi.Open;
    end;
  end else
    if Button = nbNext then
    begin
      if (zqConsi.Eof) and (Bloque < (zqRegCOUNT.Value div 10)) then
      begin
        Inc(Bloque,10);
        zqConsi.Close;
        zqConsi.ParamByName('R').Value := Bloque;
        zqConsi.Open;
      end;
    end else
      if Button = nbPrior then
        if (zqConsi.Bof) and (Bloque > 0) then
        begin
          Dec(Bloque,10);
          zqConsi.Close;
          zqConsi.ParamByName('R').Value := Bloque;
          zqConsi.Open;
          zqConsi.Last;
        end;
  zqReg.Close;
end;
// Bloque variable que determina en que bloque de registro esta