国产探花免费观看_亚洲丰满少妇自慰呻吟_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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 三都| 饶阳县| 清徐县| 兴安盟| 肥城市| 萍乡市| 陆丰市| 拜城县| 黑水县| 陵水| 四子王旗| 大田县| 新晃| 边坝县| 治县。| 乾安县| 鸡泽县| 临邑县| 措美县| 乳源| 石棉县| 武定县| 哈密市| 卢龙县| 密山市| 平顶山市| 长汀县| 大英县| 成都市| 安溪县| 固镇县| 开阳县| 交口县| 濮阳市| 长阳| 三都| 舒兰市| 诸城市| 长岭县| 象州县| 肥西县|