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%ISOPEN?????布尔型属性，当游标已打开时返回?TRUE；

?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循环

????PL/SQL语言提供了游标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;

?

??2011??EricHu

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong?