--用于删除数据表(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;