过程执行DDL语句提示ORA-01031错误

--创建测试用户
create user hat identified by hat default tablespace dolphin;

--授权限
grant connect,resource to hat;

--查看hat用户的角色权限
select * from dba_role_privs where grantee='HAT';
GRANTEE            GRANTED_ROLE          ADM DEF
------------------------------ ------------------------------ --- ---
HAT			       RESOURCE 		      NO  YES
HAT			       CONNECT			      NO  YES

--查看resource角色的权限
select * from role_sys_privs where role='RESOURCE';

ROLE             PRIVILEGE        ADM
------------------------------ ---------------------------------------- ---
RESOURCE		       CREATE SEQUENCE				NO
RESOURCE		       CREATE TRIGGER				NO
RESOURCE		       CREATE CLUSTER				NO
RESOURCE		       CREATE PROCEDURE 			NO
RESOURCE		       CREATE TYPE				NO
RESOURCE		       CREATE OPERATOR				NO
RESOURCE		       CREATE TABLE				NO--注意
RESOURCE		       CREATE INDEXTYPE 			NO

--创建存储过程
create or replace procedure p_createtable
as
  v_sql varchar2(100);
begin
  v_sql := 'create table t_createtable(id integer,name varchar2(10))';
  execute immediate v_sql;
end;

--执行过程
begin
  p_createtable();
end;
ORA-01031: insufficient privileges
ORA-06512: at "HAT.P_CREATETABLE", line 6
ORA-06512: at line 2

--查看hat用户的系统权限
select * from dba_sys_privs where grantee='HAT';
无数据

--授予hat用户create table的权限
grant create table to hat;

--查看hat用户的系统权限
select * from dba_sys_privs where grantee='HAT';
GRANTEE 		       PRIVILEGE				ADM
------------------------------ ---------------------------------------- ---
HAT			       CREATE TABLE				NO

--执行过程
begin
  p_createtable();
end;
执行成功


总结，角色resource里也包括了create table的权限，但是执行过程(该过程为一个创建表的过程)报错，而我们直接给用户hat授予create table权限，执行该过程则成功执行，
此处说明用户的角色权限是不可以继承到存储过程里面的，只有对用户授予直接的系统权限，存储过程才可继承。

我们在看看撤销create table权限
revoke create table from hat; 

--再次查询hat用户的权限
select * from dba_sys_privs where grantee='HAT';
无数据

--再次执行过程
begin
  p_createtable();
end;
ORA-01031: insufficient privileges
ORA-06512: at "HAT.P_CREATETABLE", line 6
ORA-06512: at line 2
仍然报错，正好验证了上面的说法。

那么，除了直接为用户授予create table的权限外，还有没有其它的方法呢？
--修改存储过程，添加authid current_user选项
create or replace procedure p_createtable
authid current_user
as
  v_sql varchar2(100);
begin
  v_sql := 'create table t_createtable(id integer,name varchar2(10))';
  execute immediate v_sql;
end;

--执行存储过程
begin
  p_createtable();
end;
执行成功

总结，如果想让用户的角色权限可以继承到存储过程，那么创建存储过程时加上authid current_user即可。