Oracle系列十一：PL/SQL

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;

• 声明部分（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;

• 声明一个字符变量

DECLARE
  my_variable VARCHAR2(50);
BEGIN
  -- 代码块
END;

• 声明一个日期变量

DECLARE
  my_variable DATE;
BEGIN
  -- 代码块
END;

• 声明一个游标变量

DECLARE
  my_cursor SYS_REFCURSOR;
BEGIN
  -- 代码块
END;

（2）变量赋值

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

• 赋值操作

DECLARE
  my_variable INTEGER := 10;
BEGIN
  -- 代码块
END;

• 计算操作

DECLARE
  x INTEGER := 5;
  y INTEGER := 3;
  result INTEGER;
BEGIN
  result := x + y; -- 计算x和y的和
END;

• 比较操作

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

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;

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;

（2）循环语句

• LOOP基本循环

LOOP 
…
END LOOP;

e.g.

BEGIN
X:=0;
LOOP
X:=X+1;
EXIT WHEN X>=3;
DBMS_OUTPUT.PUT_LINE('X:'||X);
END LOOP;
END;

• WHILE循环

WHILE expression LOOP
…
END LOOP;

e.g.

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

• FOR循环

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

e.g.

-- 递增量只能是1
FOR I IN 1..5 LOOP
DBMS_OUTPUT.PUT_LINE('I='||I);
END LOOP;

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;

（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;