Oracle下用户对象的迁移,包(package),表,试图,序列
问题: 在开发系统时候,有时我们希望能够限制前端页面对数据库的访问行为,比如在Oracle数据库当中,我们采用A用户创建数据库的表结构,package,视图,序列,因此A用户具有访问这些对象的所有权限,
如果前端页面是另一个团队(BTeam)开发,另一个团队对数据库的表结构了解不够熟悉,为了防止BTeam错误的操作导致数据的混乱,我们为BTeam用户创建一个用户B,BTeam通过用户B来访问A用户下
创建的对象,由于BTeam通过B用户来访问数据库,此时在数据库层面可以限制B用户的访问权限,从而在一定程度上防止BTeam错误的操作导致数据库中数据的混乱。
此时开发一个较大的系统时,A用户下可能会存在很多对象,那么如果把A用户的对象批量的授权给B用户呢? 脚本如下
--授权并创建同义词 declare CURSOR c_tabname is SELECT object_name FROM user_objects where object_type in('TABLE'); v_tabname dba_tables.table_name%TYPE; sqlstr VARCHAR2(200); CURSOR c_package IS SELECT object_name FROM user_objects where object_type in('PACKAGE'); r_package c_package%ROWTYPE; CURSOR c_view_seq IS SELECT object_name FROM user_objects where object_type in('VIEW','SEQUENCE'); r_view_seq c_view_seq%ROWTYPE; CURSOR c_synonym IS select ' create public synonym '||OBJECT_NAME||' for userA.'||OBJECT_NAME||';' syn_create, ' drop public synonym '||OBJECT_NAME syn_drop from user_objects where object_type in('TABLE','VIEW','PROCEDURE','SEQUENCE','PACKAGE'); r_syn c_synonym%ROWTYPE; begin open c_tabname; loop fetch c_tabname into v_tabname; exit when c_tabname%NOTFOUND; sqlstr := 'grant select, update, insert on userA.' || v_tabname || ' to userB;'; dbms_output.put_line(sqlstr); execute immediate sqlstr; end loop; close c_tabname; FOR r_package IN c_package LOOP sqlstr := 'grant execute on userA.' || r_package.object_name || ' to userB;'; dbms_output.put_line(sqlstr); execute immediate sqlstr; END LOOP; dbms_output.put_line('视图和序列'); FOR r_view_seq IN c_view_seq LOOP sqlstr := 'grant select on userA.' || r_view_seq.object_name || ' to userB;'; dbms_output.put_line(sqlstr); execute immediate sqlstr; END LOOP; --创建同义词 dbms_output.put_line('创建同义词!'); FOR r_syn IN c_synonym LOOP BEGIN sqlstr := r_syn.syn_drop; dbms_output.put_line(sqlstr); EXECUTE IMMEDIATE sqlstr; sqlstr := r_syn.syn_create; dbms_output.put_line(sqlstr); EXECUTE IMMEDIATE sqlstr; EXCEPTION WHEN OTHERS THEN NULL; END ; END LOOP; END;