国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

使用UTL_FILE轉儲數據為逗號分隔符文件

2024-07-21 02:34:13
字體:
來源:轉載
供稿:網友

  Tom寫過這樣一個函數用于把數據轉儲為逗號分隔符文件,看到很多人問類似的問題,轉載這里供參考。
  
  注重,UTL_FILE使用的Directory,需要你預先創建,具體可以參考Using Create directory & UTL_FILE in Oracle
  
  create or replace function dump_csv( p_query   in varchar2,
                     p_separator in varchar2
                            default ',',
                     p_dir    in varchar2 ,
                     p_filename in varchar2 )
  return number
  AUTHID CURRENT_USER
  is
    l_output    utl_file.file_type;
    l_theCursor   integer default dbms_sql.open_cursor;
    l_columnValue  varchar2(2000);
    l_status    integer;
    l_colCnt    number default 0;
    l_separator   varchar2(10) default '';
    l_cnt      number default 0;
  begin
    l_output := utl_file.fopen( p_dir, p_filename, 'w' );
  
    dbms_sql.parse( l_theCursor, p_query, dbms_sql.native );
  
    for i in 1 .. 255 loop
      begin
        dbms_sql.define_column( l_theCursor, i,
                    l_columnValue, 2000 );
        l_colCnt := i;
      exception
        when others then
          if ( sqlcode = -1007 ) then exit;
          else
            raise;
          end if;
      end;
    end loop;
  
    dbms_sql.define_column( l_theCursor, 1, l_columnValue,
                2000 );
  
    l_status := dbms_sql.execute(l_theCursor);
  
    loop
      exit when ( dbms_sql.fetch_rows(l_theCursor) <= 0 );
      l_separator := '';
      for i in 1 .. l_colCnt loop
        dbms_sql.column_value( l_theCursor, i,
                    l_columnValue );
        utl_file.put( l_output, l_separator
                    l_columnValue );
        l_separator := p_separator;
      end loop;
      utl_file.new_line( l_output );
      l_cnt := l_cnt+1;
    end loop;
    dbms_sql.close_cursor(l_theCursor);
  
    utl_file.fclose( l_output );
    return l_cnt;
  end dump_csv;
  /
  
  
  以下是使用樣例:
  
  [oracle@jumper tmp]$ sqlplus "/ as sysdba"
  
  SQL*Plus: Release 9.2.0.4.0 - PRodUCtion on Fri May 13 15:04:41 2005
  
  Copyright (c) 1982, 2002, Oracle Corporation. All rights reserved.
  
  
  Connected to:
  Oracle9i Enterprise Edition Release 9.2.0.4.0 - Production
  With the Partitioning option
  JServer Release 9.2.0.4.0 - Production
  
  SQL> select dump_csv('select * from scott.emp',',','/tmp','emp.csv') from dual;
  
  DUMP_CSV('SELECT*FROMSCOTT.EMP',',','/TMP','EMP.CSV')
  -----------------------------------------------------
                            14
  SQL> !
more /tmp/emp.csv
  7369,SMITH,CLERK,7902,17-DEC-80,800,,20
  7499,ALLEN,SALESMAN,7698,20-FEB-81,1600,300,30
  7521,WARD,SALESMAN,7698,22-FEB-81,1250,500,30
  7566,JONES,MANAGER,7839,02-APR-81,2975,,20
  7654,MARTIN,SALESMAN,7698,28-SEP-81,1250,1400,30
  7698,BLAKE,MANAGER,7839,01-MAY-81,2850,,30
  7782,CLARK,MANAGER,7839,09-JUN-81,2450,,10
  7788,SCOTT,ANALYST,7566,19-APR-87,3000,,20
  7839,KING,PRESIDENT,,17-NOV-81,5000,,10
  7844,TURNER,SALESMAN,7698,08-SEP-81,1500,0,30
  7876,ADAMS,CLERK,7788,23-MAY-87,1100,,20
  7900,JAMES,CLERK,7698,03-DEC-81,950,,30
  7902,FORD,ANALYST,7566,03-DEC-81,3000,,20
  7934,MILLER,CLERK,7782,23-JAN-82,1300,,10

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 四子王旗| 永新县| 琼结县| 凤凰县| 清镇市| 元江| 邓州市| 华坪县| 皋兰县| 永修县| 司法| 丹寨县| 吴江市| 福鼎市| 泰宁县| 友谊县| 乌兰浩特市| 苍南县| 镇宁| 大方县| 报价| 从化市| 正蓝旗| 灵川县| 台北县| 闵行区| 盐源县| 竹北市| 寻甸| 和平县| 永德县| 绥宁县| 修水县| 怀安县| 洱源县| 电白县| 山丹县| 邹城市| 温宿县| 富裕县| 天镇县|