--用于删除数据表(via tablename)

create or replace procedure DropTable(tablename in varchar) is

ls_sql varchar2(4000);

v_count number;

v_tablename varchar2(400);

begin

? v_tablename:=upper(tablename);

? ?execute immediate 'drop table '||v_tablename;

? exception

? ? when others then

? ? ?rollback;

? ? ?null;

end DropTable;