仅仅求助一个ORACLE的存储过程。。。。

Question

这个是建ORACLE的脚本：用户名和密码都是HCPCREATE USER hcp
IDENTIFIED BY hcp
DEFAULT TABLESPACE SYSTEM
PROFILE DEFAULT; 
GRANT CONNECT TO hcp ; 
GRANT RESOURCE TO hcp ;
GRANT SELECT ON SYSTEM.TEST TO hcp ;
GRANT UPDATE ON SYSTEM.TEST TO hcp ;
GRANT INSERT ON SYSTEM.TEST TO hcp ;
GRANT DELETE ON SYSTEM.TEST TO hcp ;
GRANT UNLIMITED TABLESPACE TO hcp ; 
commit ;求用存储过程来写调用的时候要输入 用户名和密码

Answer 1

SQL> create or replace procedure  create_user(
  2  uid    in varchar2,
  3  pwd    in varchar2
  4  )
  5  authid current_user
  6  as
  7  str    varchar2(500);
  8  begin
  9  str:='CREATE USER '||uid||' IDENTIFIED BY '||pwd;
 10  execute immediate str ;
 11  str:='GRANT CONNECT,RESOURCE,UNLIMITED TABLESPACE TO '||uid;
 12  execute immediate str ;
 13  str:='GRANT SELECT,UPDATE,DELETE,INSERT ON SYSTEM.TEST TO '||uid;
 14  execute immediate str ;
 15  end;
 16  /过程已创建。SQL> exec create_user('hcp','hcp');PL/SQL 过程已成功完成。SQL> select username,default_tablespace,profile 
  2  from dba_users 
  3  where username='HCP';USERNAME   DEFAULT_TA PROFILE
---------- ---------- ----------
HCP        SYSTEM     DEFAULT已选择 1 行。