ORACLE下删除当前用户下所有对象

ORACLE下删除当前用户下所有对象的SQL，这个是转别人的，但是，做了修改和注释

--删除某个用户下的对象
set heading off;
set feedback off;
spool c:\dropobj.sql;
  prompt --Drop constraint
 select 'alter table '||table_name||' drop constraint '||constraint_name||' ;' from user_constraints where constraint_type='R';
 prompt --Drop tables
 select 'drop table '||table_name ||';' from user_tables; 
 
 prompt --Drop view
 select 'drop view ' ||view_name||';' from user_views;
 
 prompt --Drop sequence
 select 'drop sequence ' ||sequence_name||';' from user_sequences; 
 
 prompt --Drop function
 select 'drop function ' ||object_name||';'  from user_objects  where object_type='FUNCTION';

 prompt --Drop procedure
 select 'drop procedure '||object_name||';' from user_objects  where object_type='PROCEDURE';
 
 prompt --Drop package
 prompt --Drop package body
 select 'drop package '|| object_name||';' from user_objects  where object_type='PACKAGE';

 prompt --Drop database link
 select 'drop database link '|| object_name||';' from user_objects  where object_type='DATABASE LINK';
 
spool off;
set heading on;
set feedback on;

@@c:\dropobj.sql;
host del c:\dropobj.sql;

注释：
1.上面这个语句，在pl/sql里面是放在命令里面执行的。
2.set heading off; 意思就是关闭表头。如果不关闭，写入dropobj.sql文件中就会带有结果集的表头如：
'DROPTABLE'||TABLE_NAME||';'
------------------------------------------
drop table TEACHER;
实际上我们需要的是“drop table TEACHER;”，“'DROPTABLE'||TABLE_NAME||';'
”就是表头。
3.set feedback off; 意思就是关闭回显。如果不关闭，写入dropobj.sql文件中就会带有返回结果集的大小等信息，如："137 rows selected"
4.spool c:\dropobj.sql; 把结果集写入这个文件。spool off; 结束写入。
5.@@c:\dropobj.sql; 执行这个sql
6.host del c:\dropobj.sql; 删除主机上这文件。
7.CONSTRAINT_TYPE 就是键的类型：

C (check constraint on a table) 
P (primary key) 
U (unique key)
R (referential integrity)
V (with check option, on a view)
O (with read only, on a view)

8.当执行'drop package ………… '这句时，package body会被同时删除。

评论

3 楼 vlinux 2009-04-27  

何必呢

select 'DROP '||object_type||' '||object_name||';' from user_objects;

如果有表关联的，多执行几次就好了

2 楼 hackiller 2009-04-27  

谢谢，很好用，并有帮助理解的注释。

1 楼 liucl_tiger 2008-11-02  

学习了！谢谢！