oracle - 在 PL/SQL 过程中，将查询或引用游标包装在 HTML 表中-6ren

oracle - 在 PL/SQL 过程中，将查询或引用游标包装在 HTML 表中

转载作者：行者123 更新时间：2023-12-02 09:25:10

24

4

如果你使用 SQL*Plus 来使用，看起来真的很容易

SQL> set markup html on;

并在 SQL*Plus 窗口中获得一些可爱的结果。我们有一个预言机工作，需要通宵运行，并将结果通过电子邮件发送给许多人。我想将 sql 语句包装在 HTML 表中以包含在该消息中。最好的方法是什么？

最佳答案

来自发布于On the DBA site我已经接近我正在寻找的答案了。 Tom Kyte has a great blog post其功能完全符合我的期望。简而言之，这是我实现的:

我创建了一个将 sys_refcursor 作为变量的函数:

CREATE OR REPLACE FUNCTION fncRefCursor2HTML(rf SYS_REFCURSOR)  RETURN CLOB
IS
    lRetVal      CLOB;
    lHTMLOutput  XMLType; 
    lXSL         CLOB;
    lXMLData     XMLType;

    lContext     DBMS_XMLGEN.CTXHANDLE;
BEGIN
    -- get a handle on the ref cursor --
    lContext := DBMS_XMLGEN.NEWCONTEXT(rf);
    -- setNullHandling to 1 (or 2) to allow null columns to be displayed --
    DBMS_XMLGEN.setNullHandling(lContext,1);
    -- create XML from ref cursor --
    lXMLData := DBMS_XMLGEN.GETXMLTYPE(lContext,DBMS_XMLGEN.NONE);

    -- this is a generic XSL for Oracle's default XML row and rowset tags --
    -- " " is a non-breaking space --
    lXSL := lXSL || q'[<?xml version="1.0" encoding="ISO-8859-1"?>]';
    lXSL := lXSL || q'[<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">]';
    lXSL := lXSL || q'[ <xsl:output method="html"/>]';
    lXSL := lXSL || q'[ <xsl:template match="/">]';
    lXSL := lXSL || q'[ <html>]';
    lXSL := lXSL || q'[  <body>]';
    lXSL := lXSL || q'[   <table border="1">]';
    lXSL := lXSL || q'[     <tr bgcolor="cyan">]';
    lXSL := lXSL || q'[      <xsl:for-each select="/ROWSET/ROW[1]/*">]';
    lXSL := lXSL || q'[       <th><xsl:value-of select="name()"/></th>]';
    lXSL := lXSL || q'[      </xsl:for-each>]';
    lXSL := lXSL || q'[     </tr>]';
    lXSL := lXSL || q'[     <xsl:for-each select="/ROWSET/*">]';
    lXSL := lXSL || q'[      <tr>]';    
    lXSL := lXSL || q'[       <xsl:for-each select="./*">]';
    lXSL := lXSL || q'[        <td><xsl:value-of select="text()"/> </td>]';
    lXSL := lXSL || q'[       </xsl:for-each>]';
    lXSL := lXSL || q'[      </tr>]';
    lXSL := lXSL || q'[     </xsl:for-each>]';
    lXSL := lXSL || q'[   </table>]';
    lXSL := lXSL || q'[  </body>]';
    lXSL := lXSL || q'[ </html>]';
    lXSL := lXSL || q'[ </xsl:template>]';
    lXSL := lXSL || q'[</xsl:stylesheet>]';

    -- XSL transformation to convert XML to HTML --
    lHTMLOutput := lXMLData.transform(XMLType(lXSL));
    -- convert XMLType to Clob --
    lRetVal := lHTMLOutput.getClobVal();

    RETURN lRetVal;
END;

然后在 PL/SQL Developer 的测试窗口中对其进行测试

declare 
  l_cursor sys_refcursor;
begin
  open l_cursor for select * from employees;
  :x:= fncRefCursor2HTML(l_cursor);
  close l_cursor;  
end;

这是我长期以来一直希望找到的东西。谢谢汤姆·凯特!

关于oracle - 在 PL/SQL 过程中，将查询或引用游标包装在 HTML 表中，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/7742656/

24

4

0

文章推荐： python - 在 Markdown 中嵌入 Bokeh 图

文章推荐： python - 图例中的分割标记和线条 - Matplotlib

文章推荐： ibm-mq - Websphere 7.5 添加用户

