PL/SQL学习(三)游标

时间:2024-11-16 11:03:26
两种类型:
    隐式:
        执行INSERT、UPDATE、DELETE 或者只返回一条结果的SELECT语句时默认创建。
    显式:
         执行返回多条结果的SELECT语句时才能创建显式游标,创建时游标可以存储多行记录,但是同一个时间点上只能对一条记录进行处理。

隐式游标
隐式游标属性:
属性
   返回类型

例子

%FOUND

至少一条记录受影响(或者返回)时返回TRUE

SQL%FOUND

没有记录受影响(或者返回)时返回FALSE

%NOTFOUND

没有记录受影响(或者返回)时返回TRUE

SQL%NOTFOUND

至少一条记录受影响(或者返回)时返回FALSE

%ROWCOUNT

返回受影响的记录条数

SQL%ROWCOUNT

例子:

DECLARE  var_rows number(5);
BEGIN
  UPDATE employee 
  SET salary = salary + 1000;
  IF SQL%NOTFOUND THEN
    dbms_output.put_line('None of the salaries where updated');
  ELSIF SQL%FOUND THEN
    var_rows := SQL%ROWCOUNT;
    dbms_output.put_line('Salaries for ' || var_rows || 'employees are updated');
  END IF; 
END; 

显式游标
创建格式:
CURSOR cursor_name IS select_statement;
使用:
  • 在声明部分声明显式游标.
  • 在执行部分打开游标.
  • 将从游标里获取到的数据放到PL/SQL变量或者记录里.
  • 关闭游标.

1) 声明游标:

   DECLARE
   CURSOR cursor_name IS 
   返回多条记录的SELECT语句; 

2) 打开游标:

    OPEN cursor_name;
3) 取数据放到PL/SQL变量或者记录里:

FETCH cursor_name INTO record_name;

    FETCH cursor_name INTO variable_list;  
4) 关闭游标:
    CLOSE cursor_name;
5)注意:  
    当取数据(数据库里一行记录)存到记录里面时,记录和游标的数据结构必须一致。
    当取数据(数据库里一行记录)存到多个变量里时,变量的顺序和游标列的顺序一致。
    游标打开后,第一行被指定为当前行,每当数据被取到变量或者记录里,游标指向下一行。

     试图打开一个在前面操作中没有关闭的游标,程序会报错。

当游标移到最后一行记录的后面,再取数据时,程序会报错。

例子:
1> DECLARE 
2>    emp_rec emp_tbl%rowtype;
3>    CURSOR emp_cur IS 
4>    SELECT *
5>    FROM emp_tbl
6>    WHERE salary > 10; 
7> BEGIN 
8>    OPEN emp_cur; 
9>    FETCH emp_cur INTO emp_rec; 
10>      dbms_output.put_line (emp_rec.first_name || '  ' || emp_rec.last_name); 
11>   CLOSE emp_cur; 
12> END; 

显式游标属性:

属性

返回值

例子

%FOUND

至少获取一条数据时返回TRUE

Cursor_name%FOUND

没有获取到数据时返回FALSE

%NOTFOUND

没有获取到数据时返回TRUE Cursor_name%NOTFOUND
至少获取一条数据时返回FALSE

%ROWCOUNT

获取到的数据条数

Cursor_name%ROWCOUNT

没有取到数据时,报错

%ISOPEN

游标打开时返回TRUE

Cursor_name%ISNAME

游标关闭时返回FALSE

使用简单循环:

1> DECLARE 
2>   CURSOR emp_cur IS 
3>   SELECT first_name, last_name, salary FROM emp_tbl; 
4>   emp_rec emp_cur%rowtype; 
5> BEGIN 
6>   IF NOT emp_cur%ISOPEN THEN 
7>      OPEN emp_cur; 
8>   END IF; 
9>   LOOP 
10>     FETCH emp_cur INTO emp_rec; 
11>     EXIT WHEN emp_cur%NOTFOUND; 
12>     dbms_output.put_line(emp_cur.first_name || ' ' ||emp_cur.last_name 
13>     || ' ' ||emp_cur.salary); 
14>  END LOOP;
15>  END; 
16>  / 

使用While循环:

9>   FETCH sales_cur INTO sales_rec;  
10>  WHILE sales_cur%FOUND THEN  
11>  LOOP 
12>    dbms_output.put_line(emp_cur.first_name || ' ' ||emp_cur.last_name 
13>    || ' ' ||emp_cur.salary); 
15>    FETCH sales_cur INTO sales_rec; 
16>  END LOOP; 

使用FOR循环:

1> DECLARE 
2>  CURSOR emp_cur IS 
3>  SELECT first_name, last_name, salary FROM emp_tbl; 
4>  emp_rec emp_cur%rowtype; 
5> BEGIN 
6>  FOR emp_rec in sales_cur 
7>  LOOP  
8>  dbms_output.put_line(emp_cur.first_name || ' ' ||emp_cur.last_name 
9>    || ' ' ||emp_cur.salary);  
10> END LOOP; 
11>END;
12> /

带参数游标

格式:CURSOR cursor_name(parameter_name1 type1,parameter_name2 datetype type2..) IS select_statement;
例子:
1)定义
CURSOR c_emp(no IN emp.empno%TYPE) --或者(no NUMBER)
IS
SELECT * FROM emp
WHERE
empno = no; 2)使用
OPEN c_emp('no1')
FOR r_emp IN c_emp('no1') LOOP...

使用FOR UPDATE 和 WHERE CURRENT的游标

以下内容摘自《Oracle PL/SQL by Example》
使用FOR UPDATE 和 WHERE CURRENT的游标:
FOR UPDATE 能锁定希望更新的行,commit或者rollback 后才会释放锁
没有commit或者rollback时可以在游标中使用WHERE CURRENT OF 检索最新的数据。
 使用:
    在游标定义结尾处加上
    FOR UPDATE [OF item_name]
        
例子:
 1)
        DECLARE
          CURSOR c_course IS
            SELECT course_no,cost
            FROM course FOR UPDATE [OF cost];
        BEGIN
           FOR r_course IN c_course
           LOOP
             IF r_course.cost < 2500
             THEN
               UPDATE course
               SET cost = r_course.cost + 10
               WHERE course_no = r_course.course_no;
             END IF;
            END LOOP;
          END;
          
2) 使用WHERE CURRENT OF子句,可以不用在UPDATE语句中添加对应的WHERE条件
        DECLARE
          CURSOR c_course IS
            SELECT course_no,cost
            FROM course
            WHERE cost < 2500
            FOR UPDATE [OF cost];
        BEGIN
           FOR r_course IN c_course
           LOOP
             UPDATE course
               SET cost = r_course.cost + 10
             WHERE CURRENT OF c_course;
            END LOOP;
          END;