|
Bueno, ya me di cuenta que este tema se agotó hace un rato, pero me sirvió para lo que estoy haciendo: cargo una lista de 3.000.000 de códigos de 8 caracteres contenidos en un archivo txt. Cada código es una línea que termina con CR LF. Leer el archivo lo hice con TFileStream, y eso funciona a la perfección. Mi problema ha sido la inserción de cada código en una base Firebird, usando las ZLib (Delphi 7), con tres campos, el código mismo (como llave única), un entero de estado, y un entero identificador (correlativo).
Al principio use un ZTable y AppendRecord dentro de un bucle <for i:= 1 to TXT.Size> ... funcionaba bien con una prueba de 1000 registros, pero con 100.000 ya empezaba a inquietar al más paciente, ni les digo con tres millones: medí como dos horas, y aún no terminaba.
Buscando otros métodos dí con este blog y el insert masivo. Mi base de datos es Firebird 2.1 así que utilicé la forma
EXECUTE BLOCK AS BEGIN
INSERT INTO table1 (col1, col2) VALUES (2, 'two');
INSERT INTO table1 (col1, col2) VALUES (4, 'four');
INSERT INTO table1 (col1, col2) VALUES (5, 'five');
END
Reemplacé el ZTable por ZQuery, agregando un INSERT en el SQL.Text por cada registro
La única dificultad es que el bloque sólo acepta 255 INSERT, así que en mi bucle ejecuto el query cada 200 registros, entonces reinicio el SQL.Text. O sea, inserto los registros en bloques de 200. Con esto logré reducir el tiempo de a 25 minutos... no será una maravilla, pero es bastante mejor de lo que tenía.
Decidí escribir este post, por si a alguien le sirve de utilidad. Y si saben como hacerlo todavía mejor, agradecería una sugerencia.
Saludos
|