第五章游标和触发器

游标：

隐式游标：%FOUND, %NOTFOUND ,%ROWCOUNT

1．%FOUND 用法，只有在DML 语句影响一行或者多行时，%FOUND 属性才返回 TRUE。下列示例演示了 %FOUND 的用法：

begin

  update employees2 set first_name = ‘scott‘ where employee_id = 2;

if SQL%found then

  dbms_output.put_line(‘数据已经更新‘);

       --  dbms_output.put_line(‘rowCount = ‘||mrowcount);

else

  dbms_output.put_line(‘数据没有找到‘);

end if;

end;

/

以下代码演示了创建了一个游标，返回employees2 表中 salary 大于300000 的记录，注意type 的使用：

    declare

    csalary employees2.salary%type;

    cursor emp2_cursor is select salary from employees2 where salary >300000;

begin

  open emp2_cursor ;

  loop

    fetch emp2_cursor into csalary;

    exit when emp2_cursor%notfound;

    dbms_output.put_line(‘csalary = ‘||csalary);

  end loop;

end;

/

以下代码演示了创建了一个游标，返回employees2 表中 division_id=’SAL’ 的记录。

注意rowtype 的使用：

declare

 cursor employee2_cursor is select * from employees2 where division_id=‘SAL‘;

  myrecord employees2%rowtype;

begin

  open employee2_cursor;

  fetch employee2_cursor into myrecord;

  while employee2_cursor%found loop

    dbms_output.put_line(‘employee id =‘||myrecord.employee_id);

    dbms_output.put_line(‘first Name  =‘||myrecord.first_name);

    dbms_output.put_line(‘last name =‘||myrecord.last_name);

    fetch employee2_cursor into myrecord;

end loop;

end;

/

以下代码演示了带参数的游标，根据division id 查询指定的记录：

 declare

  myrecord employees2%rowtype;

  cursor emp_cursor(divisionid varchar2) is select * from employees2 where division_id =divisionid;

begin

  open emp_cursor(‘&divisionid‘);

--loop

  fetch emp_cursor into myrecord;

  while emp_cursor%found loop

 -- exit when emp_cursor%notfound;

  dbms_output.put_line(‘employee id = ‘||myrecord.employee_id);

  dbms_output.put_line(‘division id = ‘ ||myrecord.division_id);

  dbms_output.put_line(‘first name = ‘ ||myrecord.first_name);

  fetch emp_cursor into myrecord;

end loop;

close emp_cursor;

end;

/

以下代码演示了在创建游标时指定更新表中的字段。更新 employees2 表中的 first_name 字段：

set serveroutput on

 declare

 firstName varchar2(20);

 cursor employees2_cursor is select first_name from employees2 where employee_id=1 for update of 

 first_name;

 begin

   open employees2_cursor;

   loop

    fetch employees2_cursor into firstName;

    exit when employees2_cursor%notfound;

   update employees2

   set first_Name=‘jeff ‘ where current of employees2_cursor;

  end loop;

 close employees2_cursor;

 commit;

 end; /

触发器：

触发器是当特定事件出现时自动执行的存储过程

特定事件可以是执行更新的DML语句和DDL语句

触发器不能被显式调用

触发器的功能：

自动生成数据

自定义复杂的安全权限

提供审计和日志记录

启用复杂的业务逻辑

触发器的类型包括：行级触发器，语句级触发器、INSTEAD OF 触发器、模式触发器、数据库级触发器。

创建触发器语法：

CREATE [OR REPLACE] TRIGGER trigger_name

AFTER | BEFORE | INSTEAD OF

[INSERT] [[OR] UPDATE [OF column_list]] 

[[OR] DELETE]

ON table_or_view_name

[REFERENCING {OLD [AS] old / NEW [AS] new}]

[FOR EACH ROW]

[WHEN (condition)]

pl/sql_block;

创建行级触发器，以下代码演示了插入或者修改 employees2 表中的first_name 如果等于 ‘scott’时触发器就会执行：

create or replace trigger tri_employees2

 before insert or update of first_name

   on employees2

  referencing NEW as newdata OLD as olddata

 for each row

 when (newdata.first_name=‘scott‘)

  begin

        : newdata.salary :=20000;

     dbms_output.put_line(‘new.salary:‘ || :newdata.salary);

     dbms_output.put_line(‘old.salary:‘ || :olddata.salary);

  end;

执行以上触发器：

insert into employees2 values(38,‘SUP‘,‘WOR‘,‘scott‘,‘mp‘,50000);

或者：

update employees2 set salary=90000,first_name=‘scott‘ where employee_id=38;

