Ver Mensaje Individual
  #14  
Antiguo 24-10-2012
Gherardo Gherardo is offline
Registrado
 
Registrado: dic 2009
Posts: 8
Reputación: 0
Gherardo Va por buen camino
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.
Responder Con Cita