Using DBMS_SYS_SQL Package to grant Privilege

此话题源于留言板上的一个提问，看了Itpub上也有很久以前的的提问:

关于用户授权的问题！

在Oracle9i之前，如果你想要把对象权限授予某些用户，那么你需要使用该对象属主或者使用具有该对象with grant option权限的用户。

很多时候你可能需要进行批量授权，那么DBMS_SYS_SQL包可以为你提供简便.

以下过程供参考:

declare 
sqltext 	varchar2(200); 
c 		integer; 
begin 
for userlist in (select user_id,username from all_users where username not in ('SYS','SYSTEM','EYGLE')) loop
for tablelist in (select owner,table_name from dba_tables where owner = userlist.username) loop 
sqltext := 'grant all on '||tablelist.owner||'.'||tablelist.table_name ||' to eygle with grant option'; 
c := sys.dbms_sys_sql.open_cursor(); 
sys.dbms_sys_sql.parse_as_user( c,sqltext,dbms_sql.native,userlist.user_id); 
sys.dbms_sys_sql.close_cursor(c); 
end loop; 
end loop;
end; 
/