我该如何编写Oracle触发器,而不是当用户删除某条记录时,删除实际上并没有发生,而是对这些行执行更新,并将记录的状态设置为"D"?
我试过了:
create or replace
trigger DELFOUR.T4M_ITEM_ONDELETE
before delete on M_ITEM_H
FOR EACH ROW
BEGIN
UPDATE
M_ITEM_H
SET
ITEM_STAT = 'D'
WHERE
CUST_CODE = 'TEST'
AND ITEM_CODE = 'GDAY'
;
raise_application_error(-20000,'Cannot delete item');
END;
但我遇到了不断变化的表错误。这可能吗?
如果您真的需要一个触发器,更合乎逻辑的方法是创建一个视图,在视图上创建一个INSEAD OF DELETE
触发器,并强制应用程序对视图而不是基表进行删除。
CREATE VIEW vw_m_item_h
AS
SELECT *
FROM m_item_h;
CREATE OR REPLACE TRIGGER t4m_item_ondelete
INSTEAD OF DELETE ON vw_m_item_h
FOR EACH ROW
AS
BEGIN
UPDATE m_item_h
SET item_stat = 'D'
WHERE <<primary key>> = :old.<<primary key>>;
END;
更好的是,您可以省去触发器,创建一个应用程序将调用的delete_item
过程,而不是发出DELETE
,该过程只需更新行以设置item_stat
列,而不是删除行。
如果你真的,真的,真正想要一个涉及表本身触发器的解决方案,你可以
- 创建一个包含成员的包,该成员是映射到
m_item_h
表中数据的记录的集合 - 创建删除前语句级触发器,清空此集合
- 创建删除前行级触发器,将
:old.<<primary key>>
和所有其他:old
值插入集合 - 创建一个after-delete语句级触发器,该触发器遍历集合,将行重新插入表中,并设置
item_stat
列
这将比instead of trigger
涉及更多的工作,因为您必须删除然后重新插入行,而且它将涉及更多的移动部件,因此它将不那么优雅。但这是可行的。
首先,您编写的触发器会引发一个变化表错误。从技术上讲,你的要求是不可能的,即删除不会删除,而是更新,除非你在中间引发异常,这可能是一种丑陋的方式。我认为用户使用某种应用程序前端,让他们使用删除按钮来获取delete
数据,所以你可以在那里使用更新语句,而不是delete
语句。
另一种选择是创建一个日志表,您可以在从实际表中删除记录之前插入该记录,然后将日志表与实际表连接以检索已删除的记录。类似
CRETAE TABLE M_ITEM_H_DEL_LOG as SELECT * FROM M_ITEM_H WHERE 1=2;
然后
create or replace
trigger DELFOUR.T4M_ITEM_ONDELETE
before delete on M_ITEM_H
FOR EACH ROW
BEGIN
INSERT INTO
M_ITEM_H_DEL_LOG
VALUES (:old.col1, :old.col2,.....) --col1, col2...are columns in M_ITEM_H
;
END;