浅谈如何将Oracle导出到XML文件

SQL>createorreplacedirectoryexp_diras'/opt';/
1.

SQL>createorreplaceproceduretable2xml(result  inoutnocopyclob,
filenameinvarchar2)is
 xmlstr varchar2(32767);
 line   varchar2(2000);
 fhandle utl_file.file_type;
begin
 fhandle := utl_file.fopen('EXP_DIR', filename,'w');
 xmlstr := dbms_lob.substr(result,32767);
 loop
   exitwhenxmlstrisnull;
   line := substr(xmlstr,1, instr(xmlstr, chr(10)) -1);
   dbms_output.put_line('| '|| line);
   utl_file.put_line(fhandle, line);
   xmlstr := substr(xmlstr, instr(xmlstr, chr(10)) +1);
 endloop;
 utl_file.fclose(fhandle);
end;
/
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

declare
 queryctx dbms_xmlquery.ctxType;
 result  clob;
begin
 queryctx := dbms_xmlquery.newContext('select user_id,user_name from lq_xml_test');
1.
2.
3.
4.
5.

--存放查询记录集的SQL
 result  := dbms_xmlquery.getXML(queryctx);
 table2xml(result,'table2xml.xml');
 dbms_xmlquery.closeContext(queryctx);
end;
/
1.
2.
3.
4.
5.
6.