以下代码针对数据完整性进行操作(删除dept 表中的ID 同时把外键表employee表中对应的 deptid 信息删除)：

创建对应的表：

      create table dept(deptId number(10),deptName varchar2(20));

    insert into dept(deptid,deptname) values(1,‘学术部‘)
insert into dept(deptid,deptname) values(2,‘教质部‘)
insert into dept(deptid,deptname) values(3,‘市场部‘)
insert into dept(deptid,deptname) values(4,‘财务部‘)

create table emp(empid number(10),empName varchar2(20),deptid number(10))
insert into emp(empid,empName,deptid) values(1,‘scott‘,1)
insert into emp(empid,empName,deptid) values(2,‘jack‘,2)
insert into emp(empid,empName,deptid) values(3,‘mike‘,3)
insert into emp(empid,empName,deptid) values(4,‘jeff‘,4)
insert into emp(empid,empName,deptid) values(5,‘vera‘,1)
insert into emp(empid,empName,deptid) values(6,‘linda‘,2)
insert into emp(empid,empName,deptid) values(7,‘Marho‘,3)
insert into emp(empid,empName,deptid) values(7,‘dick‘,4)

  删除操作：

         create or replace trigger del_deptid

 after delete on dept

 for each row

 begin

   delete from employee where deptid = :old.id;

 end del_deptid;

 /

执行以上触发器(由于在dept 表中创建了触发器，删除dept 表对应ID 记录同时删除employee 表中对应的deptid 信息)：

   delete from dept where id=1;  查看employee 表中的 deptid 记录;

添加操作：

    create or replace trigger insert_dept

after insert on dept

for each row

begin

 insert into employee(id,name,deptid) values(‘6‘,‘chenmp‘,:new.id);

end;

/

   执行以上触发器：

insert into dept values(6,‘销售部门‘);

  查看employee 表中的 deptid 记录

修改操作(在dept 表中创建UPDATE 触发器,修改DEPT 表ID 同时修改employee 表中的DEPTID)：

  create or replace trigger update_dept

after update on dept

for each row

  begin

   update employee set deptid = :new.id where deptid = :old.id;

end;

/

执行以上触发器：

update dept set id=8 where id=1;

查看employee 表中的 deptid 记录

以下代码演示了行级触发器：

创建表：

drop table rowtable;

      create  table rowtable (id number(8) , name varchar2(100));

创建序列

        create sequence rowtablesequence;

创建触发器：

create or replace trigger set_sequence

before insert on rowtable

for each row

declare

    rsequence number(8);

begin

select rowtablesequence.nextval into rsequence from dual;

   :NEW.id :=rsequence;

end;

/

执行SQL语句：

     insert into rowtable values(232,‘scott‘);

以下代码演示了语句级触发器:

创建表：

create table mylog(curr_user varchar2(100),curr_date date,opera varchar2(10));

创建触发

create or replace trigger tri_mylog

after insert or delete or update on employees2

begin

if inserting then

insert into mylog values(user,sysdate,‘insert‘);

elsif deleting then

insert into mylog values(user,sysdate,‘delete‘);

else

insert into mylog values(user,sysdate,‘update‘);

end if;

end;

/

模式触发器：可以在模式级的操作上建立触发器，如：create ,alter,drop,grant,revoke 和truncate 等 DDL语句：

以下示例对用户所删除的所有对象进行日志记录。

1． 创建数据库表：

  drop table dropped_obj;

     CREATE TABLE dropped_obj

(

  obj_name VARCHAR2(30),

  obj_type VARCHAR2(20),

  drop_date DATE

);

    2．创建触发器：

CREATE OR REPLACE TRIGGER log_drop_obj

AFTER DROP ON SCHEMA

BEGIN

  INSERT INTO dropped_obj

  VALUES (ORA_DICT_OBJ_NAME, ORA_DICT_OBJ_TYPE, SYSDATE);

END;

/

   3．创建和删除对象：

          创建对象：CREATE  TABLE  for_drop ( x CHAR );

          删除对象：DROP  TABLE  for_drop;

4．查看日志表中的信息：

         SELECT  *  FROM  dropped_obj;

起用和禁用触发器：

   以下代码演示了禁用biu_emp_deptno 触发器：

         ALTER TRIGGER biu_emp_deptno DISABLE;

   以下代码演示了启用biu_emp_deptno 触发器：   

         ALTER TRIGGER biu_emp_deptno enable;

可以使用：

        Alter table table_name{enable | disable} all triggers;

禁用或者起用在特定表上建立的所有触发器。

删除触发器：

        Drop trigger trigger_name;

查看触发器信息，可以使用user_trigers 数据字典视图。

Desc user_triggers