Barridos de Base de Datos Lento

[jmedina]

Que tal buen dia:


Espero me ayuden please en mi aplicacion que ya casi termino, eso espero, hago unos barridos y copio de una tabla a otra validando algunos datos, esto los hago en tablas de CODEBASE a Paradox, pongo la lineas correctas creo yo deshabilito controles pera hacerlas mas dinamicas, pero aun asi un barrido de 1600 registros es muy lentro creo son pocos registros, habra algun metodo, componente, o algo que me optimice el trabajo de barrido de informacion y sea un poco mas rapido.

Saludos
Gracias por la ayuda

[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.

[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

[jachguate]

Hola.

Tenes suerte que sea domingo.. que me he tomado el tiempo para "entender" el código publicado de esta manera. Para una próxima oportunidad, te recomiendo hacerlo entre las etiquetas [ delphi ] existentes en el club, y de las que hay mas información en el mensaje que está al inicio de cada foro.

Código Delphi [-]
With dm3 do
Begin
  TClientesADM.DisableControls;
  CBTableSet5.DisableControls;
  CBTableSet6.DisableControls;
  try
    TClientesADM.Open;
    TClientesADM.EmptyTable;
    CBTableSet6.open;
    CBTableSet5.first;
    while not cbTableSet5.eof do
    Begin
      TClientesADM.append;
      TClientesADMCIDCLIEN01.AsInteger:=CBTableSet5CIDCLIEN01.asinteger;
      TClientesADMCCODIGOC01.AsString:= CBTableSet5CCODIGOC01.AsString;
      TClientesADMCRAZONSO01.AsString:= CBTableSet5CRAZONSO01.AsString;
      TClientesADMCRFC.AsString:= CBTableSet5CRFC.AsString;
      VcodigoCli:= TClientesADMCIDCLIEN01.Asinteger;
      if cbTable6.FindKey(VCodigoCli) Then
      Begin
        TClientesADMCDIRECCION.AsString:= 
          CBTableSet6CNOMBREC01.AsString + ' '+ 'No.'+' '+ 
          CBTableSet6CNUMEROE01.AsString + ' '+ 'Col.'+' '+ 
          CBTableSet6CCOLONIA.Asstring;
        TClientesADMCPAIS.AsString:= CBTableSet6CPAIS.Asstring;
        TClientesADMCESTADO.AsString:= CBTableSet6CESTADO.Asstring;
        TClientesADMCCIUDAD.AsString:= CBTableSet6CCIUDAD.Asstring;
        CBTAbleSet6.next;
      End;
      TClientesADM.post;
      cbTableSet5.Next;
      FMenu.ProgressBar1.StepIt;
    End;
  finally
    TClientesADM.EnableControls;
    CBTableSet5.EnableControls;
    CBTableSet6.EnableControls;
  end;
  FMenu.ProgressBar1.Position := 0;
End;

He cambiado el orden de algunas cosas, y quitado la re-apertura de la tabla cbTable6 del medio. También he agrupado los disablecontrols, de manera que sean posible rehabilitar los controles en caso de algún fallo.

También he quitado un doble recorrido del TableSet5, al que no hallé ningún sentido.

Un asunto "grave" y que es el que mas tiempo consume, es el recorrido de la tabla cbTable6 por cada registro de la tabla que se procesa. Si cbTable6 tiene 100 registros, y cbTableSet5 1600, tenemos en potencia 160,000 registros procesados para la cbTable6 al final del asunto.

Dado que es paradox, he cambiado el ciclo por un locate, pero podria ser también un Query que te devolviese exactamente ese registro.

Hasta luego.