Hola:
Cita:
for i:= 1 to registros do begin
Tabla.Insert;
Tabla.Append;
|
No entiendo bien porque usas simultáneamente estas dos instrucciones, si estás añadiendo registros, lo ideal es Append (no lo he comprobado pero la lógica me dice que debe ser más rápido también)
Cita:
Tabla.ApplyUpdates;
qryExporta.Next;
|
Si usas CachedUpdates, sería bueno que aplicaras los cambios cada x registros, no a cada uno, como parece indicar este código. Aunque los CachedUpdates están pensados para realizar toda la operación de golpe, como una transacción, mi uso con tablas dBase y Paradox me dice que hay que grabar cada 200 registros más o menos, si no se van bloqueando registros (el límite son 255) y se satura la cosa, (imagino que con FoxPro puede ser parecido).
¿Te has planteado utilizar un componente TBachtMove? Hay que molestarse en asignar bien la equivalencia entre campos, pero es bastante más rápido que ir registro a registro.
Hasta pronto,
Un Saludo