Oracle删除当前用户下的所有表、视图、序列、函数、存储过程、包 - 数据库编程

st IS TABLE OF VARCHAR2(20);
099
　　Tab_name name_list:=name_list();
100
　　Tab_type type_list:=type_list();
101
　　sql_str VARCHAR2(500);
102
　　BEGIN
103
　　sql_str := select uo.object_name,uo.object_type from user_objects uo where uo.object_type not in(INDEX,LOB) order by uo.object_type desc;
104
　　EXECUTE IMMEDIATE sql_str BULK COLLECT INTO tab_name,tab_type;
105
　　FOR i IN Tab_name.FIRST.. Tab_name.LAST LOOP
106
　　sql_str := DROP || Tab_type(i) || || Tab_name(i);
107
　　EXECUTE IMMEDIATE sql_str;
108
　　END LOOP;
109

　　END;
110

111

112

113
--************************
114
--**方法3
115
--**使用Oracle SQL Developer
116
--************************
117
--用需要删除的用户登入
118
--在工作表中输入以下内容

摘自蒋中正的博客

Oracle删除当前用户下的所有表、视图、序列、函数、存储过程、包(二)