Oracle由SQL查询生成XML

  1. CREATE OR REPLACE PROCEDURE TEST.put_query_xml (
  2.    q_string   IN       VARCHAR2,
  3.    RESULT     OUT      CLOB
  4. )
  5. IS
  6.    qryctx   DBMS_XMLGEN.ctxhandle;
  7. BEGIN
  8.    qryctx := DBMS_XMLGEN.newcontext (q_string);
  9.    DBMS_XMLGEN.setrowtag (qryctx, 'report');
  10.    RESULT := DBMS_XMLGEN.getxml (qryctx);
  11.    DBMS_XMLGEN.closecontext (qryctx);
  12. END;
  13. /
  14. DECLARE
       q_string1   VARCHAR2 (2000);
       RESULT      CLOB;
    BEGIN
       q_string1 := 'select * from my_tables';
       put_query_xml (q_string1, RESULT);
  15.    INSERT INTO temp_clob_tab
            VALUES (RESULT);
  16.    COMMIT;
    END;
  17. SELECT *
      FROM temp_clob_tab;
©️2020 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页