删除oracle用户对象

DECLARE 
TYPE name_list IS TABLE OF VARCHAR2(40);  
TYPE type_list IS TABLE OF VARCHAR2(20);  
 
Tab_name name_list:=name_list();  
Tab_type type_list:=type_list();  
 
sql_str VARCHAR2(500);  
BEGIN 
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';  
EXECUTE IMMEDIATE sql_str BULK COLLECT INTO tab_name,tab_type;  
 
FOR i IN Tab_name.FIRST.. Tab_name.LAST LOOP  
sql_str := 'DROP ' || Tab_type(i) || ' ' || Tab_name(i);  
EXECUTE IMMEDIATE sql_str;  
END LOOP;  
END;  

删除表空间：drop tablespace XXXX INCLUDING CONTENTS;   
drop user XXXX cascade;