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;