[推荐]ORACLE PL/SQL编程之四：
把游标说透(不怕做不到，只怕想不到)
继上两篇：ORACLE PL/SQL编程之八：把触发器说透
ORACLE PL/SQL编程之六：把过程与函数说透(穷追猛打，把根儿都拔起!)
得到了大家的强力支持，感谢。接下来再下猛药，介绍下一篇，大家一定要支持与推荐呀~！我也才有动力写后面的。
本篇主要内容如下：
4.1 游标概念
4.1.1 处理显式游标
4.1.2 处理隐式游标
4.1.3 关于 NO_DATA_FOUND 和 %NOTFOUND的区别
4.1.4 使用游标更新和删除数据
4.2 游标变量
4.2.1 声明游标变量
4.2.2 游标变量操作
游标的使用
PL/SQL 程序中，对于处理多行记录的事务经常使用游标来实现。
4.1 游标概念
在PL/SQL块中执行SELECT、INSERT、DELETE和UPDATE语句时，ORACLE会在内存中为其分配上下文区（Context Area），即缓冲区。游标是指向该区的一个指针，或是命名一个工作区（Work Area），或是一种结构化数据类型。它为应用等量齐观提供了一种对具有多行数据查询结果集中的每一行数据分别进行单独处理的方法，是设计嵌入式SQL语句的应用程序的常用编程方式。
OPEN_CURSORS参数定义。
对于不同的SQL语句，游标的使用情况不同：
SQL语句 | 游标 |
非查询语句 | 隐式的 |
结果是单行的查询语句 | 隐式的或显示的 |
结果是多行的查询语句 | 显示的 |
4.1.1 处理显式游标
1. 显式游标处理
显式游标处理需四个 PL/SQL步骤:
l 定义/声明游标：就是定义一个游标名，以及与其相对应的SELECT 语句。
格式：
CURSOR
cursor_name
[
(parameter[, parameter
]
…)]
[
RETURN datatype
]
IS
select_statement;
游标参数只能为输入参数，其格式为：
parameter_name
[
IN
]
datatype
[
{:= | DEFAULT} expression
]
在指定数据类型时，不能使用长度约束。如NUMBER(4),CHAR(10) 等都是错误的。
[RETURN datatype]是可选的，表示游标返回数据的数据。如果选择，则应该严格与select_statement中的选择列表在次序和数据类型上匹配。一般是记录数据类型或带“%ROWTYPE”的数据。
l 打开游标：就是执行游标所对应的SELECT 语句，将其查询结果放入工作区，并且指针指向工作区的首部，标识游标结果集合。如果游标查询语句中带有FOR UPDATE选项，OPEN 语句还将锁定数据库表中游标结果集合对应的数据行。
格式：
OPEN
cursor_name
[
([parameter =>
]
value
[
, [parameter =>
]
value]…)];
在向游标传递参数时，可以使用与函数参数相同的传值方法，即位置表示法和名称表示法。PL/SQL 程序不能用OPEN 语句重复打开一个游标。
l 提取游标数据：就是检索结果集合中的数据行，放入指定的输出变量中。
格式：
FETCH
cursor_name
INTO
{variable_list
|
record_variable };执行FETCH语句时，每次返回一个数据行，然后自动将游标移动指向下一个数据行。当检索到最后一行数据时，如果再次执行FETCH语句，将操作失败，并将游标属性%NOTFOUND置为TRUE。所以每次执行完FETCH语句后，检查游标属性%NOTFOUND就可以判断FETCH语句是否执行成功并返回一个数据行，以便确定是否给对应的变量赋了值。
l 对该记录进行处理；
l 继续处理，直到活动集合中没有记录；
l 关闭游标：当提取和处理完游标结果集合数据后，应及时关闭游标，以释放该游标所占用的系统资源，并使该游标的工作区变成无效，不能再使用FETCH 语句取其中数据。关闭后的游标可以使用OPEN 语句重新打开。
格式：
CLOSE
cursor_name;注：定义的游标不能有INTO 子句。
例1. 查询前10名员工的信息。
DECLARE
CURSOR
c_cursor
IS
SELECT
first_name
||
last_name, Salary
FROM
EMPLOYEES
WHERE
rownum
<
11
;
v_ename EMPLOYEES.first_name
%
TYPE;
v_sal EMPLOYEES.Salary
%
TYPE;
BEGIN
OPEN
c_cursor;
FETCH
c_cursor
INTO
v_ename, v_sal;
WHILE
c_cursor
%
FOUND LOOP
DBMS_OUTPUT.PUT_LINE(v_ename
||
'
---
'
||
to_char(v_sal) );
FETCH
c_cursor
INTO
v_ename, v_sal;
END
LOOP;
CLOSE
c_cursor;
END
;
例2. 游标参数的传递方法。
DECLARE
DeptRec DEPARTMENTS
%
ROWTYPE;
Dept_name DEPARTMENTS.DEPARTMENT_NAME
%
TYPE;
Dept_loc DEPARTMENTS.LOCATION_ID
%
TYPE;
CURSOR
c1
IS
SELECT
DEPARTMENT_NAME, LOCATION_ID
FROM
DEPARTMENTS
WHERE
DEPARTMENT_ID
<=
30
;
CURSOR
c2(dept_no
NUMBER
DEFAULT
10
)
IS
SELECT
DEPARTMENT_NAME, LOCATION_ID
FROM
DEPARTMENTS
WHERE
DEPARTMENT_ID
<=
dept_no;
CURSOR
c3(dept_no
NUMBER
DEFAULT
10
)
IS
SELECT
*
FROM
DEPARTMENTS
WHERE
DEPARTMENTS.DEPARTMENT_ID
<=
dept_no;
BEGIN
OPEN
c1;
LOOP
FETCH
c1
INTO
dept_name, dept_loc;
EXIT
WHEN
c1
%
NOTFOUND;
DBMS_OUTPUT.PUT_LINE(dept_name
||
'
---
'
||
dept_loc);
END
LOOP;
CLOSE
c1;
OPEN
c2;
LOOP
FETCH
c2
INTO
dept_name, dept_loc;
EXIT
WHEN
c2
%
NOTFOUND;
DBMS_OUTPUT.PUT_LINE(dept_name
||
'
---
'
||
dept_loc);
END
LOOP;
CLOSE
c2;
OPEN
c3(dept_no
=>
20
);
LOOP
FETCH
c3
INTO
deptrec;
EXIT
WHEN
c3
%
NOTFOUND;
DBMS_OUTPUT.PUT_LINE(deptrec.DEPARTMENT_ID
||
'
---
'
||
deptrec.DEPARTMENT_NAME
||
'
---
'
||
deptrec.LOCATION_ID);
END
LOOP;
CLOSE
c3;
END
;
2.游标属性
Cursor_name%FOUND 布尔型属性，当最近一次提取游标操作FETCH成功则为 TRUE,否则为FALSE；
Cursor_name%NOTFOUND%FOUND相反；
Cursor_name%ISOPENTRUE；
Cursor_name%ROWCOUNT 数字型属性，返回已从游标中读取的记录数。
例3：给工资低于1200 的员工增加工资50。
DECLARE
v_empno EMPLOYEES.EMPLOYEE_ID
%
TYPE;
v_sal EMPLOYEES.Salary
%
TYPE;
CURSOR
c_cursor
IS
SELECT
EMPLOYEE_ID, Salary
FROM
EMPLOYEES;
BEGIN
OPEN
c_cursor;
LOOP
FETCH
c_cursor
INTO
v_empno, v_sal;
EXIT
WHEN
c_cursor
%
NOTFOUND;
IF
v_sal
<=
1200
THEN
UPDATE
EMPLOYEES
SET
Salary
=
Salary
+
50
WHERE
EMPLOYEE_ID
=
v_empno;
DBMS_OUTPUT.PUT_LINE(
'
编码为
'
||
v_empno
||
'
工资已更新!
'
);
END
IF
;
DBMS_OUTPUT.PUT_LINE(
'
记录数:
'
||
c_cursor
%
ROWCOUNT
);
END
LOOP;
CLOSE
c_cursor;
END
;例4：没有参数且没有返回值的游标。
DECLARE
v_f_name employees.first_name
%
TYPE;
v_j_id employees.job_id
%
TYPE;
CURSOR
c1
--
声明游标,没有参数没有返回值
IS
SELECT
first_name, job_id
FROM
employees
WHERE
department_id
=
20
;
BEGIN
OPEN
c1;
--
打开游标
LOOP
FETCH
c1
INTO
v_f_name, v_j_id;
--
提取游标
IF
c1
%
FOUND
THEN
DBMS_OUTPUT.PUT_LINE(v_f_name
||
'
的岗位是
'
||
v_j_id);
ELSE
DBMS_OUTPUT.PUT_LINE(
'
已经处理完结果集了
'
);
EXIT
;
END
IF
;
END
LOOP;
CLOSE
c1;
--
关闭游标
END
;
例5：有参数且没有返回值的游标。
DECLARE
v_f_name employees.first_name
%
TYPE;
v_h_date employees.hire_date
%
TYPE;
CURSOR
c2(dept_id
NUMBER
, j_id
VARCHAR2
)
--
声明游标,有参数没有返回值
IS
SELECT
first_name, hire_date
FROM
employees
WHERE
department_id
=
dept_id
AND
job_id
=
j_id;
BEGIN
OPEN
c2(
90
,
'
AD_VP
'
);
--
打开游标,传递参数值
LOOP
FETCH
c2
INTO
v_f_name, v_h_date;
--
提取游标
IF
c2
%
FOUND
THEN
DBMS_OUTPUT.PUT_LINE(v_f_name
||
'
的雇佣日期是
'
||
v_h_date);
ELSE
DBMS_OUTPUT.PUT_LINE(
'
已经处理完结果集了
'
);
EXIT
;
END
IF
;
END
LOOP;
CLOSE
c2;
--
关闭游标
END
;
例6：有参数且有返回值的游标。
DECLARE
TYPE emp_record_type
IS
RECORD(
f_name employees.first_name
%
TYPE,
h_date employees.hire_date
%
TYPE);
v_emp_record EMP_RECORD_TYPE;
CURSOR
c3(dept_id
NUMBER
, j_id
VARCHAR2
)
--
声明游标,有参数有返回值
RETURN
EMP_RECORD_TYPE
IS
SELECT
first_name, hire_date
FROM
employees
WHERE
department_id
=
dept_id
AND
job_id
=
j_id;
BEGIN
OPEN
c3(j_id
=>
'
AD_VP
'
, dept_id
=>
90
);
--
打开游标,传递参数值
LOOP
FETCH
c3
INTO
v_emp_record;
--
提取游标
IF
c3
%
FOUND
THEN
DBMS_OUTPUT.PUT_LINE(v_emp_record.f_name
||
'
的雇佣日期是
'
||
v_emp_record.h_date);
ELSE
DBMS_OUTPUT.PUT_LINE(
'
已经处理完结果集了
'
);
EXIT
;
END
IF
;
END
LOOP;
CLOSE
c3;
--
关闭游标
END
;
例7：基于游标定义记录变量。
DECLARE
CURSOR
c4(dept_id
NUMBER
, j_id
VARCHAR2
)
--
声明游标,有参数没有返回值
IS
SELECT
first_name f_name, hire_date
FROM
employees
WHERE
department_id
=
dept_id
AND
job_id
=
j_id;
--
基于游标定义记录变量，比声明记录类型变量要方便，不容易出错
v_emp_record c4
%
ROWTYPE;
BEGIN
OPEN
c4(
90
,
'
AD_VP
'
);
--
打开游标,传递参数值
LOOP
FETCH
c4
INTO
v_emp_record;
--
提取游标
IF
c4
%
FOUND
THEN
DBMS_OUTPUT.PUT_LINE(v_emp_record.f_name
||
'
的雇佣日期是
'
||
v_emp_record.hire_date);
ELSE
DBMS_OUTPUT.PUT_LINE(
'
已经处理完结果集了
'
);
EXIT
;
END
IF
;
END
LOOP;
CLOSE
c4;
--
关闭游标
END
;
3. 游标的FOR循环
语言提供了游标FOR循环语句，自动执行游标的OPEN、FETCH、CLOSE语句和循环语句的功能；当进入循环时，游标FOR循环语句自动打开游标，并提取第一行游标数据，当程序处理完当前所提取的数据而进入下一次循环时，游标FOR循环语句自动提取下一行数据供程序处理，当提取完结果集合中的所有数据行后结束循环，并自动关闭游标。
格式：
FOR
index_variable
IN
cursor_name
[
(value[, value
]
…)] LOOP
--
游标数据处理代码
END
LOOP;
其中：
index_variable为游标FOR 循环语句隐含声明的索引变量，该变量为记录变量，其结构与游标查询语句返回的结构集合的结构相同。在程序中可以通过引用该索引记录变量元素来读取所提取的游标数据，index_variable中各元素的名称与游标查询语句选择列表中所制定的列名相同。如果在游标查询语句的选择列表中存在计算列，则必须为这些计算列指定别名后才能通过游标FOR 循环语句中的索引变量来访问这些列数据。
注：不要在程序中对游标进行人工操作；不要在程序中定义用于控制FOR循环的记录。
例8：
DECLARE
CURSOR
c_sal
IS
SELECT
employee_id, first_name
||
last_name ename, salary
FROM
employees ;
BEGIN
--
隐含打开游标
FOR
v_sal
IN
c_sal LOOP
--
隐含执行一个FETCH语句
DBMS_OUTPUT.PUT_LINE(to_char(v_sal.employee_id)
||
'
---
'
||
v_sal.ename
||
'
---
'
||
to_char(v_sal.salary)) ;
--
隐含监测c_sal%NOTFOUND
END
LOOP;
--
隐含关闭游标
END
;例9：当所声明的游标带有参数时，通过游标FOR 循环语句为游标传递参数。
DECLARE
CURSOR
c_cursor(dept_no
NUMBER
DEFAULT
10
)
IS
SELECT
department_name, location_id
FROM
departments
WHERE
department_id
<=
dept_no;
BEGIN
DBMS_OUTPUT.PUT_LINE(
'
当dept_no参数值为30：
'
);
FOR
c1_rec
IN
c_cursor(
30
) LOOP DBMS_OUTPUT.PUT_LINE(c1_rec.department_name
||
'
---
'
||
c1_rec.location_id);
END
LOOP;
DBMS_OUTPUT.PUT_LINE(CHR(
10
)
||
'
使用默认的dept_no参数值10：
'
);
FOR
c1_rec
IN
c_cursor LOOP DBMS_OUTPUT.PUT_LINE(c1_rec.department_name
||
'
---
'
||
c1_rec.location_id);
END
LOOP;
END
;
例10：PL/SQL还允许在游标FOR循环语句中使用子查询来实现游标的功能。
BEGIN
FOR
c1_rec
IN
(
SELECT
department_name, location_id
FROM
departments) LOOP DBMS_OUTPUT.PUT_LINE(c1_rec.department_name
||
'
---
'
||
c1_rec.location_id);
END
LOOP;
END
;
4.1.2 处理隐式游标
显式游标主要是用于对查询语句的处理，尤其是在查询结果为多条记录的情况下；而对于非查询语句，如修改、删除操作，则由ORACLE 系统自动地为这些操作设置游标并创建其工作区，这些由系统隐含创建的游标称为隐式游标，隐式游标的名字为SQL，这是由ORACLE 系统定义的。对于隐式游标的操作，如定义、打开、取值及关闭操作，都由ORACLE 系统自动地完成，无需用户进行处理。用户只能通过隐式游标的相关属性，来完成相应的操作。在隐式游标的工作区中，所存放的数据是与用户自定义的显示游标无关的、最新处理的一条SQL 语句所包含的数据。
格式调用为： SQL%
注：INSERT, UPDATE, DELETE, SELECT 语句中不必明确定义游标。
隐式游标属性
属性 | 值 | SELECT | INSERT | UPDATE | DELETE |
SQL%ISOPEN | FALSE | FALSE | FALSE | FALSE | |
SQL%FOUND | TRUE | 有结果 | 成功 | 成功 | |
SQL%FOUND | FALSE | 没结果 | 失败 | 失败 | |
SQL%NOTFUOND | TRUE | 没结果 | 失败 | 失败 | |
SQL%NOTFOUND | FALSE | 有结果 | 成功 | 失败 | |
SQL%ROWCOUNT | 返回行数，只为1 | 插入的行数 | 修改的行数 | 删除的行数 |
例11: 删除EMPLOYEES表中某部门的所有员工，如果该部门中已没有员工，则在DEPARTMENT表中删除该部门。
DECLARE
V_deptno department_id
%
TYPE :
=&
p_deptno;
BEGIN
DELETE
FROM
employees
WHERE
department_id
=
v_deptno;
IF
SQL
%
NOTFOUND
THEN
DELETE
FROM
departments
WHERE
department_id
=
v_deptno;
END
IF
;
END
;
例12: 通过隐式游标SQL的%ROWCOUNT属性来了解修改了多少行。
DECLARE
v_rows
NUMBER
;
BEGIN
--
更新数据
UPDATE
employees
SET
salary
=
30000
WHERE
department_id
=
90
AND
job_id
=
'
AD_VP
'
;
--
获取默认游标的属性值
v_rows :
=
SQL
%
ROWCOUNT
;
DBMS_OUTPUT.PUT_LINE(
'
更新了
'
||
v_rows
||
'
个雇员的工资
'
);
--
回退更新，以便使数据库的数据保持原样
ROLLBACK
;
END
;
4.1.3 关于 NO_DATA_FOUND 和 %NOTFOUND的区别
SELECT … INTO 语句触发 NO_DATA_FOUND；
当一个显式游标的WHERE子句未找到时触发%NOTFOUND；
当UPDATE或DELETE 语句的WHERE 子句未找到时触发 SQL%NOTFOUND；在提取循环中要用 %NOTFOUND 或%FOUND 来确定循环的退出条件，不要用 NO_DATA_FOUND.4.1.4 使用游标更新和删除数据
游标修改和删除操作是指在游标定位下，修改或删除表中指定的数据行。这时，要求游标查询语句中必须使用FOR UPDATE选项，以便在打开游标时锁定游标结果集合在表中对应数据行的所有列和部分列。
为了对正在处理(查询)的行不被另外的用户改动，ORACLE 提供一个 FOR UPDATE 子句来对所选择的行进行锁住。该需求迫使ORACLE锁定游标结果集合的行，可以防止其他事务处理更新或删除相同的行，直到您的事务处理提交或回退为止。
语法：
SELECT
column_list
FROM
table_list
FOR
UPDATE
[
OF column[, column
]
…]
[
NOWAIT
]SELECT FOR UPDATE操作一直等待到其它的会话释放这些锁后才继续自己的操作，对于这种情况，当加上NOWAIT子句时，如果这些行真的被另一个会话锁定，则OPEN立即返回并给出：
ORA-0054 ：resource busy and acquire with nowait specified.如果使用 FOR UPDATE 声明游标，则可在DELETE和UPDATE 语句中使用
WHERE CURRENT OF cursor_name子句，修改或删除游标结果集合当前行对应的数据库表中的数据行。
例13：从EMPLOYEES表中查询某部门的员工情况，将其工资最低定为 1500；
DECLARE
V_deptno employees.department_id
%
TYPE :
=&
p_deptno;
CURSOR
emp_cursor
IS
SELECT
employees.employee_id, employees.salary
FROM
employees
WHERE
employees.department_id
=
v_deptno
FOR
UPDATE
NOWAIT;
BEGIN
FOR
emp_record
IN
emp_cursor LOOP
IF
emp_record.salary
<
1500
THEN
UPDATE
employees
SET
salary
=
1500
WHERE
CURRENT
OF
emp_cursor;
END
IF
;
END
LOOP;
--
COMMIT;
END
;
例14：将EMPLOYEES表中部门编码为90、岗位为AD_VP的雇员的工资都更新为2000元；
DECLARE
v_emp_record employees
%
ROWTYPE;
CURSOR
c1
IS
SELECT
*
FROM
employees
FOR
UPDATE
;
BEGIN
OPEN
c1;
LOOP
FETCH
c1
INTO
v_emp_record;
EXIT
WHEN
c1
%
NOTFOUND;
IF
v_emp_record.department_id
=
90
AND
v_emp_record.job_id
=
'
AD_VP
'
THEN
UPDATE
employees
SET
salary
=
20000
WHERE
CURRENT
OF
c1;
--
更新当前游标行对应的数据行
END
IF
;
END
LOOP;
COMMIT
;
--
提交已经修改的数据
CLOSE
c1;
END
;4.2 游标变量
与游标一样，游标变量也是一个指向多行查询结果集合中当前数据行的指针。但与游标不同的是，游标变量是动态的，而游标是静态的。游标只能与指定的查询相连，即固定指向一个查询的内存处理区域，而游标变量则可与不同的查询语句相连，它可以指向不同查询语句的内存处理区域（但不能同时指向多个内存处理区域，在某一时刻只能与一个查询语句相连），只要这些查询语句的返回类型兼容即可。
4.2.1 声明游标变量
游标变量为一个指针，它属于参照类型，所以在声明游标变量类型之前必须先定义游标变量类型。在PL/SQL中，可以在块、子程序和包的声明区域内定义游标变量类型。
语法格式为：
TYPE ref_type_name
IS
REF
CURSOR
[
RETURN return_type
]
;
其中：ref_type_name为新定义的游标变量类型名称；
return_type 为游标变量的返回值类型，它必须为记录变量。
在定义游标变量类型时，可以采用强类型定义和弱类型定义两种。强类型定义必须指定游标变量的返回值类型，而弱类型定义则不说明返回值类型。
声明一个游标变量的两个步骤：
步骤一：定义一个REF CURSOU数据类型，如：
TYPE ref_cursor_type IS REF CURSOR;
步骤二：声明一个该数据类型的游标变量，如：
cv_ref REF_CURSOR_TYPE;
例：创建两个强类型定义游标变量和一个弱类型游标变量：
DECLARE
TYPE deptrecord
IS
RECORD(
Deptno departments.department_id
%
TYPE,
Dname departments.department_name
%
TYPE,
Loc departments.location_id
%
TYPE
);
TYPE deptcurtype
IS
REF
CURSOR
RETURN
departments
%
ROWTYPE;
TYPE deptcurtyp1
IS
REF
CURSOR
RETURN
deptrecord;
TYPE curtype
IS
REF
CURSOR
;
Dept_c1 deptcurtype;
Dept_c2 deptcurtyp1;
Cv curtype;
4.2.2 游标变量操作
与游标一样，游标变量操作也包括打开、提取和关闭三个步骤。
1． 打开游标变量
打开游标变量时使用的是OPEN…FOR 语句。格式为：
OPEN
{cursor_variable_name
|
:host_cursor_variable_name}
FOR
select_statement;其中：cursor_variable_name为游标变量，host_cursor_variable_name为PL/SQL主机环境（如OCI: ORACLE Call Interface，Pro*c 程序等）中声明的游标变量。
OPEN…FOR 语句可以在关闭当前的游标变量之前重新打开游标变量，而不会导致CURSOR_ALREAD_OPEN异常错误。新打开游标变量时，前一个查询的内存处理区将被释放。
2． 提取游标变量数据
使用FETCH语句提取游标变量结果集合中的数据。格式为：
FETCH
{cursor_variable_name
|
:host_cursor_variable_name}
INTO
{variable
[
, variable
]
…
|
record_variable};其中：cursor_variable_name和host_cursor_variable_name分别为游标变量和宿主游标变量名称；variable和record_variable分别为普通变量和记录变量名称。
3． 关闭游标变量
CLOSE语句关闭游标变量，格式为：
CLOSE
{cursor_variable_name
|
:host_cursor_variable_name}
其中：cursor_variable_name和host_cursor_variable_name分别为游标变量和宿主游标变量名称，如果应用程序试图关闭一个未打开的游标变量，则将导致INVALID_CURSOR异常错误。
例15：强类型参照游标变量类型
DECLARE
TYPE emp_job_rec
IS
RECORD(
Employee_id employees.employee_id
%
TYPE,
Employee_name employees.first_name
%
TYPE,
Job_title employees.job_id
%
TYPE
);
TYPE emp_job_refcur_type
IS
REF
CURSOR
RETURN
emp_job_rec;
Emp_refcur emp_job_refcur_type ;
Emp_job emp_job_rec;
BEGIN
OPEN
emp_refcur
FOR
SELECT
employees.employee_id, employees.first_name
||
employees.last_name, employees.job_id
FROM
employees
ORDER
BY
employees.department_id;
FETCH
emp_refcur
INTO
emp_job;
WHILE
emp_refcur
%
FOUND LOOP
DBMS_OUTPUT.PUT_LINE(emp_job.employee_id
||
'
:
'
||
emp_job.employee_name
||
'
is a
'
||
emp_job.job_title);
FETCH
emp_refcur
INTO
emp_job;
END
LOOP;
END
;
例16：弱类型参照游标变量类型
PROMPT
PROMPT
'
What table would you like to see?
'
ACCEPT tab PROMPT
'
(D)epartment, or (E)mployees:
'
DECLARE
Type refcur_t
IS
REF
CURSOR
;
Refcur refcur_t;
TYPE sample_rec_type
IS
RECORD (
Id
number
,
Description
VARCHAR2
(
30
)
);
sample sample_rec_type;
selection
varchar2
(
1
) :
=
UPPER
(SUBSTR (
'
&tab
'
,
1
,
1
));
BEGIN
IF
selection
=
'
D
'
THEN
OPEN
refcur
FOR
SELECT
departments.department_id, departments.department_name
FROM
departments;
DBMS_OUTPUT.PUT_LINE(
'
Department data
'
);
ELSIF selection
=
'
E
'
THEN
OPEN
refcur
FOR
SELECT
employees.employee_id, employees.first_name
||
'
is a
'
||
employees.job_id
FROM
employees;
DBMS_OUTPUT.PUT_LINE(
'
Employee data
'
);
ELSE
DBMS_OUTPUT.PUT_LINE(
'
Please enter
''
D
''
or
''
E
'''
);
RETURN
;
END
IF
;
DBMS_OUTPUT.PUT_LINE(
'
----------------------
'
);
FETCH
refcur
INTO
sample;
WHILE
refcur
%
FOUND LOOP
DBMS_OUTPUT.PUT_LINE(sample.id
||
'
:
'
||
sample.description);
FETCH
refcur
INTO
sample;
END
LOOP;
CLOSE
refcur;
END
;
例17：使用游标变量（没有RETURN子句）
DECLARE
--
定义一个游标数据类型
TYPE emp_cursor_type
IS
REF
CURSOR
;
--
声明一个游标变量
c1 EMP_CURSOR_TYPE;
--
声明两个记录变量
v_emp_record employees
%
ROWTYPE;
v_reg_record regions
%
ROWTYPE;
BEGIN
OPEN
c1
FOR
SELECT
*
FROM
employees
WHERE
department_id
=
20
;
LOOP
FETCH
c1
INTO
v_emp_record;
EXIT
WHEN
c1
%
NOTFOUND;
DBMS_OUTPUT.PUT_LINE(v_emp_record.first_name
||
'
的雇佣日期是
'
||
v_emp_record.hire_date);
END
LOOP;
--
将同一个游标变量对应到另一个SELECT语句
OPEN
c1
FOR
SELECT
*
FROM
regions
WHERE
region_id
IN
（
1
，
2
）;
LOOP
FETCH
c1
INTO
v_reg_record;
EXIT
WHEN
c1
%
NOTFOUND;
DBMS_OUTPUT.PUT_LINE(v_reg_record.region_id
||
'
表示
'
||
v_reg_record.region_name);
END
LOOP;
CLOSE
c1;
END
;
例18：使用游标变量（有RETURN子句）
DECLARE
--
定义一个与employees表中的这几个列相同的记录数据类型
TYPE emp_record_type
IS
RECORD(
f_name employees.first_name
%
TYPE,
h_date employees.hire_date
%
TYPE,
j_id employees.job_id
%
TYPE);
--
声明一个该记录数据类型的记录变量
v_emp_record EMP_RECORD_TYPE;
--
定义一个游标数据类型
TYPE emp_cursor_type
IS
REF
CURSOR
RETURN
EMP_RECORD_TYPE;
--
声明一个游标变量
c1 EMP_CURSOR_TYPE;
BEGIN
OPEN
c1
FOR
SELECT
first_name, hire_date, job_id
FROM
employees
WHERE
department_id
=
20
;
LOOP
FETCH
c1
INTO
v_emp_record;
EXIT
WHEN
c1
%
NOTFOUND;
DBMS_OUTPUT.PUT_LINE(
'
雇员名称：
'
||
v_emp_record.f_name
||
'
雇佣日期：
'
||
v_emp_record.h_date
||
'
岗位：
'
||
v_emp_record.j_id);
END
LOOP;
CLOSE
c1;
END
;
