Barridos de Base de Datos Lento

[jmedina]

Empezado por marcoszorrilla

Por qué no nos pones el código con el que haces estos barridos ya que con el número de registros que indicas no hay motivo para que sea tan lento.


Un Saludo.

Marcos

Este es el codigo que uso pero no se si este bien a lo mejor lo hago muy rustico, pero la verdad no se muy bien programar

DM3.TClientesADM.DisableControls;
DM3.TClientesADM.Open;
DM3.TClientesADM.first;
While not DM3.TClientesADM.Eof do begin
DM3.TClientesADM.delete;
end;
DM3.TClientesADM.DisableControls;
DM3.TClientesADM.First;
while not DM3.CBTableSet5.eof do
begin
DM3.CBTableSet5.DisableControls;
DM3.CBTableSet5.first;
WHILE NOT DM3.CBTableSet5.Eof DO BEGIN
DM3.TClientesADM.append;
DM3.TClientesADMCIDCLIEN01.AsInteger:=DM3.CBTableSet5CIDCLIEN01.asinteger;
DM3.TClientesADMCCODIGOC01.AsString:= DM3.CBTableSet5CCODIGOC01.AsString;
DM3.TClientesADMCRAZONSO01.AsString:= DM3.CBTableSet5CRAZONSO01.AsString;
DM3.TClientesADMCRFC.AsString:= DM3.CBTableSet5CRFC.AsString;
VcodigoCli:= DM3.TClientesADMCIDCLIEN01.Asinteger;
DM3.CBTableSet6.open;
DM3.CBTableSet6.DisableControls;
DM3.CBTableSet6.First;
While not DM3.CBTableSet6.eof do Begin
VCodigoCli1:= DM3.CBTableSet6CIDCATAL01.Asinteger;
IF Vcodigocli = VcodigoCli1 then
DM3.TClientesADMCDIRECCION.AsString:= DM3.CBTableSet6CNOMBREC01.AsString + ' '+ 'No.'+' '+ DM3.CBTableSet6CNUMEROE01.AsString + ' '+ 'Col.'+' '+ DM3.CBTableSet6CCOLONIA.Asstring;
DM3.TClientesADMCPAIS.AsString:= DM3.CBTableSet6CPAIS.Asstring;
DM3.TClientesADMCESTADO.AsString:= DM3.CBTableSet6CESTADO.Asstring;
DM3.TClientesADMCCIUDAD.AsString:= DM3.CBTableSet6CCIUDAD.Asstring;
DM3.CBTableSet6.next;
End;
DM3.TClientesADM.post;
DM3.CBTableSet5.next;
FMenu.ProgressBar1.StepIt;
end;
FMenu.ProgressBar1.Position := 0;
end;
END;

Espero me puedas ayudar por favor