Insert múltiple (o masivo)

[santiago14]

Buenas, la duda es la siguiente:
¿Se puede hacer un insert masivo en Firebird 1.5?

La idea sería poder hacer algo así: (como en MySQL, por ejemplo)

Código SQL [-]
Insert into conceptos (codigo, nombre, direccion, estado)
values (1, 'santiago', 'Salta', 'A'), (2, 'Juan', 'La loma', 'A'),
(3, 'Pedro', 'Cerrillos', 'A')

Nunca he podido armar algo parecido, así me libero de hacer un for y enviar un insert por vez. Esto lograría que fuéramos una sola vez hacia el servidor firebird e insertar todos los valores de una sola vez.

Bien, espero haber sido claro.

Saludos.

[Casimiro Notevi]

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

[defcon1_es]

Empezado por Casimiro Notevi

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

Sólo se puede si los datos están en otra tabla o se pueden recuperar de un procedimiento almacenado de la BD, de la forma:

Código SQL [-]
INSERT INTO FACTPEND(IDFACTURA, IDDOCUMENTO)
SELECT DISTINCT PARIDFACTURA, PARIDDOCUMENTOCOBRO 
FROM PRAJUSTES
WHERE (PARPENDIENTE != 0)

[Casimiro Notevi]

Sí, en eso tienes razón, aunque una sentencia de insert como la que ha puesto santiago14 no la había visto nunca

[santiago14]

Bueno, el caso puntual es de una factura (su detalle), la carga se hace renglón por renglón y se va acumulando en una grilla, en pantalla. Luego de esto, un botón de confirmación hace los controles correspondientes y recorremos la grilla con un FOR, por cada vuelta del FOR tengo que hacer un Insert, esto implica todo un tramiterío de la transacción hasta que vuelve a tomar el control mi software para así dar lugar al siguiente Insert.
Bien, creo que sería mas práctico "armar" una SQL con los datos que voy sacando de la grilla y enviarla una sola vez en el Insert.
Esto no es descabellado, lo he visto en MySQL (la sintaxis no la recuerdo exactamente pero es algo parecido a lo que puse) y así evitamos tantas idas y vueltas para cargar los detalles.

Bueno, espero haber aclarado la cosa.
Si no hay forma en Firebird, ya está, habrá que ver la manera de minimizar los accesos a la BD en los casos de los Insert's.

Gracias.

[Casimiro Notevi]

Si también tienes que hacer el bucle para recorrer los registros y crear el insert... pues igual lo haces con firebird, tan sólo que ya lo insertas directamente sin tener que armar el sql de todos en conjunto
En fin, de todas formas, no se puede con firebird.

[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.