// Importa os dados da base origem para a destino

execute ibeblock
as
begin
   create connection BaseOrigem  dbname 'c:\Bancos\Origem\BASE.FDB'  password 'masterkey' user 'SYSDBA' clientlib 'fbclient.dll';
   create connection BaseDestino dbname 'c:\Bancos\Destino\BASE.FDB' password 'masterkey' user 'SYSDBA' clientlib 'fbclient.dll';

   use BaseOrigem;

   For
      Select
         C.Codigo,
         C.Nome
      CIDADE C
   into :vCodigo, :vNome

   do begin

      use BaseDestino;

      insert into CIDADE(Codigo,Nome) values (:vCodigo, :Nome);

   end

   use BaseDestino;

   commit;

   close connection BaseOrigem;
   close connection BaseDestino;
end