第五章 使用PL/SQL

时间:2024-03-14 09:35:32

Oracle 第5章 使用PL/SQL


1、技术目标

  • 理解 PL/SQL 功能和特点
  • 了解数据类型及其用法
  • 理解逻辑比较
  • 理解控制结构
  • 掌握错误处理


2、什么是PL/SQL?

  • PL/SQL是过程语言(Procedural Language)与结构化查询语言(SQL)结合而成的编程语言
  • PL/SQL是对SQL的扩展
  • 支持多种数据类型,如大对象和集合类型,可使用条件和循环等控制结构
  • 可用于创建存储过程、触发器和程序包,给SQL语句的执行添加程序逻辑
  • 与 Oracle服务器和Oracle 工具紧密集成,具备可移植性、灵活性和安全性


3、PL/SQL特点

  • 支持 SQL,在 PL/SQL 中可以使用:
           数据操纵命令
           事务控制命令
           游标控制
  • 支持动态SQL,可以在程序运行过程中动态构造和运行各种SQL命令
  • SQL函数和SQL运算符
  • 支持面向对象编程 (OOP)
  • 可移植性,可运行在任何操作系统和平台上的Oralce 数据库
  • 更佳的性能,PL/SQL 经过编译执行
  • 与 SQL 紧密集成,简化数据处理,如下:
           支持所有SQL数据类型
           支持NULL值
           支持%TYPE和%ROWTYPE属性类型
  • 安全性,可以通过存储过程限制用户对数据的访问


4、PL/SQL体系结构

PL/SQL引擎用来编译和执行PL/SQL块或子程序,该引擎驻留在Oracle
服务器中,引擎仅执行过程语句,对于SQL语句则发送给Oracle服务器
上的SQL语句执行器执行,如图:

第五章 使用PL/SQL


5、什么是PL/SQL块?

  • PL/SQL是一种块结构语言,将一组语句放在一个块中
  • 构成PL/SQL程序的基本单元是逻辑块(过程、函数或匿名块),逻辑块可以包含任何数量的嵌套子块,每个逻辑块对应要解决的问题或子问题,匿名块是未在数据库中命名的PL/SQL块,运行时传递到PL/SQL引擎执行
    (本文只涉及匿名块,命名块见后续文章)
  • 将逻辑上相关的声明和语句组合在一起


PL/SQL分为三个部分:

  • 声明部分,声明块中使用的变量、游标和自定义异常,其作用域仅限所在的块,另外,局部子程序也可在声明部分中定义
  • 可执行部分,执行命令并操作声明部分的变量、游标,可嵌套子块,该部分是必选
  • 异常处理部分,处理执行块时引发的异常,该部分也可嵌套子块


定义PL/SQL块,语法如下:

   [DECLARE 
    declarations]
    BEGIN
    executable statements
    [EXCEPTION 
    handlers]
    END;

语法说明:

declarations,为声明部分(可不要)
executable statements,为可执行部分
exception handlers,为错误处理代码块(可不要)

使用: 定义PL/SQL语句块
--声明部分 
DECLARE
  --定义变量 
  qty_on_hand number(5);
--可执行部分 
BEGIN
  --PL/SQL语句 
  SELECT quantity INTO qty_on_hand
  FROM Products
  WHERE product = '芭比娃娃'
  FOR UPDATE OF quantity;
  IF qty_on_hand > 0 THEN
    UPDATE Products SET quantity = quantity + 1
    WHERE product = '芭比娃娃';
    INSERT INTO purchase_record
    VALUES ('已购买芭比娃娃', SYSDATE);
  END IF;
  COMMIT;
--异常处理部分 
EXCEPTION  /* 异常处理语句 */ 
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('出错:'|| SQLERRM);  
END;
/

注意:默认情况下,SQL*Plus工具不会显示DBMS_OUTPUT程序包
的输出,要启用DBMS_OUTPUT,须执行命令set serveroutput on ,
语句结束后的"/",表示执行程序块 


