oracle批量授权

背景：
oracle数据库，存在用户A和用户B
对单表授权：
grant insert,select,update,delete on A.TABLE1 to B;
批量授权：
1、先查出所有授权语句
A用户登录然后执行以下sql；
select 'grant insert,select,update,delete on A.' || table_name || ' to B;' from user_tables
或者执行以下sql
select 'grant insert,select,update,delete on A.' || table_name || ' to B;' from all_tables where owner = ‘A’
2、执行上一步得到的结果
grant insert,select,update,delete on A.TABLE1 to B;
grant insert,select,update,delete on A.TABLE2 to B;
......

利用存储过程批量授权：
create or replace procedure test(A in varchar2, B in varchar2) is
v_sql varchar2(1000);
cursor v_cur is
select t.* from dba_tables t where t.OWNER = A;

begin
for v_row in v_cur loop
v_sql := 'grant select on ' || A || '.' || v_row.table_name ||
' to ' || B;
execute immediate v_sql;
end loop;
end test;