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:[e-mail]