6、PL/SQL语言特性 

PL/SQL对大小写不敏感

PL/SQL中的复合符号:

    :=         赋值操作符
    ||         连接操作符
    --        单行注释
    /* */        多行注释
    <<, >>        标签分隔符
    ..        范围操作符
    **        求冥操作符

可执行部分所使用的变量和常量,必须在声明部分先声明

声明变量时必须指定变量的数据类型,可以在声明变量时初始化,如下:

    语法: 变量名 数据类型[(范围)] [:= 初始值];
    使用: 
        DECLARE
            vcode varchar2(5);
            vname varchar2(25) := 'rose'
        BEGIN
            ...
        END;
        注意:一条语句只能声明一个变量

变量赋值时可使用select ... into语句将查询出的数据赋值给变量,

    使用: 
        DECLARE
          icode varchar2(6);
          pCatg varchar2(20);
          pRate number;
          --定义常量 
          cRate CONSTANT number := 0.10;
        BEGIN
          ...
          icode := 'i205'; --给变量icode赋值 
          select pCategory, itemRate * cRate
          into  pCatg, pRate --给变量pCatg、pRate赋值
          from ItemFile where itemCode = icode;
          ...
        END;

声明常量的语法为: 常量名 CONSTANT 数据类型 := 常量值

注意:初始化变量和常量时,可用保留字"DEFAULT"替换赋值操作符":=",例如,
flag boolean DEFAULT true; --声明布尔型变量flag,初始值为true 
score number DEFAULT 50; --声明数值型常量score,值为50 


7、PL/SQL 数据类型 

PL/SQL所使用的数据类型如下图:

第五章 使用PL/SQL

数值类型: 

第五章 使用PL/SQL

字符类型:
 

第五章 使用PL/SQL

日期时间类型 :

  • DATE
  • TIMESTAMP


布尔数据类型,BOOLEAN:

  • 用于存储逻辑值(TRUE、FALSE和NULL)
  • 不能向数据库中插入BOOLEAN数据
  • 不能将列值保存到BOOLEAN变量中
  • 只能对BOOLEAN变量执行逻辑操作


LOB数据类型:

  • 用于存储大文本、图像、视频剪辑和声音剪辑等非结构化数据。
  • LOB 数据类型可存储最大 4GB的数据。
  • LOB 类型包括:

        BLOB   将大型二进制对象存储在数据库中
        CLOB   将大型字符数据存储在数据库中,
        使用: 

            SET SERVEROUTPUT ON
            DECLARE
              clob_var   CLOB;
              amount     INTEGER;
              offset     INTEGER;
              output_var VARCHAR2(100);
            BEGIN
              --从表中选择CLOB字段值到clob_var变量中 
              SELECT chapter_text INTO clob_var
              FROM my_book_text
              WHERE chapter_id=5;
              amount := 24;  -- 要读取的字符数 
              offset := 1;   -- 起始位置 
              --从clob数据中读取24个字符存到output_var变量中 
              DBMS_LOB.READ(clob_var, amount, offset, output_var);
              --显示读取的信息 
              DBMS_OUTPUT.PUT_LINE(output_var);
            END;
            /
        NCLOB 存储大型UNICODE字符数据
        BFILE   将大型二进制对象存储在操作系统文件中,
        使用: 
            insert into myBook values ('Oracle第5章', 

                  BFILENAME('oracle_book', 'oracle05.txt'));
            oracle_book为目录别名(目录可以使用create directory语句创建),
            oracle05.txt为目录下的文件名

属性类型:

    用于引用数据库表中列的数据类型,以及表示表中一行的记录
    类型,有两种:

  • %TYPE,引用变量和数据库列的数据类型
  • %ROWTYPE,提供表示表中一行的记录类型


    使用1: 声明变量icode,其类型为表ItemFile中的列itemCode的类型,
    icode ItemFile.itemCode%TYPE;

    使用2: 声明变量empRec,可存储表Emp表中的一行记录,
    empRec Emp%ROWTYPE;

    属性类型的优点:

  • 不需要知道被引用的表列的具体类型
  • 如果被引用对象的数据类型发生改变,PL/SQL 变量的数据类型也随之改变


