posts - 189,comments - 115,trackbacks - 0
如何在ORACLE的PL/SQL中将数据写入文件
 

在数据库的开发中,当PL/SQL语句很复杂的时候,我想写一些Log,就像java的Log4j那样。这样就可以很好的跟踪程序的运行情况。在网上找到的文章不是很好用,修改了一下。

1:在Oracle服务器上建立一个目录并指定权限(我这个是unix的。windows用c:\tmp之类的就行)

CREATE DIRECTORY TEMP AS '/tmp';
GRANT READ,WRITE ON DIRECTORY TEMP TO PUBLIC;
GRANT   EXECUTE  ON  SYS.UTL_FILE  TO  YOU_USER_NAME;

如果出现权限错误的话,注意自己登陆的方式,我是用oralce用户TelNet到Unix上的,然后connect / as sysdba。(windows 用户应该是:sys用户登录到数据库(ora9i):conn sys/password@oraclesid as sysdba ,sys用户的缺省密码和system一样,都是manager

2:写Log文件的SQL语句如下:

declare
  file_handle utl_file.file_type;
  buff varchar2(20);
  cursor c1 is select  acloumn from t_atable;
begin
  file_handle := utl_file.fopen('TEMP',log.txt','w');
  open c1;
  loop
    fetch c1 into buff;
    exit when c1%notfound;
    utl_file.put_line(file_handle,buff);
   end loop;
   close c1;
   utl_file.fclose(file_handle);
end;

这样,就应该可以了,file_handle := utl_file.fopen('TEMP',log.txt','w');中的'w'是指write,也可以是'a',append.

封装后是这样的:

procedure writeLog(logMessage in Varchar2) is
  begin
    IF logSwitch THEN
      file_handle := utl_file.fopen('TEMP','x.txt','w');
      utl_file.put_line(file_handle,logMessage);
      utl_file.fclose(file_handle);
    END IF;
  end;

其中logSwitch 是boolean型,我定义在包中的。如果直接用的话可以是procedure writeLog(logMessage in Varchar2, logSwitch in boolean )

posted on 2006-03-25 20:34 MEYE 阅读(990) 评论(0)  编辑  收藏 所属分类: NEWS

只有注册用户登录后才能发表评论。


网站导航: