簡介

資料庫中的某些資料不一定要長期儲存，例如：日誌等資料、當儲存一定時間後，系統允許刪除所以系統需要定期刪除那些已經過期的資料。

實現原理

1張表（SYS_DBA_CONFIG）、1個Job定時器（Job_DBA_AutoRunScript）和2個儲存過程（DBA_AUTODELETE、DBA_AUTORUNSCRIPT）實現自動清理不同表中的過期資料。 通過定時器呼叫儲存過程查表判斷是否開啟過期資料清理功能，如果開啟呼叫資料清理的儲存過程。

建表

建立資料庫任務配置表，用來管理資料庫中那些表需要定期處理。

表格型別

欄位名	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;

建立Jobs定時器

通過定時器啟動判斷系統是否啟動定期清除功能的儲存過程，然後儲存過程再呼叫刪除資料的儲存過程完成資料清除。

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實現自動對資料庫過期資料清除內容請搜尋我們以前的文章或繼續瀏覽下面的相關文章希望大家以後多多支援我們！