PL/SQL流程控制語句

介紹PL/SQL的流程控制語句, 包括如下三類:

l 控制語句: IF 語句
l 循環語句: LOOP語句, EXIT語句
l 順序語句: GOTO語句, NULL語句
1 條件語句
IF <布爾表達式> THEN
PL/SQL 和 SQL語句
END IF;

IF <布爾表達式> THEN
PL/SQL 和 SQL語句
ELSE
其它語句
END IF;

IF <布爾表達式> THEN
PL/SQL 和 SQL語句
ELSIF < 其它布爾表達式> THEN
其它語句
ELSIF < 其它布爾表達式> THEN
其它語句
ELSE
其它語句
END IF;
提示: ELSIF 不能寫成 ELSEIF

例1:
SQL> conn hr/hr@pdbtest
Connected.
SQL> set serveroutput on
SQL> DECLARE
2 v_empno employees.employee_id%TYPE :=&empno;
3 V_salary employees.salary%TYPE;
4 V_comment VARCHAR2(35);
5 BEGIN
6 SELECT salary INTO v_salary FROM employees
7 WHERE employee_id = v_empno;
8 IF v_salary < 1500 THEN
9 V_comment:= '太少了,加點吧~!';
10 ELSIF v_salary <3000 THEN
11 V_comment:= '多了點,少點吧~!';
12 ELSE
13 V_comment:= '沒有薪水~!';
14 END IF;
15 DBMS_OUTPUT.PUT_LINE(V_comment);
16 exception
17 when no_data_found then
18 DBMS_OUTPUT.PUT_LINE('沒有數據~!');
19 when others then
20 DBMS_OUTPUT.PUT_LINE(sqlcode || '---' || sqlerrm);
21 END;
22 /
Enter value for empno: 2278
old 2: v_empno employees.employee_id%TYPE :=&empno;
new 2: v_empno employees.employee_id%TYPE :=2278;
沒有數據~!

PL/SQL procedure successfully completed.
2 CASE 表達式
---------格式一---------
CASE 條件表達式
WHEN 條件表達式結果1 THEN
語句段1
WHEN 條件表達式結果2 THEN
語句段2
......
WHEN 條件表達式結果n THEN
語句段n
[ELSE 條件表達式結果]
END;
---------格式二---------
CASE
WHEN 條件表達式1 THEN
語句段1
WHEN 條件表達式2 THEN
語句段2
......
WHEN 條件表達式n THEN
語句段n
[ELSE 語句段]
END;
例1:
SQL> DECLARE
2 V_grade char(1) := UPPER('&p_grade');
3 V_appraisal VARCHAR2(20);
4 BEGIN
5 V_appraisal :=
6 CASE v_grade
7 WHEN 'A' THEN 'Excellent'
8 WHEN 'B' THEN 'Very Good'
9 WHEN 'C' THEN 'Good'
10 ELSE 'No such grade'
11 END;
12 DBMS_OUTPUT.PUT_LINE('Grade:'||v_grade||' Appraisal: '|| v_appraisal);
13 END;
14 /
Enter value for p_grade: D
old 2: V_grade char(1) := UPPER('&p_grade');
new 2: V_grade char(1) := UPPER('D');
Grade:D Appraisal: No such grade

PL/SQL procedure successfully completed.
3 循環

3. 1 簡單循環

   LOOP
   要執行的語句;
   EXIT WHEN <條件語句> --條件滿足，退出循環語句
   END LOOP;
   3.2 WHILE 循環
   WHILE <布爾表達式> LOOP
   要執行的語句;
   END LOOP;
   3.3 數字式循環

[<<循環標簽>>]
FOR 循環計數器 IN [ REVERSE ] 下限 .. 上限 LOOP
要執行的語句;
END LOOP [循環標簽];

每循環一次，循環變量自動加1；使用關鍵字REVERSE，循環變量自動減1。跟在IN REVERSE 后面的數字必須是從小到大的順序，而且必須是整數，不能是變量或表達式。可以使用EXIT 退出循環。
實例參見Oracle LOOP循環控制語句
例1 在While循環中嵌套loop循環
SQL> DECLARE
2 v_m NUMBER := 101;
3 v_i NUMBER;
4 v_n NUMBER := 0;
5 BEGIN
6 WHILE v_m < 110 LOOP
7 v_i := 2;
8 LOOP
9 IF mod(v_m, v_i) = 0 THEN
10 v_i := 0;
11 EXIT;
12 END IF;
13
14 v_i := v_i + 1;
15 EXIT WHEN v_i > v_m - 1;
16 END LOOP;
17
18 IF v_i > 0 THEN
19 v_n := v_n + 1;
20 DBMS_OUTPUT.PUT_LINE('第'|| v_n || '個素數是' || v_m);
21 END IF;
22
23 v_m := v_m + 2;
24 END LOOP;
25 END;
26 /
第1個素數是101
第2個素數是103
第3個素數是107
第4個素數是109

PL/SQL procedure successfully completed.
4 標號和GOTO

PL/SQL中GOTO語句是無條件跳轉到指定的標號去的意思。語法如下：

GOTO label;
......
<<label>>　/標號是用<<　>>括起來的標識符 /

注意，在以下地方使用是不合法的，編譯時會出錯誤。
跳轉到非執行語句前面。
跳轉到子塊中。
跳轉到循環語句中。
跳轉到條件語句中。
從異常處理部分跳轉到執行。
從條件語句的一部分跳轉到另一部分。
例1:
SQL> DECLARE
2 V_counter NUMBER := 1;
3 BEGIN
4 LOOP
5 DBMS_OUTPUT.PUT_LINE('V_counter的當前值為:'||V_counter);
6 V_counter := v_counter + 1;
7 IF v_counter > 10 THEN
8 GOTO labelOffLOOP;
9 END IF;
10 END LOOP;
11 <<labelOffLOOP>>
12 DBMS_OUTPUT.PUT_LINE('V_counter的當前值為:'||V_counter);
13 END;
14 /
V_counter的當前值為:1
V_counter的當前值為:2
V_counter的當前值為:3
V_counter的當前值為:4
V_counter的當前值為:5
V_counter的當前值為:6
V_counter的當前值為:7
V_counter的當前值為:8
V_counter的當前值為:9
V_counter的當前值為:10
V_counter的當前值為:11

PL/SQL procedure successfully completed.
5 NULL 語句

在PL/SQL 程序中，NULL語句是一個可執行語句，可以用 null 語句來說明“不用做任何事情”的意思，相當于一個占位符或不執行任何操作的空語句，可以使某些語句變得有意義，提高程序的可讀性，保證其他語句結構的完整性和正確性。如：
例1:
SQL> DECLARE
2 v_emp_id employees.employee_id%TYPE;
3 v_first_name employees.first_name%TYPE;
4 v_salary employees.salary%TYPE;
5 v_sal_raise NUMBER(3,2);
6 BEGIN
7 v_emp_id := &emp_id;
8 SELECT first_name, salary INTO v_first_name, v_salary
9 FROM employees WHERE employee_id = v_emp_id;
10 IF v_salary <= 3000 THEN
11 v_sal_raise := .10;
12 DBMS_OUTPUT.PUT_LINE(v_first_name||'的工資是'||v_salary
13 ||'、工資漲幅是'||v_sal_raise);
14 ELSE
15 NULL;
16 END IF;
17 END;
18 /
Enter value for emp_id: 206
old 7: v_emp_id := &emp_id;
new 7: v_emp_id := 206;

PL/SQL procedure successfully completed.