8、关系运算符

关系运算符    说明 
-------------------------------------------------------------------
=                 比较两个变量是否相等,如果值相当,则返回 True
<>, !=        比较两个变量,如果不相等,则返回 True
<                比较两个变量,检查值 1 是否小于值 2
>                比较两个变量,检查值 1 是否大于 值 2
<=              比较两个变量,检查变量 1 是否小于等于变量 2
>=              比较两个变量,检查变量 1 是否大于等于变量 2

9、布尔表达式

布尔表达式的结果为TRUE、FALSE或NULL,通常由逻辑运算符
AND、OR和NOT连接,有3中类型的布尔表达式:

表达式        说明                                          示例
------------------------------------------------------------------------------------ 
数字布尔型    用于比较数字,为定量比较           num1 := 25, num2 := 68,

                                                                  num1  <= num2 为 true

字符布尔型    比较字符串每个字节的二进制值     char1 := 'Mickey', 
                                                                  char2 := 
'Michael', 
                                                                  char1 > char2 为 true

日期布尔型    按年月顺序进行比较                    date1 := '15-9月-08',
                                                                  date2 := '16-10-08',
                                                                  date1 < date2 为 true

10、PL/SQL程序控制

三种程序控制方式:

  • 分支(条件)控制
  • 循环控制
  • 顺序控制


11)分支(条件)控制


    11.1)分支控制if语句 
     
    if语句有3种形式:if-then、if-then-else、if-then-elsif,

    if-then语句 :先检测条件,条件为true时执行then部分的语句,
    语法为,

        IF condition THEN
            语句;
        END IF

    if-then-else语句:不符合条件,执行else部分语句,
    语法为,

        IF condition THEN
            语句;
        ELSE
            语句;
        END IF;

        使用: 从ItemFile表中查询编号为I188的商品价格,存变量iRate中,如果
        价格大于200,将价格减少200,价格小于200,将价格减少50,
        set serveroutput on
        DECLARE
            iCode varchar2(4);--商品编号 
            iRate number;--商品价格 
        BEGIN
            --查询编号为I188的商品,将商品编号赋给iCode,
            --将价格赋给变量iRate
 

            select itemCode, itemRate into iCode ,iRate
            from ItemFile
            where itemCode = 'I188';
            --根据价格范围进行更新操作 
            IF iRate > 200 THEN
                update ItemFile set itemRate = itemRate - 200
                where itemCode = iCode;
            ELSE
                update ItemFile set itemRate = itemRate - 50
                where itemCode = iCode;
            END IF;
            --输出信息 
            DBMS_OUTPUT.PUT_LINE('编号:' || iCode ||  ' 价格:' || iRate);
        END;
        /

    if-then-elsif语句:

    将附加条件语句与if-then-else语句相结合的一种形式,语法为,

        IF condition1 THEN
            语句1;
        ELSIF condition2 THEN
            语句2;
        ELSIF condition3 THEN
            语句3;
        ...
        ELSE
            语句4;
        END IF;

    11.2)分支控制,case语句

    将单个变量或表达式与多个值进行比较,执行 CASE 语句前先计算
    选择器(selector)的值,当selector的值与WHEN中的表达式相等时,
    执行THEN部分的语句,语法:

        CASE selector
            WHEN 表达式1 THEN 语句1;
            WHEN 表达式1 THEN 语句1;
            ...
            WHEN 表达式N THEN 语句N;
            [ELSE 语句;]--当以上条件都不满足时执行ELSE中语句
        END CASE;

        使用: 提示用户输入成绩值,根据成绩输出相应的等级,
        set serveroutput on
        BEGIN
            CASE '&score' --接收输入的成绩
                WHEN 'A' THEN DBMS_OUTPUT.PUT_LINE('优异');
                WHEN 'B' THEN DBMS_OUTPUT.PUT_LINE('优秀');
                WHEN 'C' THEN DBMS_OUTPUT.PUT_LINE('良好');
                WHEN 'D' THEN DBMS_OUTPUT.PUT_LINE('一般');
                WHEN 'E' THEN DBMS_OUTPUT.PUT_LINE('较差');
                ELSE DBMS_OUTPUT.PUT_LINE('没有此成绩!');
            END CASE;
        END;
        /

