按名称获取 Oracle PL/SQl 变量属性（PL/SQL 中的反射）

Question

我需要对更新一行进行一些审核。

所以我有一个函数接收 some_table%ROWTYPE 类型的参数，其中包含要为该行保存的新值。

我还需要在历史记录表中保存一些关于更改了哪些列值的信息。我正在考虑从 all_tab_columns 中获取 some_table 的列名，然后遍历这些以比较旧值和新值并查看它是否已更改。问题是一旦我有了列名，我就不知道如何访问我的 ROWTYPE 变量中的值。类似 var.getProperty(columnName)。

我想这样做是为了避免有一堆 IF，每个字段一个，而且它也可以直接在表中添加一个新列。

我也不能使用触发器，因为上级说“没有触发器！”。 （如果这确实是唯一的方法，我可以尝试再次与他们讨论这个问题）。

Answer 1

可能值得找出为什么存在“无触发器”规则。

有很多反对触发器的好论据 - 尤其是关于将业务规则放入触发器中 - 但日志记录通常被认为是使用它们的一个很好的案例。

Oracle 的内置表版本控制（每次更新记录一行）也值得一看——这使历史的形状与当前的表形状保持一致。 它不会为您提供“更改了什么”历史记录，但最好在查看历史记录时立即执行“更改了什么”，而不是在每次更新时增加成本。

我发现做你想做的事情的唯一方法 - 动态访问 %ROWTYPE 的属性，是将变量放在包头上（因此它是公开可见的），然后执行动态 PL/SQL。您可以封装行变量，只要您的动态 pl/sql 块在每次检查之前都包含一个本地副本。即把它想象成你的立即执行模板。

DECLARE
     lNew myTab%ROWTYPE;
     lOld myTab%ROWTYPE;
     lReturn PLS_INTEGER := 0;
BEGIN
    lNew := pStatefulPackage.NewRow;
    lOld := pStatefulPackage.OldRow;
    IF NVL(lNew.<variable>,'~') != NVL(lOld..<variable>,'~') THEN
        :lReturn := 1;
    END IF;
END;

解决您无法在动态 SQL 中绑定记录变量或布尔值这一事实非常麻烦。

它还增加了每列的大量开销。

最后，我发现 ALL_TAB_COLUMNS 太慢了，无法用于此类事情 - 您需要将元数据缓存在本地 pl/sql 内存中。

Answer 2

通过从 USER_TAB_COLUMNS 读取列名来生成函数的主体可能是最简单的，例如（简化，不检查空值）：

select 'if :old.'||column_name||' <> :new.'||column_name||' then log('''||column_name||''',:old.'||column_name||',:new.'||column_name||'); end if;'
  from user_tab_columns
  where table_name='MYTABLE';