ORACLE PL/SQL编程--把游标说透

于 2013-12-03 14:53:00 发布
阅读量58 收藏
点赞数
文章标签： 数据库 嵌入式



本篇主要内容如下：

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会在内存中为其分配上下文区（ContextArea），即缓冲区。游标是指向该区的一个指针，或是命名一个工作区（WorkArea），或是一种结构化数据类型。它为应用等量齐观提供了一种对具有多行数据查询结果集中的每一行数据分别进行单独处理的方法，是设计嵌入式SQL语句的应用程序的常用编程方式。

在每个用户会话中，可以同时打开多个游标，其数量由数据库初始化参数文件中的OPEN_CURSORS参数定义。

对于不同的SQL语句，游标的使用情况不同：

SQL语句

游标

非查询语句

隐式的

结果是单行的查询语句

隐式的或显示的

结果是多行的查询语句

显示的

4.1.1处理显式游标

1.显式游标处理

显式游标处理需四个PL/SQL步骤:

l定义/声明游标：就是定义一个游标名，以及与其相对应的SELECT语句。

格式：

CURSOR cursor_name [ (parameter[,parameter ] …)]
 [ RETURNdatatype ]
IS
select_statement;

游标参数只能为输入参数，其格式为：

parameter_name [ IN ] datatype [ {:=|DEFAULT}expression ]

在指定数据类型时，不能使用长度约束。如NUMBER(4),CHAR(10)等都是错误的。

[RETURNdatatype]是可选的，表示游标返回数据的数据。如果选择，则应该严格与select_statement中的选择列表在次序和数据类型上匹配。一般是记录数据类型或带“%ROWTYPE”的数据。

l打开游标：就是执行游标所对应的SELECT语句，将其查询结果放入工作区，并且指针指向工作区的首部，标识游标结果集合。如果游标查询语句中带有FORUPDATE选项，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_enameEMPLOYEES.first_name % TYPE;
v_salEMPLOYEES.Salary % TYPE;
 BEGIN
OPEN c_cursor;
 FETCH c_cursor INTO v_ename,v_sal;
 WHILE c_cursor % FOUNDLOOP
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
DeptRecDEPARTMENTS % ROWTYPE;
Dept_nameDEPARTMENTS.DEPARTMENT_NAME % TYPE;
Dept_locDEPARTMENTS.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_empnoEMPLOYEES.EMPLOYEE_ID % TYPE;
v_salEMPLOYEES.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_nameemployees.first_name % TYPE;
v_j_idemployees.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_nameemployees.first_name % TYPE;
v_h_dateemployees.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
TYPEemp_record_type IS RECORD(
f_nameemployees.first_name % TYPE,
h_dateemployees.hire_date % TYPE);
v_emp_recordEMP_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_namef_name,hire_date FROM employees
 WHERE department_id = dept_id AND job_id = j_id;
 -- 基于游标定义记录变量，比声明记录类型变量要方便，不容易出错
v_emp_recordc4 % 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_nameename,salary
 FROM employees;
 BEGIN
-- 隐含打开游标
FOR v_sal IN c_salLOOP
 -- 隐含执行一个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 )LOOPDBMS_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_cursorLOOPDBMS_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)LOOPDBMS_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_deptnodepartment_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使用游标更新和删除数据

游标修改和删除操作是指在游标定位下，修改或删除表中指定的数据行。这时，要求游标查询语句中必须使用FORUPDATE选项，以便在打开游标时锁定游标结果集合在表中对应数据行的所有列和部分列。

为了对正在处理(查询)的行不被另外的用户改动，ORACLE提供一个FORUPDATE子句来对所选择的行进行锁住。该需求迫使ORACLE锁定游标结果集合的行，可以防止其他事务处理更新或删除相同的行，直到您的事务处理提交或回退为止。

语法：

SELECT column_list FROM table_list FOR UPDATE [ OFcolumn[,column ] …] [ NOWAIT ]

如果另一个会话已对活动集中的行加了锁，那么SELECTFORUPDATE操作一直等待到其它的会话释放这些锁后才继续自己的操作，对于这种情况，当加上NOWAIT子句时，如果这些行真的被另一个会话锁定，则OPEN立即返回并给出：

ORA-0054：resourcebusyandacquirewithnowaitspecified.

如果使用FORUPDATE声明游标，则可在DELETE和UPDATE语句中使用

WHERECURRENTOFcursor_name子句，修改或删除游标结果集合当前行对应的数据库表中的数据行。

