Copiado de Tablas

[jachguate]

Podes basarte en el diccionario de datos. Específicamente en las tablas rdb$relations y rdb$relation_fields, para construir la sentencia al vuelo.

Por supuesto, tendrás que incluir la lógica para identificar la columna que queres cambiar y meter el cambio a mano...

algo como

if (columna = 'LACOLUMNAQUEQUIERO') Then
  Sentencia = Sentencia || 'nuevovalor, ';
else
  Sentencia = Sentencia || columna || ', ';

hasta luego.

[teletranx]

Uli

Utilizando execute statement de FireBird 1.5 puedes hacer una cadena (String) uniendo el Insert como el select .

Ejemplo
Sql1 = 'Insert Into ' || TABLA || ' (<campos>,'
Sql2 = 'Select <Campo1Key> + 1,';

...
.
....

..
Sql3 = sql1 || sql2 ;
execute statement sql3;

Con eso puedes copiar Registros de la Misma Tabla con diferente key

Juan carlos