Código SQL [-]
insert into tabla-B  select * from tabla-A

Código SQL [-]

Insert Into tabla-B (campo1, campo2, campo3, campo4, campo5)  select * from tabla-A

Código SQL [-]
SELECT RDB$FIELD_NAME
FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME='BD1' AND RDB$RELATION_NAME='BD2';

Código SQL [-]
SELECT RDB$FIELD_NAME AS field_name,
RDB$FIELD_POSITION AS field_position,
RDB$DESCRIPTION AS field_description,
RDB$DEFAULT_VALUE AS field_default_value,
RDB$NULL_FLAG AS field_not_null_constraint
FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME='BD1';

Código Delphi [-]
tabla1.open;
while not tabla1.eof do
begin
  tabla2.append;
  for iX=0 to tabla1.fields.count-1 do
    tabla2.fields[iX].value := tabla1.fields[iX].value;
  tabla2.post;
  tabla1.next;
end;

Código SQL [-]
SELECT RDB$FIELD_NAME
FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME='BD1' AND RDB$RELATION_NAME='BD2';

Código SQL [-]
Insert Into BD2 (dato0, dato1, dato2, dato3, dato4, dato5)  select dato1, dato2, dato3, dato4, dato5 from BD1

Código SQL [-]
insert into tabla_b
select 0,* from tabla_a

Código Delphi [-]
insert into tabla_b
select *, 0 from tabla_a

Código SQL [-]
insert into tabla-B
select 0, a.* from tabla-A a

Código SQL [-]
iID = GEN_ID(GEN_GLOBAL,1);

insert into tbapunteshistorico
select iID, a.* from tbapuntes a

Código SQL [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE PRUEBA 
returns (
    consulta1 varchar(500))
as
declare variable consulta varchar(500);
declare variable campo varchar(250);
begin
  /* Procedure Text */
 CONSULTA1= 'INSERT INTO TABLA1 ';
 CONSULTA = ' SELECT ';
  for select f.rdb$field_name
    from rdb$relation_fields f
    left join rdb$fields fs on fs.rdb$field_name = f.rdb$field_source
    left join rdb$field_dimensions d on d.rdb$field_name = fs.rdb$field_name
    left join rdb$character_sets cr on fs.rdb$character_set_id = cr.rdb$character_set_id
    left join rdb$collations co on ((f.rdb$collation_id = co.rdb$collation_id) and
    (fs.rdb$character_set_id = co.rdb$character_set_id))
    where f.rdb$relation_name = 'TABLA1'
    order by f.rdb$field_position, d.rdb$dimension
    into :CAMPO
    do
     begin
       CONSULTA= CONSULTA||TRIM(CAMPO)||',' ;
       --suspend;
     end
     CONSULTA1=CONSULTA1||CONSULTA||' from TABLA2';
end^

Código SQL [-]
insert into TEGRESO_BORRADOS
select A.*, CAST('NOW' AS DATE), :motivoBorrar, gen_id(TEGRESO_RELACION_GEN,1) from TEGRESO a 
where a.ID = :ID

Código SQL [-]
insert into Members (number, name)
  select number, name from NewMembers where Accepted = 1
    union
  select number, name from SuspendedMembers where Vindicated = 1