Cursor、Exception、Procedure、Function、Package、Trigger(day06)

回顾:

  1.record类型

    定义record类型,声明变量,保存s_dept表中id = 31部门信息

declare
      /* 定义record类型 */
      type deptrecord is record(
          id number,
          name s_dept.name%type,
          r_id number
      );
      /* 声明变量 */
      var_dept deptrecord;
      var_id number:=&id;
   begin
      select * into var_dept from s_dept where id=var_id;
      dbms_output.put_line(var_dept.id||','||
                                            var_dept.name||','||
                                            var_dept.r_id);
   end;
   

  

 

  2.动态SQL

 

    使用动态SQL语句,删除 testdsql 表中指定id 信息

declare
       sqlstr varchar2(100);
       var_id number:=1;
    begin
       -- sqlstr:='delete from testdsql_zsm_00 where id='
       --        ||var_id;
       sqlstr:='delete from testdsql_zsm_00 where id=:b0';
       dbms_output.put_line(sqlstr);
       execute immediate sqlstr using var_id;
       commit;
    end;
     

 

1.游标:

  1.1概念:

      游标是映射在结果集中一行数据的位置指针或位置实体。

  1.2作用:

      处理多行结果集!

      用户可以通过游标访问多行结果集中的任何一行数据,即可以对该行数据做操作,比如,把数据提取出来

  1.3使用游标步骤:

    1) 声明游标

       在声明区声明游标名

       cursor 游标名 is select语句;

       var_emp empcursor%rowtype;//声明游标变量

2)打开游标

       在执行区打开游标

       open 游标名;

    3)提取数据

       执行区提取数据

       fetch 游标名 into 游标变量;

    4)关闭游标         

       当提取和处理数据结束后,应该及时关闭游标释放系统资源

       close 游标名;

   1.4使用游标 读取s_emp 表中的全部数据     

      declare
        /* 声明游标 */
        cursor empcursor is select * from s_emp;
        /* 声明变量 */
        var_emp empcursor%rowtype;
      begin
         /* 打开游标 */
         open empcursor;
         /* 提取数据 */
         fetch empcursor into var_emp;
         dbms_output.put_line(var_emp.id||','||
                                              var_emp.first_name||','||
                                              var_emp.salary);
         fetch empcursor into var_emp;
         dbms_output.put_line(var_emp.id||','||
                                              var_emp.first_name||','||
                                              var_emp.salary);
         fetch empcursor into var_emp;
         dbms_output.put_line(var_emp.id||','||
                                              var_emp.first_name||','||
                                              var_emp.salary);
         /* 关闭游标 */
         close empcursor;
      end;

 

  1.5游标属性

    found     提取到数据,为真;没有提取到,则为假       在open之前,返回非法游标,fetch之前返回null

    notfound   没提取到数据,为真;提取到,则为假          ..  ..  ..  ..

    isopen    游标是否是打开状态,打开返回真,失败返回假  

    rowcount   游标的偏移量   没有打开返回非法游标

  1.6使用简单循环   配合  notfound 属性 遍历游标  

declare
        /* 声明游标 */
        cursor empcursor is select * from s_emp;
        /* 声明变量 */
        var_emp empcursor%rowtype;
     begin
        /* 打开游标 */
        open empcursor;
        /* 循环提取数据 */
        loop
            fetch empcursor into var_emp;
            exit when empcursor%notfound;
            dbms_output.put_line(var_emp.id||','||
                                                  var_emp.first_name||','||
                                                  var_emp.salary);
        end loop;
        /* 关闭游标 */
        close empcursor;
     end;

   1.7使用while循环 配合found属性 遍历游标

declare
        /* 声明游标 */
        cursor empcursor is select * from s_emp;
        /* 声明变量 */
        var_emp empcursor%rowtype;
     begin
        /* 打开游标 */
        open empcursor;
        /* 循环提取数据 */
        fetch empcursor into var_emp;
        while empcursor%found loop            
            dbms_output.put_line(var_emp.id||','||
                                                  var_emp.first_name||','||
                                                  var_emp.salary);
            fetch empcursor into var_emp;
        end loop;
        /* 关闭游标 */
        close empcursor;
     end;

   1.8使用for循环遍历游标

      for循环(智能循环) (自动打开游标、提取数据、关闭游标)

