如何将表名作为参数传给存储过程呢?

Question

主要目的:利用存储过程动态生成表,表名由前台程序传过来,而且这个存储过程也是由前台程序调用的.调用时给一个字符串作为表名.
CREATE PROC createtable(tablename varchar(21))
AS
begin
create table tablename
(
usr char(21),
pwd cahr(21)
)
end ;
end createtable ;
显然这样是不行的,如何才能实现动态生成表呢?

Answer 1

CREATE OR REPLACE PROCEDURE CREATETABLE(TABLENAME IN VARCHAR2) IS
  VarSQLStr Varchar2(4000);
BEGIN
  VarSQLStr := 'CREATE TABLE ' || TABLENAME || '(USR CHAR(21),PWD CHAR(21))';
  EXECUTE IMMEDIATE VarSQLStr;
  IF Sql%Found then
      commit;
    else
      rollback;
    end if;
END;