Pasted

EXECUTE block
AS
DECLARE variable vi_CodEmpresa INTEGER;
DECLARE variable vs_Nome       VARCHAR(100);
BEGIN
 
   FOR
      SELECT
         CODEMPRESA,
         NOME
      FROM EMPRESA
      INTO
         :vi_CodEmpresa,
         :vs_Nome
   do BEGIN
 
      EXECUTE statement 'insert into ALUNO (ID,NOME) values ('||:vi_CodEmpresa||',''' || :vs_Nome || ''')'
         ON external DATA SOURCE 'C:\CAMINHO_DESTINO\DADOS.FDB' AS USER 'sysdba' PASSWORD 'masterkey';
 
   END
 
END