declare
       cursor empcursor is select * from s_emp;
    begin
       for var_emp in empcursor loop
          dbms_output.put_line(var_emp.id||','||
                                                var_emp.first_name||','||
                                                var_emp.salary);
       end loop;
    end;

 

   1.9带参游标

      参数的数据类型不能包含长度或精度的修饰,但是可以使用%type

      声明:

          cursor 游标名(形参列表) is   select语句 where .... ;

      传参: 在打开游标时传实参

          open 游标名(实参列表);

declare
       cursor empcursor(var_id number)
            is select * from s_emp where id>var_id;
    begin
       for var_emp in empcursor(10) loop
          dbms_output.put_line(var_emp.id||','||
                                                var_emp.first_name||','||
                                                var_emp.salary);
       end loop;
    end;

 

    1.10参考游标 ref cursor

      动态SQL + 游标

参考游标的使用步骤:
     sqlstr := 'select * from s_emp';
    1) 定义一个参考游标类型
      type 参考游标类型名  is ref cursor;
    2) 声明参考游标类型变量
      var_empcursor  参考游标类型名;
    3) 把动态sql语句和参考游标变量结合
      open var_empcursor for sqlstr;
    ......

    案例:使用参考游标 遍历s_emp表中的全部数据
    declare
      sqlstr varchar2(100);
      type emprefcursor is ref cursor;
      var_empcursor emprefcursor;
      var_emp s_emp%rowtype;
    begin
      sqlstr:='select * from s_emp';
      open var_empcursor for sqlstr;
      loop
         fetch var_empcursor into var_emp;
         exit when var_empcursor%notfound;
         dbms_output.put_line(var_emp.id||','||
                                               var_emp.first_name||','||
                                               var_emp.salary);
      end loop;
      close var_empcursor;
    end;
    
    带有占位符的sql语句
    declare
      sqlstr varchar2(100);
      type emprefcursor is ref cursor;
      var_empcursor emprefcursor;
      var_emp s_emp%rowtype;
    begin
      sqlstr:='select * from s_emp where id>:b0';
      -- using后可以使用变量,也可以使用值。一般用变量
      open var_empcursor for sqlstr using 10;
      loop
         fetch var_empcursor into var_emp;
         exit when var_empcursor%notfound;
         dbms_output.put_line(var_emp.id||','||
                                               var_emp.first_name||','||
                                               var_emp.salary);
      end loop;
      close var_empcursor;
    end;

 

 

2.PLSQL中的异常

  2.1 系统预定义异常

    Oracle 系统自身为用户提供可以在PLSQL中使用的预定义异常,用于检查用户代码失败的一般原因。

    系统预定义异常由系统定义和引发,用户只需根据名字捕获和处理异常

案例:
   declare
       var_name varchar2(25);
       var_id number:=&id;
   begin
       select first_name into var_name from s_emp
          where id = var_id;
       select first_name into var_name from s_emp
          where first_name like 'M%';
       dbms_output.put_line(var_name); 
   exception
       when no_data_found then
          dbms_output.put_line('no emp');
       when others then
          dbms_output.put_line(sqlcode||'.....'||sqlerrm);
   end;   

 

     常用的异常:

    no_data_found :     select ..into 语句没有返回行

    too_many_rows:       select..into 语句返回多于一行的结果集

    invalid_cursor:        非法游标

    cursor_already_open:     游标已打开 

    dup_val_on_index:     唯一索引对应的列上有重复值

    zero_divide:      除数为0

案例:处理多个异常
   declare
       var_name varchar2(25);
       var_id number:=&id;
   begin
       select first_name into var_name from s_emp
          where id = var_id;
       select first_name into var_name from s_emp
          where first_name like 'M%';
       dbms_output.put_line(var_name); 
   exception
       when no_data_found then
          dbms_output.put_line('no emp');
       when too_many_rows then
          dbms_output.put_line(' too many rows');
       when others then
          dbms_output.put_line(sqlcode||'.....'||sqlerrm);
   end;   

   2.2自定义异常:

     2.2.1 定义异常的步骤: 

        1)定义异常

            异常名 exception ;

        2)根据条件引发异常

            if 引发异常条件 then

              raise 异常名;

            end if;

        3)捕获异常和处理异常

            when 异常名 then 

               处理异常

    2.2.2 案例:更新员工表中指定员工的工资,员工不存在时提示异常

declare
       var_id s_emp.id%type:=&id;
       /* 定义异常 */
       no_result exception;
    begin
       update s_emp set salary=salary+500 where id=var_id;
       if  sql%notfound then
           raise no_result;
       end if;
       commit;
    exception
       when no_result then
           dbms_output.put_line('no result');