12、循环控制

循环控制包括:loop、exit语句,exit可退出循环,
exit when语句可按条件退出循环,共三种类型:

    loop-end loop 循环
    while 循环
    for 循环

    12.1)LOOP循环(无条件循环) 

    语法:

    LOOP
        语句;
    END LOOP;

    循环执行LOOP块中的语句,为了避免死循环,LOOP的语句中必须
    加入EXIT或EXIT WHEN语句退出循环
    使用:使用学员分数,大于60分的显示"通过",

    set serveroutput on
    BEGIN
        LOOP
            --&score变量接收用户的输入 
            IF &score > 60 THEN
                DBMS_OUTPUT.PUT_LINE('通过');
                EXIT;
            END IF;
        END LOOP;
    END;
    /
    
    12.2)WHILE循环(条件循环)

    语法:

    WHILE 条件表达式 LOOP
        语句;
    END LOOP;

    使用: 每日销量循环累加,直至月销量大于等于4000为止,


    语法:

    set serveroutput on
    DECLARE
        monthlyValue number := 0;--声明月销量 
        dailyValue number := 0;--声明日销量 
    BEGIN
        WHILE monthlyValue <= 4000 LOOP
            --根据日销量计算月销量 
            monthlyValue := dailyValue * 31;
            --日销量累加 
            dailyValue := dailyValue + 10;
            --输出日销量信息 
            DBMS_OUTPUT.PUT_LINE('日销量:' || dailyValue);
        END LOOP;
        --输出月销量信息 
        DBMS_OUTPUT.PUT_LINE('月销量:' || monthlyValue);
    END;
    /

    12.3)FOR循环(带计数器的循环)

    语法:

    FOR 计数器变量 IN [REVERSE] 值1...值N
    LOOP
        语句;
    END LOOP;

    说明:reverse可使值由大到小执行循环
    使用: 循环25次,显示25个偶数,

    set serveroutput on
    BEGIN
        FOR counter IN 1..25
        LOOP
            DBMS_OUTPUT.PUT_LINE(counter * 2);
        END LOOP;
    END;
    /

13、顺序控制

可控制程序的执行顺序,可使用如下语句,

  • GOTO语句
  • 无条件地跳到标签指定的语句,标签使用双尖括号(<<标签名>>)括起来
  •     2在语句块内必须是唯一的名称,标签后跟待执行语句或PL/SQL块,GOTO
  • 3无法跳转到IF、CASE、LOOP语句或子快中
  • NULL语句
  • NULL是一条可执行语句,什么也不做,用在IF或其他语句的语法要求至少
  • 需要一条可执行语句但又不需要执行任何操作的情况下


使用: 检查itemCode为'I188'的产品的库存,如现有库存小于订购量则更新
现有库存

    DECLARE
        inventory ItemFile.inventory%type;--库存,类型同字段inventory 
        relevel ItemFile.relevel%type;--订购数量 

    BEGIN
        --查询商品编号为'I188'的商品库存和订购量并赋值给变量 
        select inventory, relevel into inventory, relevel
        from ItemFile
        where itemCode = 'I188';
        --判断库存是否小于订购量 
        IF inventory < relevel THEN
            --跳转到updation标签处 
            GOTO updation;
        ELSE
            --跳转到quit标签处 
            GOTO quit;
        END IF;
        --设置updation标签 
        <<updation>>
        update ItemFile set inventory = inventory + relevel
        where itemCode = 'I188';
        --设置quit标签 
        <<quit>>
        NULL;
    END;
    /

