PLS-00049：错误的绑定变量触发器

Question

我正在尝试使此触发器起作用。它的作用是，这将在从表及其附属表中删除数据之前执行，然后将删除的数据插入 2 个表（我将其命名为 tb1_arch 和 tb2_arch）。我一直在谷歌搜索可能的修复，但我真的不知道如何使这项工作

CREATE OR REPLACE TRIGGER trig
BEFORE DELETE ON tb1 FOR EACH ROW
FETCH
INSERT INTO tb1_arch VALUES (:old.OrderNum, :old.tb1Date,:old.CustomerName);
DBMS_OUTPUT.PUT_LINE('Data archived.');
END;

触发器是在上面创建的。但是当我添加这一行时

INSERT INTO tb2_arch VALUES (:old.OrderNum, :old.ItemNum, :old.Pieces);

在INSERT INTO tb1_arch VALUES 之后，它给了我一个错误

“第 5 行错误：PLS-00049：绑定变量 'OLD.PIECES' 错误”

任何帮助将不胜感激！

编辑：正如 Vijayakumar 先生所建议的，我做了以下事情：

CREATE OR REPLACE TRIGGER trig
    BEFORE DELETE ON tb1 
    REFERENCING OLD AS old FOR EACH ROW
    INSERT INTO tb1_arch VALUES (:old.OrderNum, :old.tb1Date,:old.CustomerName);
    INSERT INTO tb2_arch VALUES (:old.OrderNum, :old.ItemNum, :old.Pieces);
    DBMS_OUTPUT.PUT_LINE('Data archived.');
    END

但是，我仍然遇到同样的错误。

编辑：删除了 FETCH，我仍然遇到同样的问题

CREATE OR REPLACE TRIGGER trig
BEFORE DELETE ON tb1 FOR EACH ROW

INSERT INTO tb1_arch VALUES (:old.OrderNum, :old.tb1Date,:old.CustomerName);
INSERT INTO tb2_arch VALUES (:old.OrderNum, :old.ItemNum, :old.Pieces);
DBMS_OUTPUT.PUT_LINE('Data archived.');
END;

表格如下： 待定1：

create table tb1 (
    OrderNum integer NOT NULL primary key,
    tb1Date date NOT NULL,
    CustomerName varchar2(50) NOT NULL,

--constraints
    CONSTRAINT tb1_uc unique (CustomerName)
);  

tb2

create table tb2 (
    OrderNum integer NOT NULL,
    ItemNum integer NOT NULL,
    Pieces integer NOT NULL,

--constraints
    CONSTRAINT tb2_fk foreign key (OrderNum) references tb1(OrderNum),
);

Answer 1

关键字FETCH 应该是造成这种情况的原因，将其替换为BEGIN，这是正确的语法，

CREATE OR REPLACE TRIGGER trig
BEFORE DELETE ON tb1 FOR EACH ROW
BEGIN
INSERT INTO tb1 VALUES (:old.OrderNum, :old.Date,:old.CustomerName);
INSERT INTO tb2_arch VALUES (:old.OrderNum, :old.ItemNum, :old.Pieces);
DBMS_OUTPUT.PUT_LINE('Data archived.');
END;

编辑：您使用OLD 引用的列名可能无效，这就是此错误的原因。

触发器仅适用于 ONE 表的INSERT/UPDATE/DELETE 事件。不过，您可以在正文中引用多个表格。

但OLD 和NEW 将始终引用您在DDL 中提到的表，例如DELETE ON tb1。

以下修改后的代码会对您有所帮助。

CREATE OR REPLACE TRIGGER trig
BEFORE DELETE ON tb1 FOR EACH ROW
DECLARE
   v_ItemNum tb2.ItemNum%TYPE;
   v_Pieces tb2.Pieces%TYPE;
BEGIN
   INSERT INTO tb1_arch VALUES (:old.OrderNum, :old.Date,:old.CustomerName);

   /* Select the values for this item from table 2 */
   SELECT ItemNum,Pieces
    INTO v_ItemNum,v_Pieces
   FROM tb2
    WHERE OrderNum = :old.OrderNum;

   /* Insert the selected values in the table2's archive version */
   INSERT INTO tb2_arch VALUES (:old.OrderNum, v_ItemNum, v_Pieces);

   /* Delete the entry */
   DELETE from tb2 WHERE OrderNum = :old.OrderNum;

   DBMS_OUTPUT.PUT_LINE('Data archived.');
END;

或者，您可以使用另一个触发器 for delete on table2 并在那里存档数据。