end;   

 

      隐式游标:在执行一个SQL语句时,Oracle会自动创建一个隐式游标。这个游标是内存中为处理该条SQL语句的工作区。

      隐士游标只要用于处理数据操作语句(insert、delete、update)的执行结果

3.存储过程 procedure

 3.1匿名块和有名块

  匿名块:

    匿名块不保存在与数据库中;每次使用都要 进行编译;不能在其他块调用

  有名块:

    可以存储在数据库中;可以在任何需要的地方调用

    

    有名块包括:procedure          function                     package                trigger

 3.2存储过程的创建

  语法:

    create [ or replace ] procedure 过程名 [ (参数列表) ] 

    is|as

       --临时变量

    begin

    exception

    end;

 3.3无参过程的创建和调用

  1)创建:输出两数中的较大值

 create or replace procedure getmax_zsm_00
       is
           var_a number:=10;
           var_b number:=100;
       begin
           if var_a > var_b then
               dbms_output.put_line(var_a);
           else
               dbms_output.put_line(var_b);
           end if;
       end;

  2)创建无参的存储过程

    

begin
         getmax_zsm_00;
end;

 3.4 带参的存储过程

  3.4.1 使用的注意事项

    1)参数的数据类型不能包含长度或精度的修饰

    2)参数可以有多种模式,并且可以有默认值

        参数名 {in | out |in out} 类型 {:= | default}值

        参数模式:

          in    输入参数 负责向过程传入值              系统默认

          out          输出参数  负责传出值 实参必须是变量 不必赋值 在过程内必须赋值

          in out      输入输出参数    既负责传入又负责传出     实参是赋值后的变量在过程内可以赋值

        只有in模式的参数才可以有默认值

  3.4.2案例:

案例:创建一个带参的存储过程,传入两个数字,输出最大值
      create or replace procedure getmax_zsm_00(
           var_a in number:=10,var_b number)
      is
      begin
          if var_a > var_b then
               dbms_output.put_line(var_a);
          else
               dbms_output.put_line(var_b);
          end if;
      end;   

   

  3.4.3带参的存储过程的调用 

declare
        var_x number:=123;
        var_y number:=12;
     begin
        getmax_zsm_00(1,10);
        getmax_zsm_00(var_x,100);
        getmax_zsm_00(var_x,var_y);
        -- getmax_zsm_00(1);
     end;

   3.4.4 参数赋值方式

   1) 按照位置赋值

   2)按照名字赋值             参数名=> 值

declare
        var_x number:=123;
        var_y number:=12;
     begin
        getmax_zsm_00(1,10);
        getmax_zsm_00(var_x,100);
        getmax_zsm_00(var_b=>10,var_a=>200);
        getmax_zsm_00(var_b=>1);
     end;

 

  3.4.5

3.4.5 练习:创建一个存储过程,传入两个数字,输出最大值,同时把两数之和保存在第二个变量,并测试
      create or replace procedure getmax_zsm_00(
           var_a in number,var_b in out number)
      is
      begin
          if var_a > var_b then
               dbms_output.put_line(var_a);
          else
               dbms_output.put_line(var_b);
          end if;
          var_b:=var_a + var_b;
      end;   

      -- 调用
      declare
          var_x number:=100;
      begin
          getmax_zsm_00(10,var_x);
          dbms_output.put_line(var_x);
      end;

   3.5 查看存储过程

    desc 过程名;

    desc user_source;

4.函数 Function

  4.1 plsql 中的函数和过程的区别

    1)关键字不同,过程是procedure  函数是 function

    2) 过程没有返回类型和返回值,函数有返回类型和返回值

    3)调用方式不同 ,过程在PLSQL中是直接调用,函数在PLSQL中需要组成表达式调用(使用变量接收返回值、作为函数或过程的参数)

  4.2语法

    create or replace function 函数名[参数列表]  return 数据类型

    is | as

      --  临时变量

    begin

      --  必须有return语句

    end;

  4.3 创建一个函数 ,传入两个数字,返回最小值

create or replace function getmin_zsm_00(
         var_a  number,var_b number) return number
      is
      begin
         if var_a < var_b then
             return var_a;
         else
             return var_b;
         end if;
      end;  

      declare
        var_x number:=100;
        var_y number:=1;
        var_result number;
      begin
         var_result:=getmin_zsm_00(var_x,var_y);
         dbms_output.put_line(var_result);
         dbms_output.put_line(getmin_zsm_00(123,10));
      end;

 

5.包  package

    5.1概念

      把一组逻辑上相关的过程、函数、变量、类型等组织到一起的一种逻辑结构

    5.2 系统提供的包

      dbms_output:     输入输出包

      dbms_random:    随机包

      dbms_job:      定时任务调度包

      

