Fórum Como fazer um while e insert apos o select no IbExpert #380834

você pode fazer numa única instrução:

Insert Into Adm_Cad_Cep (Cep, Logradouro, Numero, Bairro, CodCidade, Complemento)
Select E.Cep, E.Logradouro, E.Numero, E.Bairro, B.CodCidade, E.Complemento)
From Adm_Cad_Endereco E, Adm_Cad_Bairro B
where E.CodBairro = B.Codigo and (B.Codigo >= :Cod1) and (B.Codigo <= :Cod2)

outra forma é como o colega Daniel Tavares sugeriu, usando uma stored procedure:

create procedure CADENDERECO (
    cod1 integer,
    cod2 integer)
as
declare variable cep varchar(8);
declare variable logradouro varchar(80);
declare variable numero varchar(5);
declare variable bairro varchar(50);
declare variable codcidade integer;
declare variable complemento varchar(30);
begin
  for
    select E.Cep, E.Logradouro, E.Numero, B.Bairro, B.CodCidade, E.Complemento
    from Adm_Cad_Endereco E, Adm_Cad_Bairro B
    where E.CodBairro = B.Codigo and (B.Codigo >= :cod1) and (B.Codigo <= :cod2)
    order by B.Codigo
  into
    :cep, :logradouro, :Numero, :Bairro, :CodCidade, :Complemento
  do
    insert into Adm_Cad_Cep (Cep, Logradouro, Numero, Bairro, CodCidade, Complemento)
    values (:cep, :logradouro, :Numero, :Bairro, :CodCidade, :Complemento);
end

e, para executá-la:

EXECUTE PROCEDURE CADENDERECO(1, 1000)

note que em nenhum dos exemplos acima é passado um valor para o campo Codigo. para fazer desta forma esse campo deve estar como NOT NULL e ter um generator e uma trigger ligados à ele.

eis a instrução para criação do generator:

CREATE GENERATOR GEN_ADM_CAD_CEP_ID;

e da trigger:

CREATE OR ALTER TRIGGER ADM_CAD_CEP_BI FOR ADM_CAD_CEP
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.codigo is null) then
    new.codigo = gen_id(gen_adm_cad_cep_id,1);
end

note também que você não está fazendo qualquer verificação de existência do registro na tabela destino. isso não é perigoso? a cada vez que a stored procedure for executada, os registros serão multiplicados.