| 字段名 | Type | 非空 | 注解 |
|---|---|---|---|
| NAME | VARCHAR2(200) | ✔ | 任務執行對象名稱 |
| VALUE | VARCHAR2(200) | ✔ | 設置保存時間（天） |
| TYPE | VARCHAR2(200) | ✔ | 執行類型 |
| ISRUN | NUMBER(1,0) | ✔ | 是否執行 |
| REMARK | VARCHAR2(200) | 對應表中判斷時間的字段 | |
| COLUMNTYPE | VARCHAR2(200) | 字段類型 |
建表語法
create table SYS_DBA_CONFIG ( NAME VARCHAR2(200) not null, value VARCHAR2(200) not null, type VARCHAR2(200) not null, REMARK VARCHAR2(200) not null ISRUN NUMBER(1) not null, COLUMNTYPE VARCHAR2(200) );
數據展示
表中的數據有兩種：
判斷系統是否啟動定期清除功能的存儲過程
根據類型和是否啟用查找刪除數據的存儲過程
CREATE OR REPLACE PROCEDURE xxx."DBA_AUTORUNSCRIPT" AS
/*******************************************************
功能：定期運行指定腳本V1.0
說明：SQL語句從配置表SYS_DBA_CONFIG讀取
********************************************************/
v_Name VARCHAR2(500); --Sql語句變量
v_Value VARCHAR2(250); --Sql語句變量
CURSOR CS IS SELECT UPPER(Name),VALUE FROM SYS_DBA_CONFIG WHERE LOWER(TYPE)='auto_run_script' AND ISRUN = 1;
BEGIN
OPEN CS;
LOOP
FETCH CS INTO v_Name, v_Value;--獲得當前記錄的數據
EXIT WHEN CS%NOTFOUND;
dbms_output.put_line('執行腳本('||v_Name||')：'||v_Value);
EXECUTE IMMEDIATE ('BEGIN '||v_Name||'; COMMIT; END;');
END LOOP;
END DBA_AutoRunScript;
根據對應的表中的對應字段和當前時間比較，如果時間大于對應的保存時間天數，刪除數據。
CREATE OR REPLACE PROCEDURE xxx."DBA_AUTODELETE" AS
/*******************************************************
功能：根據保留天數刪除數據V1.0
說明：表名稱、保存天數從配置表SYS_DBA_CONFIG讀取
********************************************************/
v_name varchar2(250); --對應的表名
v_remark varchar2(250); --對應的表字段
v_value number(10); --表對應的表數據天數
v_endTime date; --清除的具體時間
v_sql varchar2(250);
v_columntype varchar2(20);
CURSOR CS IS SELECT Name,VALUE,remark,columntype FROM SYS_DBA_CONFIG WHERE LOWER(TYPE)='auto_delete_table' AND ISRUN=1;
BEGIN
OPEN CS;
LOOP
FETCH CS INTO v_name, v_value,v_remark,v_columntype;--獲得當前記錄的數據
EXIT WHEN CS%NOTFOUND;
dbms_output.put_line('刪除的表名：' || v_name||' 保留天數：'||v_value);
v_endTime:=TRUNC(SYSDATE- v_value);
if v_columntype='DATE' then
v_sql := 'delete from ' || v_name||' where '|| v_remark||' TRUNC(SYSDATE- '||v_value||')' ;
dbms_output.put_line('刪除的sql：' || v_sql);
else
v_sql := 'delete from ' || v_name||' where to_date('||v_remark||',''yyyy-mm-dd hh24:mi:ss'') TRUNC(SYSDATE- '||v_value||')';
dbms_output.put_line('刪除的sql：' || v_sql);
end if;
begin
execute immediate v_sql;
end;
END LOOP;
END DBA_AutoDelete;
通過定時器啟動判斷系統是否啟動定期清除功能的存儲過程，然后存儲過程再調用刪除數據的存儲過程完成數據清除。
begin dbms_scheduler.create_job ( job_name => 'Job_DBA_AutoRunScript', job_type => 'PLSQL_BLOCK', job_action => 'begin DBA_AutoRunScript; end;', repeat_interval => 'FREQ=DAILY;BYHOUR=3;byminute=30', enabled => true ); end;
后端可以只通過維護SYS_DBA_CONFIG表來維護數據庫的過期數據清除管理，不需要后端去處理刪除數據的業務邏輯。
到此這篇關于Oracle存儲過程和調度器實現自動對數據庫過期數據清除的文章就介紹到這了,更多相關Oracle實現自動對數據庫過期數據清除內容請搜索腳本之家以前的文章或繼續瀏覽下面的相關文章希望大家以后多多支持腳本之家！
