Gracias a todos
He hecho la prueva del " while not eof" y el resultado ha sido , con el BDE 10 Segundos.
Con dbx Cuando llevaba 20 minutos me he cansado y he reseteado el programa, con lo cual no se lo que tarda.
el codigo que he utilizado es el siguiente.
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
If CDSAlbaranes.Active then
begin
CDSAlbaranes.Active:=False;
// CDSLineasAlbaran.Active:=False;
end
else
begin
CDSAlbaranes.Active:=True;
// CDSLineasAlbaran.Active:=True;
ShowMessage('Empiezo');
CDSAlbaranes.First;
while not CDSAlbaranes.Eof do
begin
CDSAlbaranes.Next;
end;
ShowMessage('Termino');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If TblCabeceraAlbaran.Active then
begin
TblCabeceraAlbaran.Active:=False;
// TblLineasalbaran.Active:=False;
end
else
begin
TblCabeceraAlbaran.Active:=True;
// TblLineasalbaran.Active:=True;
ShowMessage('Empiezo');
TblCabeceraAlbaran.First;
while not TblCabeceraAlbaran.Eof do
begin
TblCabeceraAlbaran.Next;
end;
ShowMessage('Termino');
end;
end;
Probaré lo mismo sin utilizar el clientDataSet, pero entonces ¿como puedo hacer para que el usuario pueda modificar datos?.
De todas maneras el tema es ¿como DBX siendo más actual, no es igual o mas eficiente que BDE?.
¿Debo configurar algo en los componentes DBX?, ¿que no estoy haciendo?
Saludos y Gracias por vuestras suguerencias.