Foros Club Delphi - Insert múltiple (o masivo)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Insert múltiple (o masivo) (https://www.clubdelphi.com/foros/showthread.php?t=68005)

Hola santiago14, yo tambien tenía un inconveniente de ese tipo y mi solución fue sencilla.

si me cuentas qué componentes utilizas podría ayudarte.

GustavoCruz

Cita:

Empezado por GustavoCruz (Mensaje 365545)

Hola santiago14, yo tambien tenía un inconveniente de ese tipo y mi solución fue sencilla.

si me cuentas qué componentes utilizas podría ayudarte.

GustavoCruz

Gustavo, gracias por responder.
Utilizo Delphi 7, Firebird 1.5 (estoy pasándome al 2.1), MDO la última versión que hay.
Para las grillas uso StringGrid y NextGrid.

¿Necesitas saber algo mas?
Saludos.

Cita:

Empezado por GustavoCruz (Mensaje 365545)

Hola santiago14, yo tambien tenía un inconveniente de ese tipo y mi solución fue sencilla.

si me cuentas qué componentes utilizas podría ayudarte.

GustavoCruz

Gustavo, quedaste en contestarme... Saludos.

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

Cita:

Empezado por g_ferrada (Mensaje 393314)

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

Está bueno el aporte, habría que ver la manera de mejorar el asunto de las inserciones de a 200 registros.
Tal vez la versión 2.5 de Firebird tenga alguna herramienta que ayude en el caso.
Saludos.