restriccion al momento de hacer insert

[roman]

En tal caso es de suponerse que los otros dos campos son fijos para todos los registros que vas a insertar así que puedes hacer algo como:

Código SQL [-]
insert into tabla destino
(campo1, campo2, campo3, campo4)
select campo1, campo2, :valor3, :valor4
from tabla fuente
where flag = 1

Al ejecutar la consulta sustituyes los parámetros valor3 y valor4 por las variables.

// Saludos

[el_barto]

Tu sugieres que quede asi??? no hay necesidad de colocar el values???

Código Delphi [-]
 
IBDataset2.Close;
Ibdataset2.InsertSQL.Clear;
IBdataset2.InsertSQL.Add('insert into prod_comp(codigo_prod, codigo_comp, item_subcomp, item_subprod) select :1001, codigo_comp, item_subcomp, :1 from subcomp where flag_subcomp = 1');
IBDataset2.Open;
IBDataset2.Active:=true;
Next;

[roman]

Lo que sugiero es, primero, que te tomes un tiempo en revisar la sintaxis y uso de la sentencia INSERT. Hasta donde yo conozco, el uso de VALUES es para la inserción de un sólo registro. Aunque algunos motores extienden la sintaxis para múltiples registros, los registros insertados son estáticos en el sentido de que debes proveer explícitamente los valores de los campos. Por otra parte, la sentencia INSERT INTO ... SELECT se usa para la inserción de registros provenientes de otra tabla.

Cuando originalmente pregunté si Interbase soportaba este tipo de sentencia (cosa que supongo que es así aun cuando no lo sé a ciencia cierta, pero me baso en la máxima: si algo funciona en Paradox- base con la que probé lo que he sugerido -debe funcionar en casi cualquier otro motor; derivada su vez de la máxima: menos potente que Paradox sólo DBase) lo hice con la intención de decir que no era necesario un ciclo para la inserción de los registros sino que bastaba una sóla sentencia SQL.

En segundo lugar te sugiero que revises el uso de parámetros en sentencias SQL- '1001' no puede ser el nombre de un parámetro.

En tercer lugar una crítica constructiva que espero no tomes a mal porque no la hago con ánimo de molestar ni ofender.

He leído muchos de tus mensajes, dudas e intentos por resolverlas y considero que atacas los problemas con la técnica de "dar palos de ciego".

Preguntas aquí y allá, modificas esto y lo otro, quitas líneas y agregas otras esperando que alguno de los cambios resulte. Pero de esta forma, aunque eventualmente puedes llegar a la solución, tardas mucho más de lo que tardarías si te detuvieras a analizar lo que estás haciendo, a plantear (primero a ti y luego a los demás) de forma clara el problema en cuestión, y a estudiar libros o manuales. No se trata de poner VALUES y probar, quitar VALUES y probar. Si ya te has dado cuenta de que la sentencia INSERT tiene distintas modalidades entonces tómate un tiempo en revisar la sintaxis en un manual antes de "dar palos de ciego".

Tal como planteas el problema, no hacen falta ni triggers ni ciclos sino una sóla sentencia INSERT .. SELECT; eso sí, con sus parámetros bien colocados y sustituídos.

// Saludos

[el_barto]

Tienes toda la razon roman, y aprecio tu opinion, aun no estoy muy familiarizado ni con delphi ni con interbase, debido a eso no soy el mas ortodoxo ni organizado que hay. Muchas gracias sin embargo

[roman]

A ver, disculpa, hay algo que no es correcto en la sentencia que puse:

Código SQL [-]
insert into tabla destino
(campo1, campo2, campo3, campo4)
select campo1, campo2, :valor3, :valor4
from tabla fuente
where flag = 1

Eso me pasa por no pensar detenidamente

No se pueden pasar como parámetros los campos en la lista de una sentencia SELECT.

Vamos a suponer que campo1 y campo2 son los campos que pasan de la tabla fuente a la tabla destino y que campo3 y campo4 son los campos en la tabla destino que toman sus valores de variables externas.

Si estos valores fueran, por decir algo, 84 y "juan de los palotes", la sentencia se vería así:

Código SQL [-]
insert into tabla destino
(campo1, campo2, campo3, campo4)
select campo1, campo2, 84, "juan de los palotes"
from tabla fuente
where flag = 1

Como no puedes dar 84 y "juan de los palotes" como parámetros (al menos en el bde que es donde estoy probando) lo que puedes hacer, para no tener que intercalarlos al momento de construir la sentencia, es definir una constante:

Código Delphi [-]
const
  fmtSql =
    'insert into tabla_destino'#13 +
    '(campo1, campo2, campo3, campo4)'#13 +
    'select campo1, campo2, %d, "%s"'#13 +
    'from tabla_fuente'#13 +
    'where flag = 1';

y sustituir %d y %s con los valores reales usando Format antes de ejecutar la consulta:

Código Delphi [-]
IBdataset2.InsertSQL.Text := Format(fmtSql, [var3, var4]);

donde var3 y var4 son las variables con los valores (del tipo adecuado, en este caso Integer y String respectivamente).

Todo esto suponiendo que realmente tu intención es asignar los valores de var3 y var4 a todos los registros que vas a insertar de esta forma. Si no es así tendrás que aclarar más.

// Saludos

[el_barto]

Eso mismo, es lo que necesito Gracias Roman.