oracle给某个用户访问所有表的权限

　　
　　工作总结:在oracle下给某个用户授予访问本用户下所有表的权限.
　　
　　例如:把scott用户下的所有表的查询权限授予T用户.
　　
　　
　　


create or replace procedure grant_selectAll_sql as
The_c1          Integer;
The_result      number;
v_Table     varchar2(80);
v_sql       varchar2(400);
Begin
The_C1 :=Dbms_sql.open_cursor;
Dbms_sql.parse(the_C1,'Select table_name From User_Tables',dbms_sql.native);
Dbms_sql.define_column(the_c1,1,v_Table,80);
The_result:=Dbms_sql.execute(The_c1);
loop
If dbms_sql.fetch_rows(The_c1) > 0 then
Dbms_sql.column_value(The_c1,1,v_Table);
v_sql := 'Grant Select On '||v_Table||' to T';
Execute Immediate v_sql;
else
exit;
End if;
end loop;
Dbms_sql.close_cursor(The_C1);
End;