Oracle 删除用户所有对象的脚本

作者：LiaoJL 发表于: 2008年7月24日 21:01
版权声明：可以任意转载，转载时请务必以超链接形式标明文章 原始出处和作者信息及 本版权声明。
http://www.liaojl.com/archives/2008/07/oracle-delete-schemas.html

对于测试数据库，经常会涉及到用户数据重新导入的情况，在不赋予用户创建和删除用户的前提下，普通用户也可以通过脚本来删除自己模式下的表、视图等对象。

下面是一个删除用户所有表的脚本：

DECLARE
CURSOR MYCURSOR IS SELECT TABLE_NAME FROM USER_TABLES;
VTABLE_NAME VARCHAR2(60);
sql_stmt varchar2(100);
BEGIN
OPEN MYCURSOR;
LOOP
FETCH MYCURSOR INTO VTABLE_NAME;
EXIT WHEN MYCURSOR%NOTFOUND;
sql_stmt := 'drop table "'||VTABLE_NAME||'" cascade constraints';
EXECUTE IMMEDIATE sql_stmt;
END LOOP;
CLOSE MYCURSOR;
END;
/

删除存储过程等对象：

DECLARE
CURSOR MYCURSOR IS SELECT NAME,TYPE FROM USER_SOURCE;
vsource_name VARCHAR2(60);
vsource_type VARCHAR2(60);
sql_stmt VARCHAR2(100);
BEGIN
OPEN MYCURSOR;
LOOP
FETCH MYCURSOR INTO vsource_name,vsource_type;
EXIT WHEN MYCURSOR%NOTFOUND;
sql_stmt := 'drop '||vsource_type||' "'||vsource_name||'"';
EXECUTE IMMEDIATE sql_stmt;
--dbms_output.put_line(sql_stmt);
END LOOP;
CLOSE MYCURSOR;
END;
/
 
quit;

通过光标循环操作，可以实现其它对象的删除。

DECLARE
CURSOR MYCURSOR IS SELECT SYNONYM_NAME FROM USER_SYNONYMS;
VTABLE_NAME VARCHAR2(60);
sql_stmt varchar2(100);
BEGIN
OPEN MYCURSOR;
LOOP
FETCH MYCURSOR INTO VTABLE_NAME;
EXIT WHEN MYCURSOR%NOTFOUND;
sql_stmt := 'drop SYNONYM "'||VTABLE_NAME||'"';
EXECUTE IMMEDIATE sql_stmt;
END LOOP;
CLOSE MYCURSOR;
END;
/