![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Barridos de Base de Datos Lento
Que tal buen dia:
Espero me ayuden please ![]() Saludos Gracias por la ayuda ![]() Última edición por jmedina fecha: 13-08-2004 a las 22:56:06. |
#2
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
![]() |
#3
|
|||
|
|||
Cita:
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 |
#4
|
||||
|
||||
![]() 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.
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. ![]()
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
![]() |
|
|
![]() |
|