Oracle触发器用法

前端之家收集整理的这篇文章主要介绍了Oracle触发器用法前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

本文实例讲述了Oracle触发器用法分享给大家供大家参考,具体如下:

一、触发器简介

触发器的定义就是说某个条件成立的时候,触发器里面所定义的语句就会被自动的执行。因此触发器不需要人为的去调用,也不能调用。然后,触发器的触发条件其实在你定义的时候就已经设定好了。这里面需要说明一下,触发器可以分为语句级触发器和行级触发器。详细的介绍可以参考网上的资料,简单的说就是语句级的触发器可以在某些语句执行前或执行后被触发。而行级触发器则是在定义的了触发的表中的行数据改变时就会被触发一次。

具体举例:

1、 在一个表中定义的语句级的触发器,当这个表被删除时,程序就会自动执行触发器里面定义的操作过程。这个就是删除表的操作就是触发器执行的条件了。
2、 在一个表中定义了行级的触发器,那当这个表中一行数据发生变化的时候,比如删除了一行记录,那触发器也会被自动执行了。

二、触发器语法

触发器的语法:

?
1
2
3
4
5
6
create [ or replace ] tigger 触发器名 触发时间 触发事件
on 表名
[ for each row]
begin
pl/sql语句
end

其中:

触发器名:触发器对象的名称。由于触发器是数据库自动执行的,因此该名称只是一个名称,没有实质的用途。
触发时间:指明触发器何时执行,该值可取:
before:表示在数据库动作之前触发器执行;
after:表示在数据库动作之后触发器执行。
触发事件:指明哪些数据库动作会触发此触发器:
insert数据库插入会触发此触发器;
update数据库修改会触发此触发器;
delete数据库删除会触发此触发器。
表 名数据库触发器所在的表。
for each row:对表的每一行触发器执行一次。如果没有这一选项,则只对整个表执行一次。

触发器能实现如下功能

功能

1、 允许/限制对表的修改
2、 自动生成派生列,比如自增字段
3、 强制数据一致性
4、 提供审计和日志记录
5、 防止无效的事务处理
6、 启用复杂的业务逻辑

举例

1)、下面的触发器在更新表tb_emp之前触发,目的是不允许在周末修改表:

6
7
8
create or replace trigger auth_secure before insert or update DELETE
tb_emp
begin
IF(to_char(sysdate, 'DY' )= '星期日' ) THEN
RAISE_APPLICATION_ERROR(-20600,monospace!important; min-height:auto!important; color:blue!important">'不能在周末修改表tb_emp' );
END IF;
;
/

2)、使用触发器实现序号自增

创建一个测试表:

5
create table tab_user(
id number(11) primary key ,
username varchar (50),
password varchar (50)
);

创建一个序列:

create sequence my_seq increment by 1 start with 1 nomaxvalue nocycle cache 20;

创建一个触发器:

8
9
CREATE OR REPLACE TRIGGER MY_TGR
BEFORE INSERT ON TAB_USER
FOR EACH ROW --对表的每一行触发器执行一次
DECLARE
NEXT_ID NUMBER;
BEGIN
SELECT MY_SEQ.NEXTVAL INTO NEXT_ID FROM DUAL;
:NEW.ID := NEXT_ID; @H_502_358@--:NEW表示新插入的那条记录
;

向表插入数据:

4
insert into tab_user(username, password values ( 'admin' );
'fgz' );
'test' );
COMMIT 查询表结果:SELECT * FROM TAB_USER;

3)、当用户对test表执行DML语句时,将相关信息记录到日志表

9
10
11
12
13
@H_502_358@--创建测试表
CREATE TABLE test(
t_id NUMBER(4),monospace!important; min-height:auto!important">t_name VARCHAR2(20),
t_age NUMBER(2),
t_sex CHAR
);
@H_502_358@--创建记录测试表
test_log(
l_user VARCHAR2(15),
l_type VARCHAR2(15),
l_date VARCHAR2(30)
创建触发器:

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
--创建触发器
TEST_TRIGGER
AFTER DELETE OR INSERT UPDATE TEST
V_TYPE TEST_LOG.L_TYPE%TYPE;
IF INSERTING THEN
@H_502_358@--INSERT触发
V_TYPE := 'INSERT' ;
DBMS_OUTPUT.PUT_LINE( '记录已经成功插入,并已记录到日志' );
ELSIF UPDATING THEN
--UPDATE触发
'UPDATE' ;
'记录已经成功更新,并已记录到日志' );
ELSIF DELETING THEN
--DELETE触发
'DELETE' ;
'记录已经成功删除,并已记录到日志' );
IF;
INTO TEST_LOG
VALUES
( USER 'yyyy-mm-dd hh24:mi:ss' )); @H_502_358@--USER表示当前用户名
;
/
@H_502_358@--下面我们来分别执行DML语句
test VALUES (101,monospace!important; min-height:auto!important; color:blue!important">'zhao' 'M' );
UPDATE SET t_age = 30 WHERE t_id = 101;
DELETE t_id = 101;
@H_502_358@--然后查看效果
* test;
test_log;

运行结果如下:

3)、创建触发器,它将映射emp表中每个部门的总人数和总工资

