作者:  来源:  发布日期:2007-10-31 17:58:28  点击次数:

也是从CSDN上找来的.....

1).logon as grantor, for instance USER1  
  2).   run   PL/SQL   scripts:  
  DECLARE  
        p_grantee VARCHAR2(30):='ywxt_module_admin';  
  BEGIN  
        FOR rec IN (SELECT object_name, object_type
                   , DECODE (object_type, 'TABLE', 'ALL', 'VIEW', 'SELECT', 'EXECUTE') grant_type FROM user_objects)  
        LOOP  
            BEGIN  
                EXECUTE IMMEDIATE 'grant all on ' || rec.object_name || ' to ' || p_grantee;  
            EXCEPTION  
                WHEN OTHERS THEN  
                    DBMS_OUTPUT.PUT_LINE(SUBSTR (SQLERRM,1,240));  
            END;  
        END LOOP;  
  END;
  /