查看包中的数据:
     desc 包名;   
     desc dbms_random;
     function value(low number,high number)
              return number 
     包名.成员
     select dbms_random.value(1,100) from dual;
        
  5.3 自定义包
    1)定义包 package    -- 类似于C中.h文件
     create [or replace] package 包名
     is
      -- 函数、过程的声明,类型的定义,变量的声明等
     end[ 包名];

     -- 定义一个包,包含一个过程和一个函数
     create or replace package mypackage_zsm_00
     is
        procedure getmax(var_a number,var_b number);
        function getmin(var_a number,var_b number) 
                return number;
     end;

    2) 定义包的主体(包的实现)  
      create [or replace] package body 包名
      is
        -- 函数、过程的实现
      end[ 包名];

      create or replace package body mypackage_zsm_00
      is
        procedure getmax(var_a number,var_b number)
        is
        begin
            if var_a > var_b then
                dbms_output.put_line(var_a);
            else
                dbms_output.put_line(var_b);
            end if;
        end;

        function getmin(var_a number,var_b number) 
                return number
        is
        begin
           if var_a < var_b then
                 return var_a;
           else
                 return var_b;
           end if;
        end;
     end;

     -- 测试
     declare
        var_x number:=11;
        var_y number:=1234;
        var_res number;
     begin
        mypackage_zsm_00.getmax(var_x,var_y);
        var_res:=mypackage_zsm_00.getmin(var_x,var_y);
        dbms_output.put_line(var_res);
     end;

 

6.触发器  trigger

  6.1概念

    触发器是一种特殊的‘存储过程’,它定义了一些和数据库相关事件(如insert、delete、update等)执行时应该执行的 ‘功能代码块’,通常用来管理

  复杂的完整性约束、或监控对表的修改,对数据审计功能

6.2 语法
     create [or replace] trigger 触发器名
     {before|after}  {insert|update|delete}
     on 表名 [for each row]
     declare
     begin
     exception
     end;

   6.3 语句级触发器
     emp_zsm_00

     create or replace trigger tri_emp_zsm_00
     before update on emp_zsm_00
     declare
     begin
         dbms_output.put_line('table updated');
     end;

     update emp_zsm_00 set salary=salary + 100
               where id=1;
     update emp_zsm_00 set salary=salary + 100
               where id<1;
     update emp_zsm_00 set salary=salary + 100
               where id>1;

     
   6.4 行级触发器
     create or replace trigger tri_emp_zsm_00
     before update on emp_zsm_00 for each row
     declare
     begin
         dbms_output.put_line('table updated');
     end;
   
     update emp_zsm_00 set salary=salary + 100
               where id=1;
     update emp_zsm_00 set salary=salary + 100
               where id<1;
     update emp_zsm_00 set salary=salary + 100
               where id>1;
  
     标识符:
       :old    原值标识符
       :new  新值标识符      表名%rowtype类型

     insert              :new
     update   :old  :new
     delete    :old
     
     create or replace trigger tri_emp_zsm_00
     before update on emp_zsm_00 for each row
     declare
     begin
         dbms_output.put_line('table updated');
         dbms_output.put_line('old:'||:old.id||','||:old.salary);
         dbms_output.put_line('new:'||:new.id||','||:new.salary);
     end;
   
     update emp_zsm_00 set salary=salary + 100
               where id=1;
     update emp_zsm_00 set salary=salary + 100
               where id<1;
     update emp_zsm_00 set salary=salary + 100
               where id>1;

    注意:触发器中不能包含任何有关事务的操作
              事务 谁发起 谁结束

    6.5 使用触发器产生主键的值
     -- 创建一个表
     create table testtrigger_zsm_00(
            id number primary key,name varchar2(20));
     -- 创建一个序列
     create sequence trigger_id_zsm_00;
     -- 创建触发器
     create or replace trigger tri_pk_zsm_00
     before insert on testtrigger_zsm_00 for each row
     begin
        select trigger_id_zsm_00.nextval into :new.id 
            from dual;
     end;

     -- 插入一条语句
     insert into testtrigger_zsm_00(name) values('test1');

 

  

练习:
1.使用游标 遍历s_dept表中的全部数据
2.创建一个存储过程,传入数字n(大于1的整数),计算1..n的累加和,保存在第二个参数,并测试。

 

posted @ 2017-10-21 17:39  Kernel001  阅读(340)  评论(0编辑  收藏  举报