Insert múltiple (o masivo)

[rgstuamigo]

Empezado por Casimiro Notevi

Que yo sepa no se puede, ¿en qué casos puedes necesitar hacerlo así?

Bueno la razón mas obvia sería cuando se tiene que insertar muchos registros(no pocos) en una tabla si se lo quiere hacer de una sola vez.
Por ejemplo: Supongamos que tenemos la tabla> Artículo (ID,Nombre); lo normal para insertar datos es hacerlo asi:

Código SQL [-]
Insert into Artículo values (1,'Arroz');
Insert into Artículo values (2,'Azucar');
Insert into Artículo values (3,'Fideo');
Insert into Artículo values (4,'Frejol');
Insert into Artículo values (5,'Avena');
...

Si nos damos cuenta es un poco tedioso, por tal motivo algunos servidores de Bases de datos (MySQL por ejemplo) soportan las inserciones masivas, de tal manera que cuando se quiera insertar miles de registro de un golpe, sencillamente se puede utilizar una sintaxis SQL parecida a la siguiente:

Código SQL [-]
Insert into Artículo (ID,Nombre) values(1,'Arroz'),(2,'Azucar'),(3,'Fideo'),(4,'Frejol'),(5,'Avena'),...;

.
Si nos damos cuenta ésto nos permite ahorrar sintaxis y sobre todo evitamos la saturación de estar insertardo uno a uno los registro, es éste caso se insertar todos de una sola vez. desde luego es recomendable utilizar transacciones para hacer las inserciones masivas, ya que cuando se está hablando de muchos registros, puede ocurrir que cuando nuestro servidor esté guardando la insercion ocurra un fallo y tengamos problemas, de ahí que es conveniente usar transacciones, O en todo caso si se tiene que insertar miles de registro, pues dividir la insercion en bloques por ejemplo de 1000 registros cada una para mayor seguridad.

En lo personal he implementado desde delphi una inserción masiva, para lo cual he encontrado dos formas de hacerlo; en mi caso yo mando todos los registros a insertar dentro de una lista(un objeto TObjectList) a una funcion en la que hago es ir creando mi consulta SQL con los elementos de esa lista.
A continuacion describo las dos formas con las que he logrado implememtar con mi funcion en particular:
Primera forma de hacerlo: Creando muchos parámetros en la consulta SQL:

Código Delphi [-]
function TDet_Req_Dinero.InsertarLista(L: TObjectList): Boolean;
var I:Integer;
aux:TDet_Req_Dinero;
Query:TZQuery;
n,p:String;
begin
Result:=True;
if L.Count>0 then  //si mi lista tiene elementos
 Begin
    Result:=False;
    Query:=TZQuery.Create(nil);//creo mi Query
      try
         with Query do
          begin
            Connection:=DataModule1.ZConnection1;//asigno el componente Conexion a mi query
            SQL.Add('Insert into Req_Dine(Item,Nro_Req,MontoEnBs,MontoEnSus,Motivo)values ');//adicono la primera parte de mi SQL
            for  I:=0  to L.Count-1 do
            begin
              aux:=TDet_Req_Dinero(L.Items[i]);//Obtengo el objeto [i] de la lista y le hago casting hacia un objeto TDet_Req_Dinero
              n:=IntToStr(I);//convierto i a string
              p:='(:I'+n+',:Nro'+n+',:Bs'+n+',:Sus'+n+',:Moti'+n+')';//hago que se cree los parámetros necesarios en esa iteración
              if (i=L.Count-1) then // si es la ultima fila agrego el punto y coma ( ; )
                    SQL.Add(p+';')
              else  SQL.Add(p+',');//sino solamante pongo coma(,)

                //asigno los datos a los parámetros [i] de esa iteracion
              ParamByName('I'+n).AsInteger:=aux.Item;
              ParamByName('Nro'+n).AsInteger:=aux.Nro_R;
              ParamByName('Bs'+n).AsFloat:=aux.MontoBs;
              ParamByName('Sus'+n).AsFloat:=aux.MontoSus;
              ParamByName('Moti'+n).AsString:=aux.Motivo;
            end;
           ExecSQL;// ejecuto la inserción masiva
           Result:=True;
          end;
      finally
      Query.Free;
      end;
 end;
end;

Segunda forma de hacerlo: Usando la funcion Format de la unidad SysUtils, en este caso no se crea ningun parámetro en la consulta SQL, sino mas bien se arma la consulta SQL manualmente:

