【Oracle】Oracle系列之十一--PL/SQL

往期回顾

• 【Oracle】Oracle系列–Oracle数据类型
• 【Oracle】Oracle系列之二–Oracle数据字典
• 【Oracle】Oracle系列之三–Oracle字符集
• 【Oracle】Oracle系列之四–用户管理
• 【Oracle】Oracle系列之五–Oracle表空间
• 【Oracle】Oracle系列之六–Oracle表分区
• 【Oracle】Oracle系列之七–表的创建与管理
• 【Oracle】Oracle系列之八–SQL查询
• 【Oracle】Oracle系列之九–Oracle常用函数
• 【Oracle】Oracle系列之十–Oracle正则表达式

前言

PL（ Procedural Language）/SQL是一种程序设计语言，用于编写Oracle数据库的存储过程、触发器、函数等对象，还还支持面向对象编程（OOP）和动态SQL，可提高开发效率和应用程序的可维护性。

PL/SQL结合了SQL语句和通用程序设计语言的特性，可实现复杂的数据操作和业务逻辑。与SQL语句相比，PL/SQL具有更强大的数据处理功能和更高的执行效率，可在服务器端进行处理，减少网络通信开销，方便维护和重用。

1. PL/SQL语句块组成

PL/SQL语句块由三个主要部分组成：声明部分、执行部分、异常处理。

DECLARE
   Declaration statements
BEGIN
   Executable statements
EXCEPTION
   Exception-handling statements
END;
1
2
3
4
5
6
7

声明部分（Declaration Section）：该部分用于声明变量、常量、游标、子程序等对象，并可以定义类型和表。声明部分以关键字DECLARE开头，以BEGIN关键字结束。

执行部分（Execution Section）：该部分包含PL/SQL代码的主体，用于执行具体的操作，例如SELECT、UPDATE、DELETE等SQL语句，或者控制语句（IF-THEN、LOOP、WHILE-DO等）。执行部分以关键字BEGIN开始，以END结尾。

异常处理部分（Exception Handling Section）：该部分用于捕获和处理程序运行时可能出现的错误。在执行部分中，如果发生异常，则会跳转到异常处理部分进行相应的处理。异常处理部分以关键字EXCEPTION开始，以END结尾。

2. 变量的声明与使用

通过使用变量，可以使PL/SQL程序更加灵活和可读性更强。

（1）变量声明

PL/SQL中，变量需要声明并指定其类型，然后才能使用。

声明一个整数变量

DECLARE
  my_variable INTEGER;
BEGIN
  -- 代码块
END;
1
2
3
4
5

声明一个字符变量

DECLARE
  my_variable VARCHAR2(50);
BEGIN
  -- 代码块
END;
1
2
3
4
5

声明一个日期变量

DECLARE
  my_variable DATE;
BEGIN
  -- 代码块
END;
1
2
3
4
5

声明一个游标变量

DECLARE
  my_cursor SYS_REFCURSOR;
BEGIN
  -- 代码块
END;
1
2
3
4
5

（2）变量赋值

变量可以在代码块中使用，并且可以进行赋值、计算和比较等操作：

赋值操作

DECLARE
  my_variable INTEGER := 10;
BEGIN
  -- 代码块
END;
1
2
3
4
5

计算操作

DECLARE
  x INTEGER := 5;
  y INTEGER := 3;
  result INTEGER;
BEGIN
  result := x + y; -- 计算x和y的和
END;
1
2
3
4
5
6
7

比较操作

DECLARE
  x INTEGER := 5;
  y INTEGER := 3;
  result BOOLEAN;
BEGIN
  result := (x > y); -- 比较x是否大于y
END;
1
2
3
4
5
6
7

3. 控制语句

（1）分支语句

PL/SQL中的分支语句包括IF-THEN-ELSE语句和CASE语句。

IF-THEN-ELSE语句根据条件执行不同的语句块
CASE语句根据变量的值执行不同的语句块
e.g. IF-THEN-ELSE语句:

DECLARE
   salary NUMBER := 5000;
BEGIN
   IF salary > 10000 THEN
      dbms_output.put_line('High Salary');
   ELSIF salary > 5000 THEN
      dbms_output.put_line('Medium Salary');
   ELSE
      dbms_output.put_line('Low Salary');
   END IF;
END;
1
2
3
4
5
6
7
8
9
10
11

