批量删除表的方法

该方法可进行小数据量的迁移工作

-- 如果表己经存在可以批量删除，然后重建
begin
  for t in (
  select table_name from
  user_tables t
 ) loop
   execute immediate 'drop table '||t.table_name;
  end loop;
end;
-- 批量建表
begin
  for t in (
  select table_name from 
  user_tables@db_bas t
 ) loop
   execute immediate 'create  table '||t.table_name|| 'as select * from '||t.table_name||'@db_bas';
  end loop;
end;