备份数据表、还原数据表
CREATE OR REPLACE PROCEDURE backuporg IS -- declare fixed array TYPE arry_var IS VARRAY(30) OF VARCHAR2(32); tblnames arry_var; v_sql varchar2(3999); tblname varchar2(32); baktblnamet varchar2(32);--今日的备份表名 today varchar2(5);--今天的日 tblexist number; tblexist1 number; --set serveroutput on size 10000000000; BEGIN DBMS_OUTPUT.ENABLE (buffer_size=>null); -- init array tblnames := arry_var( 'org_department', 'org_user', 'org_group', 'org_duty', 'org_job', 'org_department_principal', 'org_dept_principal', 'org_department_role', 'org_department_user_job', 'org_user_job', 'org_user_leader', 'org_user_privilege', 'org_user_role', 'org_job_leader', 'org_user_property', 'org_user_login_log', 'org_job_function', 'org_group_nested_group', 'org_employee', 'org_employee_job', 'org_duty_agent', 'org_department_function', 'org_department_employee_job', 'org_group_user', 'org_group_member', 'org_group_job', 'org_group_duty', 'org_group_department', 'org_duty_role', 'org_job_role'); --dbms_output.put_line(tblname(1)); --dbms_output.put_line(tblname(2)); for i in 1..tblnames.count loop tblname := tblnames(i)||'_x'; select to_char(sysdate,'yMMdd') into today from dual; baktblnamet := substr(tblnames(i),0, 25)||today; select count(1) into tblexist from all_tables where TABLE_NAME = upper(tblname) ; select count(1) into tblexist1 from all_tables where TABLE_NAME = upper(baktblnamet) ; if tblexist=1 then if tblexist1 = 0 then v_sql:= ' create table '||baktblnamet||' as select * from '||tblname; dbms_output.put_line(v_sql); execute immediate (v_sql); end if; v_sql:= ' drop table '||tblname; dbms_output.put_line(v_sql); execute immediate (v_sql); end if; if tblexist=0 then dbms_output.put_line(tblname ||' 不存在'); end if; v_sql:= ' create table '||tblname||' as select * from '||tblnames(i); dbms_output.put_line('创建表'||v_sql); execute immediate (v_sql); -- || ' create table '||tblname(i)||'_bak as select * from '||tblname(i)||';'; end loop; END backuporg;
CREATE OR REPLACE PROCEDURE restoreorg_disable_FK(tblname in varchar2, n_enable in number)
IS
--类型定义
cursor c_constraint
is
select y.CONSTRAINT_NAME, y.TABLE_NAME from user_constraints y where y.R_CONSTRAINT_NAME =(
select x.CONSTRAINT_NAME from user_constraints x where x.TABLE_NAME = upper(tblname) and x.CONSTRAINT_TYPE = 'P');
--定义一个游标变量v_cinfo c_emp%ROWTYPE ，该类型为游标c_emp中的一行数据类型
c_row c_constraint%rowtype;
v_sql varchar2(3999);
BEGIN
DBMS_OUTPUT.ENABLE (buffer_size=>null);
for c_row in c_constraint loop
dbms_output.put_line(c_row.CONSTRAINT_NAME||'-'||c_row.TABLE_NAME);
if n_enable = 1 then
v_sql:= ' alter table '||c_row.TABLE_NAME||' enable constraint '|| c_row.CONSTRAINT_NAME ;--打开外键
dbms_output.put_line('打开外键'|| v_sql);
execute immediate (v_sql);
end if;
if n_enable = 0 then
v_sql:= ' alter table '||c_row.TABLE_NAME||' disable constraint '|| c_row.CONSTRAINT_NAME ;--关掉外键
dbms_output.put_line('关掉外键'|| v_sql);
execute immediate (v_sql);
end if;
end loop;
END restoreorg_disable_FK;
CREATE OR REPLACE PROCEDURE restoreorg IS -- declare fixed array TYPE arry_var IS VARRAY(30) OF VARCHAR2(32); tblnames arry_var; v_sql varchar2(3999); tblname varchar2(32); baktblname varchar2(32); tblexist number; BEGIN DBMS_OUTPUT.ENABLE (buffer_size=>null); -- init array tblnames := arry_var( 'org_department', 'org_user', 'org_group', 'org_duty', 'org_job', 'org_department_principal', 'org_dept_principal', 'org_department_role', 'org_department_user_job', 'org_user_job', 'org_user_leader', 'org_user_privilege', 'org_user_role', 'org_job_leader', 'org_user_property', 'org_user_login_log', 'org_job_function', 'org_group_nested_group', 'org_employee', 'org_employee_job', 'org_duty_agent', 'org_department_function', 'org_department_employee_job', 'org_group_user', 'org_group_member', 'org_group_job', 'org_group_duty', 'org_group_department', 'org_duty_role', 'org_job_role'); --dbms_output.put_line(tblname(1)); --dbms_output.put_line(tblname(2)); for i in 1..tblnames.count loop tblname := tblnames(i)||'_y'; select count(1) into tblexist from all_tables where TABLE_NAME = upper(tblname) ; --if tblexist=1 then --v_sql:= ' drop table '||tblname;--删除掉备份表 --dbms_output.put_line(v_sql); --execute immediate (v_sql); --end if; --if tblexist=0 then --dbms_output.put_line(tblname ||' 不存在'); --end if; -- alter table -- ORG_DEPT_PRINCIPAL_bak --rename to -- ORG_DEPT_PRINCIPAL_JOB --将正式表重重名为带y备份表 --v_sql:= ' alter table '||tblnames(i)||' rename to '|| tblname ;--将原有表备份起来 --dbms_output.put_line('将正式表重名为带y备份表'||v_sql); --execute immediate (v_sql); restoreorg_disable_FK(tblnames(i), 0); v_sql:= ' delete from '||tblnames(i) ;--将原有表数据删除掉. dbms_output.put_line('恢复原有表数据'||v_sql); execute immediate (v_sql); baktblname := tblnames(i)||'_x'; --备份表 v_sql:= 'insert into '|| tblnames(i) ||' select * from '||baktblname;--将原有表数据删除掉. dbms_output.put_line('恢复原有表数据'||v_sql); execute immediate (v_sql); restoreorg_disable_FK(tblnames(i), 1); --v_sql:= ' create table '||tblnames(i)||' as select * from '||baktblname ;--将备份表还原 --dbms_output.put_line('将备份表还原'||v_sql); --execute immediate (v_sql); end loop; END restoreorg;