Oracle 11g数据库基础教程（第2版）-课后习题-第十一章

--3	创建一个存储过程，以表名和一个列名为参数，创建一个表。
create or replace procedure create_table(P_TABLENAME VARCHAR2,P_COL1 VARCHAR2,P_COL1_TYPE VARCHAR2)
AS
	V_CREATION VARCHAR2(100);
BEGIN
	V_CREATION:='CREATE TABLE ' || P_TABLENAME || '(' || P_COL1 || ' ' || P_COL1_TYPE || ' PRIMARY KEY' || ')';
	EXECUTE IMMEDIATE V_CREATION;
END;
/
--增加权限或者切换用户到超级管理员
BEGIN
 create_table('test2','sno','number');
END;
/
 --检查表字段
 desc test1
--4 创建一个存储过程，将某个表的SELECT权限授予某个用户
create or replace procedure grant_p(p_table VARCHAR2,p_username VARCHAR2)
AS
	str VARCHAR2(100);
BEGIN
	str:='grant select on ' || p_table || ' TO ' || p_username;