问题提出:
为了控制用户权限,给某些用户只有查询系统的权限,但是这样带来的维护麻烦是每次系统创建了新的表,都需要给查询用户对这个表的查询权限授权,然后查询用户使用的时候不方便,要加上用户的前缀才能使用。这里提供一个自动为新创建的表进行授权和创建同义词的办法。
[@more@]解决的办法就是使用系统触发器,当在一个schema上创建一个表的时候,就使用动态语句来执行授权和创建同义词的语句。问题的难点是如果单纯使用execute immedite来创建同义词,则会报权限不足,怎么都搞不定。后来搜索了一下,tom提供了下面的方法,就是把任务提交到一个job,使用job来完成创建同义词的工作,问题得到解决。
结合上一篇发表的一个自杀程序,可以看到,很多东西如果程序做起来不方便,可以通过job进行变通,让job来完成我们需要的工作。
CREATE OR REPLACE TRIGGER AUTO_CREATE_SYNONYM
AFTER CREATE ON SCHEMA
DECLARE
V_STR VARCHAR2(200);
V_JOB NUMBER;
BEGIN
IF (ORA_DICT_OBJ_TYPE = 'TABLE') THEN
--判断创建的对象是否是表
V_STR := 'execute immediate "grant select on ' || ORA_DICT_OBJ_NAME ||
' to query";';
--为查询用户query授权
DBMS_JOB.SUBMIT(V_JOB, REPLACE(STR, '"', ''''));
V_STR := 'execute immediate "create or replace synonym query.' ||
ORA_DICT_OBJ_NAME || ' for ' || ORA_DICT_OBJ_NAME || '";';
--创建同义词
DBMS_JOB.SUBMIT(V_JOB, REPLACE(STR, '"', ''''));
END IF;
EXCEPTION
WHEN OTHERS THEN
MAIL_TOOLS.MAIL_FILES('');
END AUTO_CREATE_SYNONYM;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25016/viewspace-926488/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/25016/viewspace-926488/