CREATE OR REPLACE TRIGGER 名称 BEFORE INSERT ON 表明 FOR EACH ROW DECLARE INTEGRITY_ERROR EXCEPTION; ERRNO INTEGER; ERRMSG CHAR(200); DUMMY INTEGER; FOUND BOOLEAN; -- 声明游标: CURSOR 游标名称(变量 VARCHAR) IS 游标语句; BEGIN
OPEN 游标名称(变量); FETCH 游标名称 INTO DUMMY; 需要操作语句; close 游标名称; end if; -- 例外 EXCEPTION WHEN INTEGRITY_ERROR THEN RAISE_APPLICATION_ERROR(ERRNO, ERRMSG); END;
ON 表明 FOR EACH ROW
DECLARE
INTEGRITY_ERROR EXCEPTION;
ERRNO INTEGER;
ERRMSG CHAR(200);
DUMMY INTEGER;
FOUND BOOLEAN;
-- 声明游标:
CURSOR 游标名称(变量 VARCHAR) IS
游标语句;
BEGIN
OPEN 游标名称(变量);
FETCH 游标名称 INTO DUMMY;
需要操作语句;
close 游标名称;
end if;
-- 例外
EXCEPTION
WHEN INTEGRITY_ERROR THEN
RAISE_APPLICATION_ERROR(ERRNO, ERRMSG);
END;