FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Algun consejo para copiar datos?
Hola, estoy haciendo una aplicacion que tiene que coger tablas .dbf y copiar todos sus registros en tablas .mdb.
Obtengo los datos de las tablas .dbf con un TADOQuery y las .mdb con un TTable. Pues bien, el principal problema es que el total de registros a copiar es de 400.000 aproximadamente, y tarda más de 30 minutos en completar el traspaso. Lo que quiero es saber si hay alguna otra forma de hacerlo para ir más rápido a parte de la que yo utilizo. Ésta es la funcion para copiar una de las tablas: procedure TFAssistent.VolcarAlbfaccp(); begin ADOQueryAux.Close; ADOQueryAux.SQL.Clear; ADOQueryAux.SQL.Add('SELECT fecfac, codpro, ejefac, numfac'); ADOQueryAux.SQL.Add('FROM albfaccp'); ADOQueryAux.Open; while (n_regs <= ADOQueryAux.RecordCount -1) do begin inc(n_regs); lInfo2.Caption := 'Registro: ' + IntToStr(n_regs) + ' de ' + FloatToStr(ADOQueryAux.RecordCount); BarraProgreso.Position := n_regs; TAccessDatos.Insert; TAccessDatos.FieldByName('fecfac').AsString := ADOQueryAux.Recordset.Fields.Item[0].Value; TAccessDatos.FieldByName('codpro').AsString := ADOQueryAux.Recordset.Fields.Item[1].Value; TAccessDatos.FieldByName('ejefac').AsString := ADOQueryAux.Recordset.Fields.Item[2].Value; TAccessDatos.FieldByName('numfac').AsString := ADOQueryAux.Recordset.Fields.Item[3].Value; TAccessDatos.Post; ADOQueryAux.Recordset.MoveNext; end; end; Muchas gracias. |
#2
|
||||
|
||||
Cita:
Desactiva controles visuales "ligados" a los Datasets (si es que tienes alguno). Podrías probar a crear los índices en la tabla destino al acabar (si no son necesarios para comprobaciones), eso aceleraría las inserciones. FieldByName tardará más que FieldByIndex; Como no va a cambiar el orden, mira cual es ese el orden y accede a los campos por índice. Ya se que el tema de la barra de progreso y el label es necesario, pero intenta que el refresco no sea cada registro, sino cada 500 registros (por ejemplo), al usuario le sigue dando info. y tú te evitas muchos refrescos. ADOQueryAux.RecordCount es un valor fijo, sácalo del bucle a una variable y no lo calcules cada vez (tanto el de la línea del while, como el que hay dentro). Si puedes hacer éstos cambios, a ver si baja bastante... (infórmanos )
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Pregunta
Ya he probado lo del RecordCount y he reducido 10 minutos. Ahora estoy probando poner el TADOTable pero no veo la propiedad "FieldByIndex". Es que no la he buscado bien?
Gracias. |
#4
|
|||
|
|||
creo que se refiere a Field[0] en vez de FieldByName('fecfac'), que en ver por nombre, accedas por la posicion de campo
|
#5
|
||||
|
||||
Cita:
El tema de los controles visuales (no refrescar cada registro, sino cada 500, por ejempo) creo que también te hará bajar bastante; junto con los índices en la tabla destino (si es posible). Una última cosa que se me ocurre (aunque no se si bajará mucho el tiempo) es utilizar un ADOQuery/ADOCommand para insertar en lugar de un ADOTable; En ese caso se puede "jugar" con las propiedades Prepared(False), ExecuteOptions(eoExecuteNoRecords), CursorType(ctOpenForwardOnly),... y tal vez alguna más... Lo dicho, sigue informándonos de los resultados, ya que es tema que interesa.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
|||
|
|||
Problemas con ADO, URGENTE!
Tengo la siguiente funcion para abrir la conexion ADO de enlace con las tablas access destino, pero me da error. PORQUE!!!
procedure TFAssistent.ObreADO(); begin ADOConnexioAccess.ConnectionString := 'Provider=MSDASQL.1;' + 'Persist Security Info=False;' + 'Extended Properties="DSN=WingestControl;' + 'DBQ=C:\Dades\WingestControl\ANCORA\dades.mdb;' + 'DriverId=25;' + 'FIL=MS Access;' + 'MaxBufferSize=2048;' + 'PageTimeout=5;' + 'UID=admin;"'; ADOConnexioAccess.Connected := True; ADOTAccessDades.Active := True; end; |
#7
|
||||
|
||||
Hola Tecnic.
Te pido que leas la guia de estilo de los foros, debido a que has puesto una nueva pregunta que nada tiene que ver con este hilo (aún cuando lo hayas iniciado vos). También te pido que aprendas a usar la etiqueta [delphi] para publicar trozos de código, correctamente indentados y con la sintaxis resaltada. De la manera que están publicados realmente se hace dificil su lectura. Por último, te refiero al hilo de la calidad de las preguntas; espero que al leerlo vos mismo entendas porque. Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#8
|
|||
|
|||
Lo siento, perdonad las molestias.
Siento no haber leido la guia de estilo.
Con los controles ADO ya ve copia los datos mucho mas rapido. Muchas gracias. |
#9
|
||||
|
||||
¿En cuanto tiempo ha quedado la cosa al final? (sólo por curiosidad)
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#10
|
|||
|
|||
Estoy en ello.
En cuanto haya hecho las pruebas suficientes os lo digo.
|
#11
|
|||
|
|||
Mas problemas
Tengo el siguiente código dentro de un bucle para escribir datos en la tabla destino, pero no me guarda los datos, aunque no me da ningún error:
ADOQueryAux és un objeto TADOQuery en el que hay datos, ADOTAccessDades és una tabla ADO ligada a un objeto TADOConnection en el que hay un connection string hacia la base de datos destino. ADOTAccessDades.Insert; ADOTAccessDades.Fields[0].Value := ADOQueryAux.Recordset.Fields.Item[0].Value; ADOTAccessDades.Fields[1].Value := ADOQueryAux.Recordset.Fields.Item[1].Value; ADOTAccessDades.Fields[2].Value := ADOQueryAux.Recordset.Fields.Item[2].Value; ADOTAccessDades.Fields[3].Value := ADOQueryAux.Recordset.Fields.Item[3].Value; ADOTAccessDades.Post; ADOQueryAux.Recordset.MoveNext; Por qué no me guarda los registros? |
#12
|
|||
|
|||
Dos cosillas....
Primera: Como hago lo de los índices en las tablas destino?
Segunda: Las propiedades que mencionas al usar un ADOQuery en lugar de un ADOTable tienen que estar en los valores que has escrito exactamente? Millones de gracias. |
#13
|
|||
|
|||
Test de velocidad
Tengo ya el programa probado con controles ADO y aparentemente no se aprecia ningún cambio en cuanto a lo que a velocidad se refiere.
No sé si será por algo que me falta o qué, pero parece que no hay cambio alguno. Mas consejos? |
#14
|
||||
|
||||
Cita:
NOTA: Creo que ésta opción de los índices, si puedes hacerla, tb acelerará bastante. Cita:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#15
|
|||
|
|||
Cómo creo los índices desde código?
Muchas gracias por tu respuesta Neftali.
Mi problema surge cuando establezco esos parámetros en mi control ADOQuery, me da un error de incompatibilidad, o algo así, entre éllos. Por otra parte, cómo lo hago para crear los índices de las tablas desde código? Además, no entiendo por que tendría que acelerar el traspaso de datos el crear los índices al final si precisamente al final los datos ya están copiados. Otra vez, gracias por adelantado. |
#16
|
||||
|
||||
Cita:
Cita:
te crea un índice en la tabla Clientes ascendente por el campo nombre. Cita:
El resultado de hacer: Código:
INSERT1 (la BD regenera el índice) INSERT2 (la BD regenera el índice) INSERT3 (la BD regenera el índice) INSERT4 (la BD regenera el índice) ... INSERT1000 (la BD regenera el índice) Código:
INSERT1 INSERT2 INSERT3 INSERT4 ... INSERT1000 (crear el índice)
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#17
|
||||
|
||||
Tecnic2:
Estuve haciendo unas pruebas ayer transfiriendo 600,000 registros de una tabla dbase a una tabla access. Para dbase usé un TTable anque usar un Query no creo qe cambie mucho los resultados, y para Access use un TAdoTable. Tal como sugiere Neftalí la tabla de Access no tenía índices al momento de la transferencia. En la primera prueba, copiando registro a registro tal como lo has hecho, el tiempo de transferencia total fue, digamos, infinito (no esperé ni con mucho a que terminara ). Luego de jugar con varias propiedades observé un cambio drástico con dos de ellas: Una, ya te la comentaron: CursorType := ctOpenForwardOnly La otra, CursorLocation := clUseServer Con estas dos, el tiempo total de transferencia fue de entre 4 y 5 minutos. // Saludos |
#18
|
|||
|
|||
Y cómo lo haces?
Tienes un bucle que recorre todos los registros normal y corriente? Me puedes pasar el código de ejemplo a ver si hay algo que hago mal?
Muchas gracias. |
#19
|
||||
|
||||
Te digo que es similar a lo que estás haciendo tú:
El decrecimiento radical lo obtuve con las dos propiedades que te menciono. // Saludos |
#20
|
|||
|
|||
ADO ha funcionado
He visto la luz...
Me faltaban establecer las propiedades CursorType y CursorLocation, a parte de lo de preguntar lo del State. He pasado de hora y media a 4 minutos y medio. Millones de gracias. |
|
|
|