14、动态SQL

在PL/SQL程序中,可使用DML、TCL语句,但是DDL语句和会话控制
语句不能在PL/SQL中直接使用,要想使用可以通过动态SQL实现

动态SQL指在PL/SQL块编译时SQL语句不确定,比如可以根据用户输入
参数的不同而执行不同的操作,编译程序不处理动态语句部分,在程序
运行时可动态创建语句、对语句进行语法分析并执行

动态SQL执行方式:

  • 通过本地SQL命令执行
  • 通过DBMS_SQL程序包来执行


本地动态SQL语法:
    
    EXECUTE IMMEDIATE dynamic_sql_string
    [into define_variable_list]
    [using bind_argument_list];
    
    说明:
    dynamic_sql_string,为动态SQL语句字符串
    into子句,用于接受select语句查询出的值
    using子句,用于绑定输入参数变量
    
    注意:EXECUTE IMMEDIATE语句只能处理返回单行或没有返回的SQL语句,
    要处理返回多行的动态SQL可使用REF游标的OPEN...FOR语句(见后续文章)
    
    使用: 先执行创建表的动态SQL,再执行带参select语句,
    DECLARE
        sqlStmt varchar2(200); --保存SQL语句的字符串
        empId number(4) := 9527; --员工编号
        empRec emp%ROWTYPE; --保存行记录
    BEGIN
        --执行建表的动态SQL语句 
        EXECUTE IMMEDIATE
            'create table TempTable (id number, amt number)';
        --查询员工表的SQL语句,带一个输入参数id 
        sqlStmt := 'select * from Emp where empNo = :id';
        --执行查询员工表的动态SQL语句,同时设置输入参数empId,
        --查询结果(1条记录)保存到变量empRec
 

        EXECUTE IMMEDIATE sqlStmt INTO empRec USING empId;
    END;
    /

15、异常 

在运行程序时出现的错误叫做异常,发生异常后,语句将停止执行,
控制权转移到 PL/SQL 块的异常处理部分

异常有两种类型:

  • 预定义异常,当PL/SQL程序违反 Oracle 规则或超越系统限制时隐式引发
  • 用户定义异常,用户可以在PL/SQL块的声明部分定义异常,自定义的异常通过RAISE语句显式引发


16、预定义异常

  • Oracle把一些常见错误预先定义为异常
  • 每个预定义异常都有一个错误号
  • 必须通过名字来捕获异常,比如除数为零会引发"ZERO_DIVIDE"异常


PL/SQL支持的预定义异常如下:

异常名                              说明
--------------------------------------------------------------------------------
ACCESS_INTO_NULL          未初始化对象时出现
CASE_NOT_FOUND            在CASE语句中的选项与输入的数据不匹配时出现
COLLECTION_IS_NULL       给尚未初始化的表或数组赋值时出现
CURSOR_ALREADY_OPEN  试图重新打开已打开的游标时出现,重新打开游标
                                         前必须先关闭
DUP_VAL_ON_INDEX        试图将重复的值存储在使用唯一索引的列中时出现
INVALID_CURSOR             执行非法游标运算时出现,比如打开一个尚未打开
                                         的游标
INVALID_NUMBER            将字符串转换为数字时出现
LOGIN_DENIED                输入的用户名或密码无效时出现
NO_DATA_FOUND            表中不存在请求的行时出现或者引用已删除的元素时
STORAGE_ERROR             内存损坏或PL/SQL耗尽内存时出现
TOO_MANY_ROWS            执行select into语句后返回多行时出现
VALUE_ERROR                  产生大小限制错误时出现
ZERO_DIVIDE                   除数为零时出现

注意:预定义异常在STANDARD程序包中声明

异常处理程序语法为:
BEGIN
    ...
EXCEPTION
    WHEN 异常名 THEN
        语句;
    WHEN OTHERS THEN
        语句;
END;

