如何在ORACLE行级触发器中BEFORE INSERT,更改当前插入值后,提交数据库?
--1、CREATETABLETEST_A(ANUMBER(10),BNUMBER(10),CNUMBER(10));--2、INSERTINTOTEST_A(A,B,C...
--1、
CREATE TABLE TEST_A(A NUMBER(10),B NUMBER(10),C NUMBER(10));
--2、
INSERT INTO TEST_A (A,B,C) VALUES(NULL,5,6);
--3、
CREATE OR REPLACE TRIGGER TRG_TEST_A
BEFORE INSERT ON TEST_A
FOR EACH ROW
DECLARE
LN_B NUMBER(10);
LN_C NUMBER(10);
CURSOR INSERTED_CURSOR IS
SELECT :NEW.B, :NEW.C FROM DUAL;
BEGIN
LN_B := 0;
LN_C := 0;
IF INSERTING THEN
BEGIN
OPEN INSERTED_CURSOR;
FETCH INSERTED_CURSOR
INTO LN_B, LN_C;
WHILE INSERTED_CURSOR%FOUND LOOP
BEGIN
--???????????
--这里写 LN_B * LN_C 的结果给TEST_A中的字段 A (当前新插入行的)
--???????????
FETCH INSERTED_CURSOR
INTO LN_B, LN_C;;
END;
END LOOP;
CLOSE INSERTED_CURSOR;
END;
END IF;
END TRG_TEST_A; 展开
CREATE TABLE TEST_A(A NUMBER(10),B NUMBER(10),C NUMBER(10));
--2、
INSERT INTO TEST_A (A,B,C) VALUES(NULL,5,6);
--3、
CREATE OR REPLACE TRIGGER TRG_TEST_A
BEFORE INSERT ON TEST_A
FOR EACH ROW
DECLARE
LN_B NUMBER(10);
LN_C NUMBER(10);
CURSOR INSERTED_CURSOR IS
SELECT :NEW.B, :NEW.C FROM DUAL;
BEGIN
LN_B := 0;
LN_C := 0;
IF INSERTING THEN
BEGIN
OPEN INSERTED_CURSOR;
FETCH INSERTED_CURSOR
INTO LN_B, LN_C;
WHILE INSERTED_CURSOR%FOUND LOOP
BEGIN
--???????????
--这里写 LN_B * LN_C 的结果给TEST_A中的字段 A (当前新插入行的)
--???????????
FETCH INSERTED_CURSOR
INTO LN_B, LN_C;;
END;
END LOOP;
CLOSE INSERTED_CURSOR;
END;
END IF;
END TRG_TEST_A; 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询