Código Delphi [-]
function TDet_Req_Dinero.InsertarLista2(L: TObjectList): Boolean;
var I:Integer;
aux:TDet_Req_Dinero;
Query:TZQuery;
s:String;
begin
Result:=True;
if L.Count>0 then //si mi lista tiene elementos
 Begin
    Result:=False;
    Query:=TZQuery.Create(nil);//creo mi Query
      try
         with Query do
          begin
           Connection:=DataModule1.ZConnection1;//asigno el componente Conexion a mi query
           DecimalSeparator:='.';{Cambio el caracter a la variable "DecimalSeparator" de la unidad "SysUtils"
                                  Esto sirve para que los decimales de los datos float me aparescan con punto(.)
                                  y no con coma(,) al hacer la conversion a string usando la funcion "format",
                                  para mas info ver la ayuda}
            SQL.Add('Insert into Req_Dine(Item,Nro_Req,MontoEnBs,MontoEnSus,Motivo)values ');//adicono la primera parte de mi SQL
            for  I:=0  to L.Count-1 do
            begin
              aux:=TDet_Req_Dinero(L.Items[i]);
              s:=Format('(%d,%d,%f,%f,''%s'')',[aux.Item,aux.Nro_R,aux.MontoBs,aux.MontoSus,aux.Motivo]);{Formateo los datos
                                    dentro de mi varible "s", para mas info ver la ayuda de Delphi sobre los diferentes formatos
                                    que se puede dar en la funcion "Format"}
              if (i=L.Count-1) then // si es la ultima fila agrego el punto y coma ( ; )
                    SQL.Add(s+';')
              else  SQL.Add(s+',');//sino solamante pongo coma( , )
            end;
           ExecSQL;// ejecuto la inserción masiva
           Result:=True;
          end;
      finally
      Query.Free;
      DecimalSeparator:=',';//Vuelvo a poner el caracter por defecto de la varible "DecimalSeparator" de la unidad "SysUtils"
      end;
 end;
end;

Espero que le sirva como ejemplo al amigo santiago14..
Saludos...

[fled]

Hola rgstuamigo, estaba checando tus procedimientos y me di cuenta de que utilizas el ZQuery, tiene este algo en especifico por el cual lo utilices, o funcionaria igual con el IBQuery?

[santiago14]

Mi mas eterno agradecimiento, rgstuamigo, creo que tu PRIMERA SOLUCIÓN, es la que necesito.
Puesto que de esa manera trabajo un poco mas en el módulo del Insert y luego le mando una sola vez el paquete para que Firebird haga la inserción.
Todo por supuesto bajo una transacción que controla la cosa.

Igualmente, esto está hecho para Zeos, yo uso MDO así que voy a hacer las adaptaciones pertinentes y aviso que tal me fue.

Agradezco desde ya a todos por su ayuda.

[santiago14]

Bueno, en principio para Firebird la forma propuesta no funciona. Estoy probando algunas opciones alternativas. Mañana les digo puesto que ya es medio tarde.

[santiago14]

Bueno, investigando un poco encontré esto, igualmente no funciona en Firebird 1.5.
Quisiera que me den una mano.


How to insert multiple rows in a single statement?

There are various approaches. For example, if you wish to insert these:

10 ten
11 eleven
12 twelwe

you can use UNIONs:

Código SQL [-]
INSERT INTO table1 (col1, col2)
SELECT 10, 'ten ' FROM RDB$DATABASE UNION ALL
SELECT 11, 'eleven' FROM RDB$DATABASE UNION ALL
SELECT 12, 'twelwe' FROM RDB$DATABASE;

Please note that datatypes must match (esp. if you use Firebird 1.x).

Lo encontré aqui.

Gracias.

[santiago14]

Al intentar operar con el Insert propuesto, Firebird devuelve el siguiente error:

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 3, char 1.
UNION.

line 3, char 1: Es donde empieza el primer "UNION"

Esto SI funciona

Código SQL [-]
INSERT INTO table1 (col1, col2)
SELECT 10, 'ten ' FROM RDB$DATABASE;

Esto NO funciona

Código SQL [-]
INSERT INTO table1 (col1, col2)
SELECT 10, 'ten ' FROM RDB$DATABASE 
UNION ALL
SELECT 11, 'eleven' FROM RDB$DATABASE 
UNION ALL
SELECT 12, 'twelwe' FROM RDB$DATABASE;

Repito, uso Firebird 1.5

[Casimiro Noteví]

Aunque funcione, es un poco engorroso, no?

[santiago14]

Empezado por santiago14

Esto NO funciona

Código SQL [-]
INSERT INTO table1 (col1, col2)
SELECT 10, 'ten ' FROM RDB$DATABASE 
UNION ALL
SELECT 11, 'eleven' FROM RDB$DATABASE 
UNION ALL
SELECT 12, 'twelwe' FROM RDB$DATABASE;

Repito, uso Firebird 1.5

Le envié un mail a la gente de firebirdfaq.org comentándoles que la expresión propuesta por ellos no funcionaba en Firebird 1.5, esto me respondieron:

"It works on 1.5 as well, make sure you put 3 spaces after "ten"

Algo así como: Si trabaja en Firebird 1.5, asegúrese de poner 3 espacios después de "ten"

En el ejemplo de la página no hay tres espacios, tampocon especifican si es antes o después de la comilla. Bueno, para el que tenga el mismo problema que lo pruebe con los espacios después de "ten" y me cuenta.
Yo ya no tengo Firebird 1.5, con todas estas idas y vueltas lo saqué y puse Firebird 2.1.

Saludos.