Barridos de Base de Datos Lento
Que tal buen dia:
Espero me ayuden please :confused: 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:cool: |
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. |
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 |
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. ;) |
La franja horaria es GMT +2. Ahora son las 20:32:43. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi