大佬教程收集整理的这篇文章主要介绍了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 --if Tab_type(i)='table' then 删除条件 truncate快速删除记录 sql_str := 'DROP ' || Tab_type(i) || ' ' || Tab_name(i); end if; EXECUTE IMMEDIATE sql_str; END LOOP; END;
drop user username cascade
CREATE OR REPLACE PROCEDURE autoBackupOracle4Day_bak_bak as 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); sql_a VARCHAR2(500); sql_b VARCHAR2(500); BEGIN --获取用户下的所有对象 包括表,视图,存储过程 等等 --sql_str := 'select uo.object_name,uo.object_type from user_objects@GZEPBMOTOR43.US.ORACLE.COM uo where uo.object_type not in(''INDEX'',''LOB'') order by uo.object_type desc'; --获取用户下的表 sql_str :='select a.table_name,a.tablespace_name from user_tables@GZEPBMOTOR43.US.ORACLE.COM a'; EXECUTE IMMEDIATE sql_str BulK ColLECT INTO tab_name,tab_type; FOR i IN Tab_name.FirsT.. Tab_name.LAST LOOP --if Tab_name(i)='T_BDM_ENVIROMENTSTANDARD' then sql_a := 'truncate ' || Tab_type(i) || ' ' || Tab_name(i); sql_b:= 'insert into ' || Tab_name(i) || ' select * from "' ||Tab_name(i)||'"@GZEPBMOTOR43.US.ORACLE.COM'; --dbms_output.put_line( sql_str); --dbms_output.put_line( sql_a); --设置打印的最大限值 dbms_output.enable(50000); dbms_output.put_line('EXECUTE IMMEDIATE ''truncate table ' ||Tab_name(i)||''';'); dbms_output.put_line('insert into ' || Tab_name(i) || ' select * from ' ||Tab_name(i)||'@GZEPBMOTOR43.US.ORACLE.COM;'); --declare --bad_credit exception; --begin --删除数据 --EXECUTE IMMEDIATE 'truncate table'|| ' ' || Tab_name(i); --执行加入 --EXECUTE IMMEDIATE 'insert into ' || Tab_name(i) || ' select * from ' ||Tab_name(i)||'@GZEPBMOTOR43.US.ORACLE.COM'; --raise bad_credit; --end if; --exception -- when bad_credit then --end; --EXECUTE IMMEDIATE sql_b; END LOOP; commit; END;
以上是大佬教程为你收集整理的Oracle删除当前用户的所有对象(表、视图、触发器、存储过程、函数)全部内容,希望文章能够帮你解决Oracle删除当前用户的所有对象(表、视图、触发器、存储过程、函数)所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。