例13：从EMPLOYEES表中查询某部门的员工情况，将其工资最低定为1500；

复制代码
DECLARE
V_deptnoemployees.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_cursorLOOP
 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_recordemployees % 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中，可以在块、子程序和包的声明区域内定义游标变量类型。

语法格式为：

TYPEref_type_name IS REF CURSOR
[ RETURNreturn_type ] ;

其中：ref_type_name为新定义的游标变量类型名称；

return_type为游标变量的返回值类型，它必须为记录变量。

在定义游标变量类型时，可以采用强类型定义和弱类型定义两种。强类型定义必须指定游标变量的返回值类型，而弱类型定义则不说明返回值类型。

声明一个游标变量的两个步骤：

步骤一：定义一个REFCURSOU数据类型，如：

TYPEref_cursor_typeISREFCURSOR;

步骤二：声明一个该数据类型的游标变量，如：

cv_refREF_CURSOR_TYPE;

例：创建两个强类型定义游标变量和一个弱类型游标变量：

复制代码
DECLARE
TYPEdeptrecord IS RECORD(
Deptnodepartments.department_id % TYPE,
Dnamedepartments.department_name % TYPE,
Locdepartments.location_id % TYPE
);
TYPEdeptcurtype IS REF CURSOR RETURN departments % ROWTYPE;
TYPEdeptcurtyp1 IS REF CURSOR RETURN deptrecord;
TYPEcurtype IS REF CURSOR ;
Dept_c1deptcurtype;
Dept_c2deptcurtyp1;
Cvcurtype;
复制代码

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:ORACLECallInterface，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
TYPEemp_job_rec IS RECORD(
Employee_idemployees.employee_id % TYPE,
Employee_nameemployees.first_name % TYPE,
Job_titleemployees.job_id % TYPE
);
TYPEemp_job_refcur_type IS REF CURSOR RETURN emp_job_rec;
Emp_refcuremp_job_refcur_type;
Emp_jobemp_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 % FOUNDLOOP
DBMS_OUTPUT.PUT_LINE(emp_job.employee_id || ' : ' || emp_job.employee_name || ' isa ' || emp_job.job_title);
 FETCH emp_refcur INTO emp_job;
 END LOOP;
 END ;
复制代码

例16：弱类型参照游标变量类型

复制代码
PROMPT
PROMPT ' Whattablewouldyouliketosee? '
ACCEPTtabPROMPT ' (D)epartment,or(E)mployees: '

DECLARE
Typerefcur_t IS REF CURSOR ;
Refcurrefcur_t;
TYPEsample_rec_type IS RECORD(
Id number ,
Description VARCHAR2 ( 30 )
);
samplesample_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( ' Departmentdata ' );
ELSIFselection = ' E ' THEN
OPEN refcur FOR
SELECT employees.employee_id,employees.first_name || ' isa ' || employees.job_id FROM employees;
DBMS_OUTPUT.PUT_LINE( ' Employeedata ' );
 ELSE
DBMS_OUTPUT.PUT_LINE( ' Pleaseenter '' D '' or '' E ''' );
 RETURN ;
 END IF ;
DBMS_OUTPUT.PUT_LINE( ' ---------------------- ' );
 FETCH refcur INTO sample;
 WHILE refcur % FOUNDLOOP
DBMS_OUTPUT.PUT_LINE(sample.id || ' : ' || sample.description);
 FETCH refcur INTO sample;
 END LOOP;
 CLOSE refcur;
 END ;
复制代码

例17：使用游标变量（没有RETURN子句）

复制代码
DECLARE
-- 定义一个游标数据类型
TYPEemp_cursor_type IS REF CURSOR ;
 -- 声明一个游标变量
c1EMP_CURSOR_TYPE;
 -- 声明两个记录变量
v_emp_recordemployees % ROWTYPE;
v_reg_recordregions % 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表中的这几个列相同的记录数据类型
TYPEemp_record_type IS RECORD(
f_nameemployees.first_name % TYPE,
h_dateemployees.hire_date % TYPE,
j_idemployees.job_id % TYPE);
 -- 声明一个该记录数据类型的记录变量
v_emp_recordEMP_RECORD_TYPE;
 -- 定义一个游标数据类型
TYPEemp_cursor_type IS REF CURSOR
RETURN EMP_RECORD_TYPE;
 -- 声明一个游标变量
c1EMP_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 ;
iteye_4639
关注
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值