e.g. CASE语句:

DECLARE
   grade CHAR(1) := 'A';
BEGIN
   CASE grade
      WHEN 'A' THEN dbms_output.put_line('Excellent');
      WHEN 'B' THEN dbms_output.put_line('Good');
      WHEN 'C' THEN dbms_output.put_line('Fair');
      ELSE dbms_output.put_line('Needs Improvement');
   END CASE;
END;
1
2
3
4
5
6
7
8
9
10

（2）循环语句

LOOP基本循环

LOOP 
…
END LOOP;
1
2
3

e.g.

BEGIN
X:=0;
LOOP
X:=X+1;
EXIT WHEN X>=3;
DBMS_OUTPUT.PUT_LINE('X:'||X);
END LOOP;
END;
1
2
3
4
5
6
7
8

WHILE循环

WHILE expression LOOP
…
END LOOP;
1
2
3

e.g.

BEGIN
X:=0;
WHILE X<=3 LOOP
X:=x+1;
END LOOP;
DBMS_OUTPUT.PUT_LINE('X='||X);
END;
1
2
3
4
5
6
7

FOR循环

FOR counter IN [REVERSE] start_value..end_value LOOP
…
END LOOP;
1
2
3

e.g.

– 递增量只能是1

FOR I IN 1..5 LOOP
DBMS_OUTPUT.PUT_LINE('I='||I);
END LOOP;
1
2
3

4. 异常处理

PL/SQL的异常处理是一种机制，用于在程序执行期间捕获和处理出现的错误。当发生异常时，控制权会转移到异常处理部分，该部分包含了处理异常的代码块。异常处理可以提高程序的健壮性和可靠性，避免意外的程序崩溃和数据丢失。

PL/SQL中使用BEGIN…EXCEPTION…END语句块来处理异常。在BEGIN和EXCEPTION之间的代码称为“protected code”，如果在这段代码执行期间发生异常，则会跳转到EXCEPTION块中执行相应的异常处理逻辑。

通常情况下，异常处理代码块会记录异常信息，并采取一些措施以使程序能够继续执行或正确地退出。例如，可以向用户显示错误消息、回滚未提交的事务、关闭打开的文件等。

PL/SQL中有许多预定义的异常类型，可使用EXCEPTION WHEN语句来处理特定类型的异常，也可自定义异常类型并通过RAISE语句手动引发异常。

（1）系统异常

PL/SQL中的系统异常是指在程序执行过程中由Oracle数据库引擎抛出的异常。常见PL/SQL系统异常如下：

NO_DATA_FOUND：当SELECT语句未检索到任何数据时会抛出此异常。
TOO_MANY_ROWS：当SELECT语句返回多行数据时会抛出此异常。
DUP_VAL_ON_INDEX：当试图向一个有唯一性约束的列或主键中插入重复的值时，会抛出此异常。
INVALID_CURSOR：当尝试使用无效的游标时会抛出此异常。
TIMEOUT_ON_RESOURCE：当等待某个资源超时时会抛出此异常，例如等待锁或I/O操作完成。
STORAGE_ERROR：当PL/SQL内存空间不足时会抛出此异常。
PROGRAM_ERROR：当发生编译器或运行时错误时会抛出此异常。
OTHERS：当没有匹配的异常处理程序时，所有未处理的异常都将被转换为此异常。
e.g.

DECLARE
TEST VARCHAR2(10);
BEGIN
SELECT X INTO TEST FROM DETAIL.T_JBXX WHERE ID=1;
DBMS_OUTPUT.PUT_LINE('TEST IS:'||TEST);
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('NO_DATA_FOUND');
END;
1
2
3
4
5
6
7
8
9

（2）自定义异常

PL/SQL中，可以使用自定义异常来处理程序运行时可能发生的错误。

e.g.

DECLARE
TNAME VARCHAR2(20);
E EXCEPTION; /*声明异常*/
BEGIN
SELECT X INTO TNAME FROM DETAIL.T_JBXX WHERE ID=32334;
IF TNAME<>'TOM' THEN
RAISE E; /*抛出异常*/
END IF;
DBMS_OUTPUT.PUT_LINE(TNAME);
EXCEPTION  /*异常处理*/
WHEN E THEN
DBMS_OUTPUT.PUT_LINE('ERROR NOT TOM');
END;
1
2
3
4
5
6
7
8
9
10
11
12
13