说明:

  • OTHERS 处理程序确保不会遗漏任何异常,PL/SQL块只能有一个
  • OTHERS异常处理程序,函数SQLCODE和SQLERRM可返回错误代码和错误文本信息


使用: 检测代码中的预定义错误,
set serveroutput on
DECLARE
    orderNum varchar2(5); --订单号 
BEGIN
    --查询订单号 
    select orderNo into orderNum from orderMaster;
    --异常处理 
    EXCEPTION
        WHEN TOO_MANY_ROWS THEN
            --输出提示信息 
            DBMS_OUTPUT.PUT_LINE('返回多行');
    END;
    /
    注意:select into只允许返回一行,所以会引发TOO_MANY_ROWS预定义异常 

17、用户定义异常

用户可自行定义代码中使用的异常,这种处理方式与PL/SQL引擎处理错误的方式相同,可以作为一种良好的编程习惯,获得直观而好管理的代码,用户定义异常在PL/SQL块或子程序的声明部分定义,语法如下:

DECLARE
    异常名 EXCEPTION;

自定义异常可使用RAISE语句显示引发,语法为:

RAISE 异常名;

使用: 用自定义异常处理错误,如用户输入'附件', '顶盖', '备件',
属于错误的类别,引发自定义异常,
set serveroutput on
DECLARE
    --自定义异常(无效类别) 
    InvalidCategory EXCEPTION;
    category varchar2(10);
BEGIN
    --接收输入的数据 
    category := '&Category';
    --判断输入数据 
    IF category NOT IN ('附件', '顶盖', '备件') THEN
        --引发自定义异常 
        RAISE InvalidCategory;
    ELSE
        --输出信息 
        DBMS_OUTPUT.PUT_LINE('你输入的类别是:' || category);
    END IF;
--异常处理块 
EXCEPTION
    --捕获InvalidCategory异常 
    WHEN InvalidCategory THEN
        DBMS_OUTPUT.PUT_LINE('无法识别该类别');
END;
/

18、引发应用程序错误 

使用过程RAISE_APPLICATION_ERROR创建用户定义的错误信息,用户
定义的错误信息可以比指定的异常描述得更详细,语法如下:

RAISE_APPLICATION_ERROR (error_number, error_message);

说明:
error_number,是为异常指定的编号,编号必须是-20000 ~ -20999之间
    的负整数
error_message,为用户异常指定的消息文本,消息长度可到2048字节,
    错误消息是与error_number表示关联的文本

RAISE_APPLICATION_ERROR即可在PL/SQL程序可执行部分使用,还
可在其异常处理部分使用,调用此过程可同时显示错误编号和消息

使用: 如果费率是未知的,将显示"未指定费率",
set serveroutput on
DECLARE
    rate ItemFile.itemRate%TYPE;
    --自定义异常 
    RateException EXCEPTION;
BEGIN
    --查询编号为'I188'的商品的费率,赋给变量rate,费率为NULL就赋0 
    select NVL(itemRate, 0) into rate from ItemFile
    where itemCode = 'I188';
    --判断费率 
    IF rate = 0 THEN
        --费率为0,引发异常 
        RAISE RateException;
    ELSE
        --费率不为0,显示费率 
        DBMS_OUTPUT.PUT_LINE('费率为:' || rate);
    END IF;
--异常处理块 
EXCEPTION
    WHEN RateException THEN
        --显示指定的异常编号和异常信息 
        RAISE_APPLICATION_ERROR(-20008, '该商品未指定费率');
END;
/

19、总结 

  • PL/SQL 是一种可移植的高性能事务处理语言
  • PL/SQL 引擎驻留在 Oracle 服务器中
  • PL/SQL 块由声明部分、可执行部分和异常处理部分组成
  • PL/SQL 数据类型包括标量数据类型、LOB 数据类型和属性类型
  • 控制结构包括条件控制、循环控制和顺序控制
  • PL/SQL 支持动态 SQL
  • 运行时出现的错误叫做异常
  • 异常可以分为预定义异常和用户定义的异常