SQL Server - 游标
我正在尝试使用游标遍历表: DEClARE @ProjectOID as nvarchar (100) DECLARE @TaskOID as nvarchar (100) DECLARE TaskO
java - JOptionPane 游标
使用 JOprionPane 时，光标出现了一些问题。我将光标设置到 pharent 框架，然后使用这个显示一个对话框: Object[] possibilities = {"ham", "spam"
SQL Server 游标
我想将数据从一个表(原始数据，所有列都是 VARCHAR)复制到另一个表(使用相应的列格式进行格式化)。为了将数据从 rawdata 表复制到 formatted 表中，我使用游标来识别受影响的行。
SQL 游标...您会捍卫任何用例？
我先走了我 100% 属于集合运算阵营。但是当设置逻辑时会发生什么在整个所需的输入域上进行检索会导致如此大的检索，以至于查询显着减慢，变得缓慢，或者基本上需要无限的时间？在这种情况下，我将使用可能
MySql 工作台 - 游标
为什么我不能这样做？我想从 TABLEA 中搜索大于光标值的最接近的值，对两者执行平均函数并将结果放入 test3 中。我收到错误代码 1054 未知列“Xnearest in 'field list
MySQL 游标/获取
我希望以下存储例程返回一系列行，但它只返回 1: CREATE PROCEDURE example() BEGIN DECLARE current_id INT;
更新表的 PostgreSQL 游标
我有一张代表患者体检的表，它有检查 ID 和患者 ID。我想逐行浏览表格并获取每个患者 ID 并比较其不同的咨询，看看它是否被视为“new_attack”。我正在处理疟疾疾病，我们认为每个在过去 6
带参数的 PostgreSQL 游标
如文档所述here ，我需要声明一个在打开时接受参数的游标。我的查询类似于: DECLARE cur CURSOR (argName character varying) FOR SELECT *
sql - PostgreSQL 游标
我正在尝试使用 PostgreSQL 学习基本游标。这是我的脚本: DECLARE cur_employees CURSOR FOR SELECT * FROM employee CLOS
当前的 MYSQL 游标
*DELIMITER // create procedure test(OUT l_out INT) begin DECLARE done INT DEFAULT FALSE; declare l_s
Python psycopg2 游标
来自 psycopg2 文档: When a database query is executed, the Psycopg cursor usually fetches all the record
java - 游标 while 循环返回除最后一个值之外的每个值
我正在使用 while 循环遍历游标，然后输出数据库中每个点的经度和纬度值。出于某种原因，它没有返回光标中的最后一组(或第一个取决于我是否使用 Cursor.MoveToLast)经度和纬度值。这
PHPStorm 4 游标
不知道有没有人试过全新的PHPStorm 4 , 但我遇到了这个新版本的问题，而我以前的主要版本 (PHPStorm 3) 没有。基本上，当我单击代码 View 空白处的任意位置时，光标会设置在该位
mysql的存储过程、游标、事务实例详解
mysql的存储过程、游标、事务实例详解下面是自己曾经编写过的mysql数据库存储过程，留作存档，以后用到的时候拿来参考。其中，涉及到了存储过程、游标（双层循环）、事务。【说明】：代码
mysql存储过程游标循环使用介绍
Mysql的存储过程是从版本5才开始支持的，所以目前一般使用的都可以用到存储过程。今天分享下自己对于Mysql存储过程的认识与了解。一些简单的调用以及语法规则这里就不在赘述，网上有许多例子。这里
sql - 游标/递归是这里唯一可能的选择吗？基于某些滞后条件的集合逻辑
我正在使用 SQL Server，我有一个包含 3 列(时间序列)的表 data ，带日期，hour开始，AwardStatus . 大部分奖励状态是随机生成的。有两种选择，授予或未授予。但是，业务
sql - 为什么人们如此讨厌 SQL 游标？
就目前情况而言，这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持，但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放，visit
oracle - 具有最终记录副本的 Oracle 游标
Why am getting duplicate records ? pls correct me.Thanks in Advance. declare clazzes_rec clazzes%r
oracle - 具有最终记录副本的 Oracle 游标
Why am getting duplicate records ? pls correct me.Thanks in Advance. declare clazzes_rec clazzes%r
sql - sql - 设置顺序值而不循环/游标
我需要在数据表中设置一个非唯一标识符。这在组内是连续的，即。对于每个组，ID 应从 1 开始，并以 1 为增量递增，直到该组的最后一行。下表对此进行了说明。 “新 ID”是我需要填充的列。 Uniq

首页

博学

6Ren·AI

商城

oracle - 在 PL/SQL 过程中，将查询或引用游标包装在 HTML 表中