Oracle寫函數讀寫日誌執行個體

標籤：

1、用DBA登入賦許可權
create or replace directory D_OUTPUT as ‘D:\TEMP‘;
grant read,write on directory D_OUTPUT to testdb;
GRANT EXECUTE ON utl_file TO testdb;

2、寫一個函數建立目錄並寫入資料
在資料清洗的預存程序中調用函數
首先在上邊聲明變數
xx varchar2(1000);
然後在執行插入失敗的下面調用函數
else
--insert into fail_log(XH,proc_mc,title,content,log_type,log_time) values
(FAIL_LOG_SEQ.NEXTVAL,‘pro_TXZ_ROAD_PLAN‘,‘資料插入失敗‘,c_YAID_t,‘ERROR‘,sysdate);
dbms_output.put_line(‘通行證預案表YAID為‘ || c_YAID_t || ‘的資料已經存在‘);
xx :=cux_my(TO_CHAR(SYSDATE(),‘YYYY-MM-DD HH24:MI:SS‘)||‘===>‘ || ‘通行證預案表YAID為‘ || c_YAID_t || ‘的資料插入
失敗‘);
______________________________建立日誌_______________________________________

-- name 表名稱 code 傳入資料、失敗資料

--預存程序失敗情況調用 命名修改有點意義

create or replace function cux_my(name VARCHAR2,code VARCHAR2)
RETURN VARCHAR2 is

filehandle utl_file.file_type; --控制代碼
a varchar2(100);

begin
a:=TO_CHAR(SYSDATE(),‘YYMMDDHH24MISS‘); -- 時間格式
filehandle := utl_file.fopen(‘D_OUTPUT‘,name||a || ‘.txt‘,‘a‘); --開啟檔案
utl_file.put_line(filehandle,code );--寫入一行記錄
--dbms_output.put_line(‘1‘);
utl_file.fclose(filehandle);--關閉控制代碼

return ‘OK‘;
end;

_____________________________________________________________________

 

______________________________讀取日誌_______________________________________

1：-- 當建表方法 需要用這個 讀取記錄檔 根據 檔案名稱

-- 此時的filename 是 java 代碼調用函數 傳入的檔案名稱，此名稱命名方式 一定 一定 要和建立日誌 規範一致

create or replace function shuchu(filename VARCHAR2)
RETURN VARCHAR2 is

filehandle utl_file.file_type;
filebuffer varchar(200);
BEGIN
filehandle := utl_file.fopen(‘D_OUTPUT‘,filename || ‘.txt‘,‘r‘);
loop
begin
utl_file.get_line(filehandle,filebuffer);
-- insert into t values(‘‘,filename,filebuffer,filebuffer); 向建立的表中 插入讀取的日誌資料
dbms_output.put_line(filebuffer);
EXCEPTION
WHEN no_data_found THEN
exit ;
End;
END LOOP;
utl_file.fclose(filehandle);
COMMIT;
return ‘OK‘; --此時 返回可以任意
END;

 

2，-- 當不需要建表的時候

-- 此時的filename 是 java 代碼調用函數 傳入的檔案名稱，此名稱命名方式 一定 一定 要和建立日誌 規範一致

create or replace function shuchu(filename VARCHAR2)
RETURN VARCHAR2 is

filehandle utl_file.file_type;
filebuffer varchar(200);
BEGIN
filehandle := utl_file.fopen(‘D_OUTPUT‘, ‘160508235600.txt‘,‘r‘);
loop
begin
utl_file.get_line(filehandle,filebuffer);

dbms_output.put_line(filebuffer);
EXCEPTION
WHEN no_data_found THEN
exit ;
End;
END LOOP;
utl_file.fclose(filehandle);
COMMIT;
return filebuffer; --此時 傳回值 是讀取的日誌資料
END;

 

 

_____________________________________________________________________

 

Oracle寫函數讀寫日誌執行個體