restriccion al momento de hacer insert

[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