Oracle XML format to VB ADO XML xslt

Question

Hello all,
I believe Oracle produces XML in the following format:
<?xml version = '1.0?>
<row>
<xxx3>abc</xxx3>
<xxx2>def</xxx2>
</row>
BUT, I need to get it in the following XML form:
<xml abcdef>
<rs:data>
<z:row a="abc">
<z:row b="def">
</rs:data>
</xml>
Does anybody have an xslt to do this or can anybody point me in the direction of how to do it please?
Thanks in advance,
Carlos

Answer 1

Here is somethign to get you started on transformation. All you have to do is expand the example.
SQL> set serveroutput on size unlimited
SQL> declare
  2      l_ctx DBMS_XMLQUERY.ctxType ;
  3      l_xml xmltype ;
  4      l_xsl xmltype ;
  5  begin
  6      select xmltype(dbms_xmlquery.getxml('select * from scott.emp where rownum < 3')) into l_xml from dual ;
  7      dbms_output.put_line('original:'||chr(10)||l_xml.getStringVal()) ;
  8
  9      l_xsl := xmltype(
10               '<?xml version="1.0"?>'||
11               '<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"'||
12               ' version="1.0"'||
13               ' result-ns=""'||
14               ' indent="yes">'||
15               '<xsl:output method="xml" media-type="text/xml" indent="yes"/>'||
16               '<xsl:template match="/">'||
17               '<xml>'||
18               ' <xsl:for-each select="/'||l_xml.getRootElement()||'/ROW">'||
19               '<DATA>'||
20               ' <xsl:copy-of select="./*" />'||
21               '</DATA>'||
22               ' </xsl:for-each>'||
23               '</xml>'||
24               '</xsl:template>'||
25               '</xsl:stylesheet>') ;
26      l_xml := l_xml.transform(l_xsl) ;
27      dbms_output.put_line('Modified:'||chr(10)||l_xml.getStringVal()) ;
28  end ;
29  /
original:
<?xml version = '1.0'?>
<ROWSET>
   <ROW num="1">
      <EMPNO>7369</EMPNO>
      <ENAME>SMITH</ENAME>
      <JOB>CLERK</JOB>
      <MGR>7902</MGR>
      <HIREDATE>12/17/1980
0:0:0</HIREDATE>
      <SAL>800</SAL>
      <DEPTNO>20</DEPTNO>
   </ROW>
   <ROW num="2">
      <EMPNO>7499</EMPNO>
      <ENAME>ALLEN</ENAME>
      <JOB>SALESMAN</JOB>
      <MGR>7698</MGR>
<HIREDATE>2/20/1981 0:0:0</HIREDATE>
      <SAL>1600</SAL>
      <COMM>300</COMM>
      <DEPTNO>30</DEPTNO>
   </ROW>
</ROWSET>
Modified:
<xml>
  <DATA>
    <EMPNO>7369</EMPNO>
    <ENAME>SMITH</ENAME>
    <JOB>CLERK</JOB>
    <MGR>7902</MGR>
    <HIREDATE>12/17/1980 0:0:0</HIREDATE>
    <SAL>800</SAL>
<DEPTNO>20</DEPTNO>
  </DATA>
  <DATA>
    <EMPNO>7499</EMPNO>
    <ENAME>ALLEN</ENAME>
    <JOB>SALESMAN</JOB>
    <MGR>7698</MGR>
    <HIREDATE>2/20/1981 0:0:0</HIREDATE>
    <SAL>1600</SAL>
<COMM>300</COMM>
    <DEPTNO>30</DEPTNO>
  </DATA>
</xml>
PL/SQL procedure successfully completed.
SQL>