Oracle中删除用户下所有对象
sql语句:
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,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;
/
原文地址:https://www.jb51.cc/oracle/208662.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。