PLSQL之四-游标

游标的使用

    在 PL/SQL 程序中,对于处理多行记录的事务经常使用游标来实现。

4.1 游标概念

  PL/SQL块中执行SELECTINSERTDELETEUPDATE语句时,ORACLE会在内存中为其分配上下文区(Context Area),即缓冲区。游标是指向该区的一个指针,或是命名一个工作区(Work Area),或是一种结构化数据类型。它为应用等量齐观提供了一种对具有多行数据查询结果集中的每一行数据分别进行单独处理的方法,是设计嵌入式SQL语句的应用程序的常用编程方式。

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

对于不同的SQL语句,游标的使用情况不同:

SQL语句

游标

非查询语句

隐式的

结果是单行的查询语句

隐式的或显示的

结果是多行的查询语句

显示的

 

4.1.1 处理显式游标

 

1. 显式游标处理

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

定义/声明游标:就是定义一个游标名,以及与其相对应的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”的数据。

 

打开游标:就是执行游标所对应的SELECT 语句,将其查询结果放入工作区,并且指针指向工作区的首部,标识游标结果集合。如果游标查询语句中带有FOR UPDATE选项,OPEN 语句还将锁定数据库表中游标结果集合对应的数据行。

格式:

 

OPEN  cursor_name [ ([parameter => ]  value [ , [parameter => ]  value]…)];

 

在向游标传递参数时,可以使用与函数参数相同的传值方法,即位置表示法和名称表示法。PL/SQL 程序不能用OPEN 语句重复打开一个游标。

 

提取游标数据:就是检索结果集合中的数据行,放入指定的输出变量中。 

格式:

 

FETCH  cursor_name  INTO  {variable_list  |  record_variable };

 

 

执行FETCH语句时,每次返回一个数据行,然后自动将游标移动指向下一个数据行。当检索到最后一行数据时,如果再次执行FETCH语句,将操作失败,并将游标属性%NOTFOUND置为TRUE。所以每次执行完FETCH语句后,检查游标属性%NOTFOUND就可以判断FETCH语句是否执行成功并返回一个数据行,以便确定是否给对应的变量赋了值。

对该记录进行处理;

继续处理,直到活动集合中没有记录;

关闭游标:当提取和处理完游标结果集合数据后,应及时关闭游标,以释放该游标所占用的系统资源,并使该游标的工作区变成无效,不能再使用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循环语句,自动执行游标的OPENFETCHCLOSE语句和循环语句的功能;当进入循环时,游标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 ;
复制代码

 

10PL/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

UPDATEDELETE 语句的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 声明游标,则可在DELETEUPDATE 语句中使用

WHERE CURRENT OF cursor_name子句,修改或删除游标结果集合当前行对应的数据库表中的数据行。

 

13EMPLOYEES表中查询某部门的员工情况,将其工资最低定为 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
复制代码

 

14EMPLOYEES表中部门编码为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_namePL/SQL主机环境(如OCI: ORACLE Call InterfacePro*c 程序等)中声明的游标变量。

OPENFOR 语句可以在关闭当前的游标变量之前重新打开游标变量,而不会导致CURSOR_ALREAD_OPEN异常错误。新打开游标变量时,前一个查询的内存处理区将被释放。

 

2. 提取游标变量数据

使用FETCH语句提取游标变量结果集合中的数据。格式为:

 

 

FETCH  {cursor_variable_name  |  :host_cursor_variable_name}
INTO  {variable  [ , variable ] |  record_variable};

 

其中:cursor_variable_namehost_cursor_variable_name分别为游标变量和宿主游标变量名称;variablerecord_variable分别为普通变量和记录变量名称。

 

3. 关闭游标变量

CLOSE语句关闭游标变量,格式为:

 

 

CLOSE  {cursor_variable_name  |  :host_cursor_variable_name}

 

其中:cursor_variable_namehost_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 ;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值