Oracle中删除用户下所有对象

Oracle中删除用户下所有对象

DECLARE
TYPE name_list IS TABLE OF VARCHAR2(100);
TYPE type_list IS TABLE OF VARCHAR2(100);
--表对象
Tab_name name_list := name_list();
Tab_type type_list := type_list();
sql_str VARCHAR2(1000);
BEGIN
sql_str := 'SELECT UO.OBJECT_NAME, UO.OBJECT_TYPE FROM USER_OBJECTS UO
WHERE UO.OBJECT_TYPE NOT IN (''INDEX'', ''LOB'')
AND SUBSTR(UO.OBJECT_NAME, 0, 4) <> ''BIN$''
ORDER BY UO.OBJECT_NAME ASC';

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)||'" CASCADE CONSTRAINTS';
dbms_output.put_line(sql_str);
EXECUTE IMMEDIATE sql_str;
END LOOP;
dbms_output.put_line('已成功删除对象');
END;
/