Oracle下用户对象的迁移，包（package），表，试图，序列

--授权并创建同义词

 declare
       CURSOR c_tabname is
         SELECT object_name FROM user_objects  
         where object_type   in(‘TABLE‘);
       v_tabname dba_tables.table_name%TYPE;
       sqlstr    VARCHAR2(200);
       
      CURSOR c_package IS    
      SELECT object_name FROM user_objects  
         where object_type   in(‘PACKAGE‘);
       r_package c_package%ROWTYPE;
      
      CURSOR c_view_seq IS
        SELECT object_name FROM user_objects  
         where object_type   in(‘VIEW‘,‘SEQUENCE‘);
          
      r_view_seq  c_view_seq%ROWTYPE;
      
      CURSOR c_synonym IS
        select ‘ create public synonym ‘||OBJECT_NAME||‘ for userA.‘||OBJECT_NAME||‘;‘  syn_create,
               ‘ drop  public synonym ‘||OBJECT_NAME   syn_drop       
        
        from user_objects 
          where object_type  
           in(‘TABLE‘,‘VIEW‘,‘PROCEDURE‘,‘SEQUENCE‘,‘PACKAGE‘);
           
        r_syn c_synonym%ROWTYPE;
      
     begin
      open c_tabname;
      loop
         fetch c_tabname
         into v_tabname;
         exit when c_tabname%NOTFOUND;
         sqlstr := ‘grant select, update, insert on userA.‘ || v_tabname ||
                ‘ to userB;‘;
         dbms_output.put_line(sqlstr);
        execute immediate sqlstr;
        
    end loop;
    close c_tabname;
    
    FOR r_package IN c_package LOOP
       sqlstr := ‘grant execute on userA.‘ || r_package.object_name ||
                ‘ to userB;‘;
         dbms_output.put_line(sqlstr);
         execute immediate sqlstr;
          

    END LOOP;
    
  dbms_output.put_line(‘视图和序列‘);
   FOR r_view_seq IN c_view_seq LOOP
       sqlstr := ‘grant select on userA.‘ || r_view_seq.object_name ||
                ‘ to userB;‘;
         dbms_output.put_line(sqlstr);
         execute immediate sqlstr;
           
   
    END LOOP;
   --创建同义词
   dbms_output.put_line(‘创建同义词!‘);
   FOR r_syn IN c_synonym LOOP 
      
    BEGIN
      sqlstr := r_syn.syn_drop;
      dbms_output.put_line(sqlstr);
      
      EXECUTE IMMEDIATE sqlstr;  
   
      sqlstr := r_syn.syn_create;
      dbms_output.put_line(sqlstr);
      
      EXECUTE IMMEDIATE sqlstr;  
     EXCEPTION
       WHEN OTHERS THEN 
         NULL;
     END ;
      
   END LOOP;
   
  END;