oracle 預存程序,匯出sql到文本,動態sql,dbms_sql使用

1. create or replace package Sqlexp_pack is
3.   -- Author  : YANLEI
4.   -- Created : 2008-12-25 11:25:09
5.   -- Purpose : oracle 匯出
6.   --sql匯出文本字串
7.   function SqlToText(sqlstr in varchar2) return long;
8.   --sql匯出檔案
9.   function SqlTofile(sqlstr in varchar2, filename in varchar2)
10.     return varchar2;
12. end Sqlexp_pack;
13. /
14. create or replace package body Sqlexp_pack is
15.   --sql匯出文本字串
16.   function SqlToText(sqlstr in varchar2) return long is
17.   
18.     colname varchar2(4000);
19.     rownum  integer;
20.     colnum  number default 0; --欄位個數
21.   
22.     linestr  varchar2(20000);
23.     ylTbl    dbms_sql.desc_tab; --表資訊
24.     ylCursor integer default dbms_sql.open_cursor; --sql輸出的遊標
25.     rstr     long;
26.   begin
27.   
28.     dbms_sql.parse(ylCursor, sqlstr, dbms_sql.native); --解析動態SQL語句；
29.     dbms_sql.describe_columns(ylCursor, colnum, yltbl); --獲得動態sql的中繼資料
30.     for i in 1 .. colnum loop
31.       dbms_sql.define_column(ylCursor, i, colname, 4000); --定義動態sql的列  
32.     
33.     end loop;
34.   
35.     rownum := dbms_sql.execute(ylCursor); --執行動態SQL語句。傳回值，對於非查詢的語句，execute將執行該語句並返回處理了的行的個數。 對於查詢，execute將確定活動集返回，傳回值為0
36.     if rownum <> 0 then
37.       return '';
38.     end if;
39.     rstr := '';
40.     while (dbms_sql.fetch_rows(ylCursor) > 0) loop
41.     
42.       linestr := '';
43.       for i in 1 .. colnum loop
44.         dbms_sql.column_value(ylCursor, i, colname); --獲得欄位值    
45.         linestr := linestr || colname;
46.         if i < colnum then
47.           linestr := linestr || ',';
48.         end if;
49.       
50.       end loop;
51.     
52.       rstr := rstr || linestr || chr(10);
53.     
54.     end loop;
55.   
56.     dbms_sql.close_cursor(ylCursor);
57.     return rstr;
58.   exception
59.     when others then
60.       dbms_sql.close_cursor(ylCursor);
61.       raise;
62.   end SqlToText;
63.   --sql匯出檔案
64.   function SqlTofile(sqlstr in varchar2, filename in varchar2)
65.     return varchar2 is
66.     str long;
67.   begin
68.     str := SqlToText(sqlstr);
69.     YLFileop_pack.writefile(filename, str);
70.     return '成功';
71.   end;
73. end Sqlexp_pack;
74. /
75. ---轉載保留著作權 by yanleigis email:landgis@126.com