26
--创建映射表
dept_sal AS
deptno, COUNT (empno) total_emp,147)!important">SUM (sal) total_sal
scott.emp
GROUP BY deptno;
@H_502_358@--创建触发器
EMP_INFO
UPDATE DELETE scott.EMP
DECLARE
CURSOR CUR_EMP IS
DEPTNO,monospace!important; min-height:auto!important">(EMPNO) AS TOTAL_EMP,monospace!important; min-height:auto!important">(SAL) TOTAL_SAL scott.EMP DEPTNO;
BEGIN
DEPT_SAL; @H_502_358@--触发时首先删除映射表信息
V_EMP IN CUR_EMP LOOP
--DBMS_OUTPUT.PUT_LINE(v_emp.deptno || v_emp.total_emp || v_emp.total_sal);
--插入数据
DEPT_SAL
VALUES
(V_EMP.DEPTNO,V_EMP.TOTAL_EMP,V_EMP.TOTAL_SAL);
LOOP;
;
@H_502_358@--对emp表进行DML操作
emp(empno,deptno,sal) '123' '10' sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,10000);
dept_sal;
EMP empno=123;
dept_sal;

显示结果如下:

4)、创建触发器,用来记录表的删除数据

23
--创建表
employee(
id VARCHAR2(4) NOT NULL name VARCHAR2(15) age NUMBER(2) sex CHAR NOT NULL
--插入数据
employee 'e101' );
'e102' 'jian' 'F' );
@H_502_358@--创建记录表(包含数据记录)
old_employee AS SELECT employee;
@H_502_358@--创建触发器
TIG_OLD_EMP
EMPLOYEE
EACH ROW @H_502_358@--语句级触发,即每一行触发一次
BEGIN
OLD_EMPLOYEE (:OLD.ID,:OLD. NAME sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,:OLD.AGE,:OLD.SEX); @H_502_358@--:old代表旧值
;
/
@H_502_358@--下面进行测试
employee;
old_employee;

5)、创建触发器,利用视图插入数据

24
tab1 (tid NUMBER(4) PRIMARY KEY sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,tname VARCHAR2(20),tage NUMBER(2));
tab2 (tid NUMBER(4),ttel VARCHAR2(15),tadr VARCHAR2(30));
@H_502_358@--插入数据
tab1 sql keyword" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,22);
(102,monospace!important; min-height:auto!important; color:blue!important">'yang' sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,20);
tab2 '13761512841' 'AnHuiSuZhou' );
'13563258514' );
@H_502_358@--创建视图连接两张表
VIEW tab_view tab1.tid,tname,ttel,tadr tab1,tab2 tab1.tid = tab2.tid;
@H_502_358@--创建触发器
TAB_TRIGGER
INSTEAD OF INSERT TAB_VIEW
BEGIN
TAB1 (TID,TNAME) (:NEW.TID,:NEW.TNAME);
TAB2 (TTEL,TADR) (:NEW.TTEL,:NEW.TADR);
;
/
@H_502_358@--现在就可以利用视图插入数据
(106,monospace!important; min-height:auto!important; color:blue!important">'ljq' '13886681288' 'beijing' );
@H_502_358@--查询
tab_view;
tab1;
tab2;

6)、创建触发器,比较emp表中更新的工资

19
set serveroutput ;
SAL_EMP
UPDATE EMP
EACH ROW
IF :OLD.SAL > :NEW.SAL '工资减少' );
ELSIF :OLD.SAL < :NEW.SAL THEN
'工资增加' ELSE
'工资未作任何变动' );
IF;
'更新前工资 :' || :OLD.SAL);
'更新后工资 :' || :NEW.SAL);
;
/
@H_502_358@--执行UPDATE查看效果
emp sal = 3000 empno = '7788' 7)、创建触发器,将操作CREATE、DROP存储在log_info表

31
32
33
34
35
36
log_info(
manager_user VARCHAR2(15),monospace!important; min-height:auto!important">manager_date VARCHAR2(15),monospace!important; min-height:auto!important">manager_type VARCHAR2(15),monospace!important; min-height:auto!important">obj_name VARCHAR2(15),
obj_type VARCHAR2(15)
--创建触发器
;
TRIG_LOG_INFO
CREATE DROP ON SCHEMA
BEGIN
LOG_INFO
VALUES
sql spaces" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,
SYSDATE,
SYS.DICTIONARY_OBJ_NAME,
SYS.DICTIONARY_OBJ_OWNER,
SYS.DICTIONARY_OBJ_TYPE);
;
/
@H_502_358@--测试语句
a(id NUMBER);
CREATE TYPE aa OBJECT(id NUMBER);
DROP a;
DROP TYPE aa;
@H_502_358@--查看效果
log_info;
@H_502_358@--相关数据字典-----------------------------------------------------
USER_TRIGGERS;
@H_502_358@--必须以DBA身份登陆才能使用此数据字典
ALL_TRIGGERS; DBA_TRIGGERS;
@H_502_358@--启用和禁用
ALTER trigger_name DISABLE;
trigger_name ENABLE;

希望本文所述对大家Oracle数据库程序设计有所帮助。

原文链接:https://www.f2er.com/oracle/211611.html

猜你在找的Oracle相关文章