pl/sql 块中的子选择上的 Oracle 8i 动态 SQL 错误

Question

我编写了一个 Oracle 函数（用于 8i）来获取受 DML 语句影响的行，模拟来自 PostgreSQL 的 RETURNING * 的行为。典型的函数调用如下所示：

SELECT tablename_dml('UPDATE tablename SET foo = ''bar''') FROM dual;

该函数是为每个表自动创建的，并使用动态 SQL 执行作为参数传递的查询。此外，动态执行查询的语句也包含在 BEGIN .. END 块中：

EXECUTE IMMEDIATE 'BEGIN'||query||' RETURNING col1, col2 BULK COLLECT INTO :1, :2;END;' USING OUT col1_t, col2_t;

这种特殊构造背后的原因是，它似乎是从影响多行的 DML 语句中获取值的唯一方法。 col1_t 和 col2_t 都声明为与表列对应的类型的集合。

最后，解决问题。当传递的查询包含子选择时，函数的执行会产生语法错误。下面是一个简单的例子来说明这一点：

CREATE TABLE xy(id number, name varchar2(80));
CREATE OR REPLACE FUNCTION xy_fn(query VARCHAR2) RETURN NUMBER IS
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
EXECUTE IMMEDIATE 'BEGIN '||query||'; END;';
ROLLBACK;
RETURN 5;
END;
SELECT xy_fn('update xy set id = id + (SELECT min(id) FROM xy)') FROM DUAL;

最后一条语句产生以下错误：（那里提到的 SELECT 是 SELECT min(id)）

ORA-06550：第 1 行，第 32 列：PLS-00103：遇到符号 “SELECT”当期望以下之一时：（ - + mod not null 其他 avg count 当前存在 max min prior sql stddev sum 方差执行forall时间时间戳间隔日期

此问题发生在 8i (8.1.6) 上，但不是 10g。 如果 BEGIN .. END 块被删除 - 问题就消失了。 如果查询中的子选择被替换为其他内容，即常量，问题就会消失。

不幸的是，我坚持使用 8i 并删除 BEGIN .. END 不是一个选项（请参阅上面的解释）。

这里有特定的 Oracle 8i 限制吗？是否可以通过动态 SQL 来克服它？

Answer 1

不知道为什么你需要做所有这些工作。 Oracle 8i 支持 RETURNING INTO 与批量收集。 Find out more

所以您应该能够在非动态 SQL 中执行此语句。像这样的：

UPDATE tablename 
SET foo = 'bar' 
returning  col1, col2 bulk collect into col1_t, col2_t;

Answer 2

去掉所有无关紧要的东西，我认为你的问题很简单。

此更新语句在 SQL 中运行：

update xy set id = id + (SELECT min(id) FROM xy);

而且这个匿名块也运行：

begin
    update xy set id = id + 100;
end;

但是将两者结合起来是行不通的：

begin
    update xy set id = id + (SELECT min(id) FROM xy);
end;

您可能遇到了旧版 Oracle 的限制。在 9i 之前，SQL 引擎和 PL/SQL SQL 引擎总是不同步。因此，SQL 支持的最新特性在 PL/SQL 中通常不被支持。好像你有其中之一。

自从 9i 以来，Oracle 一直在努力使这两个引擎保持同步，因此很难找到在 SQL 中工作但在 PL/SQL 中不工作的东西。

鉴于您的任务性质，升级您的 Oracle 版本已经结束。所以我只能建议你有两个过程，一个支持子查询语法（通过避免对此类子查询的需要。像这样：

CREATE OR REPLACE FUNCTION xy_sqfn
    (main_query VARCHAR2
      , sub_query VARCHAR2   ) 
    RETURN NUMBER 
IS      
    n pls_integer;
BEGIN         
    execute immediate sub_query into n;
    EXECUTE IMMEDIATE 'BEGIN '||main_query||'; END;'
          using n;
    RETURN 5; 
END;

这样称呼

result := xy_sqfn ('update xy set id = id + :1'
                   , 'SELECT min(id) FROM xy');

现在这种方法不适用于相关子查询。因此，如果您拥有其中任何一个，您将需要再次做一些不同的事情。

---

顺便说一句，使用 AUTONOMOUS TRANSACTION 杂注来伪造在 SELECT 语句中执行 DML 是非常可怕的。为什么不直接在 PL/SQL 中运行函数呢？还是使用程序？我想您会说这没关系，因为您只是在编写一些笨拙的代码来支持数据迁移。这很公平，但为了未来寻求者的利益：不要这样做！这是非常糟糕的做法！