将oracle查询权限赋予另一用户的方法

复制create or replace procedure grant_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 brokeruser3;            Execute Immediate v_sql;         else           exit;         End if;        end loop;         Dbms_sql.close_cursor(The_C1);   End;   1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.