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 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 Ú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 |
|
|
|