Oracle游标-提取记录、游标循环

梦里梦外; 2022-04-04 03:10 494阅读 0赞

# Oracle游标-提取记录、游标循环 #

2015年06月07日 09:54:34 [zzxiaozhi][] 阅读数：14219

1. 两种提取数据方式：

FETCH 游标名 INTO 变量名1\[，变量名2...\];

FETCH 游标名 INTO 记录变量;

第一种格式中的变量名是用来从游标中接收数据的变量，需要事先定义。变量的个数和类型应与SELECT语句中的字段变量的个数和类型一致。   
第二种格式一次将一行数据取到记录变量中，需要使用%ROWTYPE事先定义记录变量，这种形式使用起来比较方便，不必分别定义和使用多个变量。   
定义记录变量的方法如下：   
变量名 表名|游标名%ROWTYPE；   
其中的表必须存在，游标名也必须先定义。

第一种：变量名

1.  `SET SERVEROUTPUT ON`
2.  `DECLARE`
3.  `v_ename VARCHAR2(10);`
4.  `v_job VARCHAR2(10);`
5.  `CURSOR emp_cursor IS`
6.  `SELECT ename,job FROM emp WHERE empno=7788;`
7.  `BEGIN`
8.  `OPEN emp_cursor;`
9.  `FETCH emp_cursor INTO v_ename,v_job;`
10. `DBMS_OUTPUT.PUT_LINE(v_ename||','||v_job);`
11. `CLOSE emp_cursor;`
12. `END;`

第二种：记录变量（说明：实例中使用记录变量来接收数据，记录变量由游标变量定义，需要出现在游标定义之后。 ）

1.1例子：

1.  `SET SERVEROUTPUT ON`
2.  `DECLARE`
3.  `CURSOR emp_cursor IS SELECT ename,job,sal FROM emp WHERE empno=7788;`
4.  `emp_record emp_cursor%ROWTYPE;`
5.  `BEGIN`
6.  `OPEN emp_cursor;`
7.  `FETCH emp_cursor INTO emp_record;`
8.  `DBMS_OUTPUT.PUT_LINE(emp_record.ename||','|| emp_record.job||','|| emp_record.sal);`
9.  `CLOSE emp_cursor;`
10. `END;`

1.2例子

1. `--显示工资最高的前3名雇员的名称和工资。`
2. `SET SERVEROUTPUT ON`
3. ` DECLARE`
4. ` V_ename VARCHAR2(10);`
5. ` V_sal NUMBER(5);`
6. ` CURSOR emp_cursor IS  SELECT ename,sal FROM emp ORDER BY sal DESC;`
7. ` BEGIN`
8. ` OPEN emp_cursor;`
9. ` FOR I IN 1..3 LOOP`
10. `   FETCH emp_cursor INTO v_ename,v_sal;`
11. ` DBMS_OUTPUT.PUT_LINE(v_ename||','||v_sal);`
12. `  END LOOP;`
13. ` CLOSE emp_cursor;`
14. ` END;`

2.游标循环

1.  `--2.1 使用特殊的FOR循环形式显示全部雇员的编号和名称。`
2.  `SET SERVEROUTPUT ON`
3.  `DECLARE`
4.  `CURSOR emp_cursor IS`
5.  `SELECT empno, ename FROM emp;`
6.  `BEGIN`
7.  `FOR Emp_record IN emp_cursor LOOP`
8.  `DBMS_OUTPUT.PUT_LINE(Emp_record.empno|| Emp_record.ename);`
9.  `END LOOP;`
10. `END;`

1.  `--2.2 另一种形式的游标循环`
2.  `SET SERVEROUTPUT ON`
3.  `BEGIN`
4.  `FOR re IN (SELECT ename FROM EMP) LOOP`
5.  `DBMS_OUTPUT.PUT_LINE(re.ename)`
6.  `END LOOP;`
7.  `END;`

3. 显式游标属性

游标定义以后使用它的一些属性来进行结构控制是一种更为灵活的方法。显式游标的属性如下所示。

1.  `游标的属性 返回值类型 意 义`
2.  `%ROWCOUNT 整型 获得FETCH语句返回的数据行数`
3.  `%FOUND 布尔型 最近的FETCH语句返回一行数据则为真，否则为假`
4.  `%NOTFOUND 布尔型 与%FOUND属性返回值相反`
5.  `%ISOPEN 布尔型 游标已经打开时值为真，否则为假`

可按照以下形式取得游标的属性：   
游标名%属性   
要判断游标emp\_cursor是否处于打开状态，可以使用属性emp\_cursor%ISOPEN。如果游标已经打开，则返回值为“真”，否则为“假”。具体可参照以下的训练。

1.  `SET SERVEROUTPUT ON`
2.  `DECLARE`
3.  `V_ename VARCHAR2(10);`
4.  `CURSOR emp_cursor IS`
5.  `SELECT ename FROM emp;`
6.  `BEGIN`
7.  `OPEN emp_cursor;`
8.  `IF emp_cursor%ISOPEN THEN`
9.  `LOOP`
10. `FETCH emp_cursor INTO v_ename;`
11. `EXIT WHEN emp_cursor%NOTFOUND;`
12. `DBMS_OUTPUT.PUT_LINE(to_char(emp_cursor%ROWCOUNT)||'-'||v_ename);`
13. `END LOOP;`
14. `ELSE`
15. `DBMS_OUTPUT.PUT_LINE('用户信息：游标没有打开！');`
16. `END IF;`
17. `CLOSE emp_cursor;`
18. `END;`

说明：本例使用emp\_cursor%ISOPEN判断游标是否打开；使用emp\_cursor%ROWCOUNT获得到目前为止FETCH语句返回的数据行数并输出；使用循环来获取数据，在循环体中使用FETCH语句；使用emp\_cursor%NOTFOUND判断FETCH语句是否成功执行，当FETCH语句失败时说明数据已经取完，退出循环。

4.游标参数的传递

1.  `--4.1带参数的游标。`
2.  `SET SERVEROUTPUT ON`
3.  `DECLARE`
4.  `V_empno NUMBER(5);`
5.  `V_ename VARCHAR2(10);`
6.  `CURSOR emp_cursor(p_deptno NUMBER, p_job VARCHAR2) IS`
7.  `SELECT empno, ename FROM emp`
8.  `WHERE deptno = p_deptno AND job = p_job;`
9.  `BEGIN`
10. `OPEN emp_cursor(10, 'CLERK');`
11. `LOOP`
12. `FETCH emp_cursor INTO v_empno,v_ename;`
13. `EXIT WHEN emp_cursor%NOTFOUND;`
14. `DBMS_OUTPUT.PUT_LINE(v_empno||','||v_ename);`
15. `END LOOP;`
16. `END;`

说明：游标emp\_cursor定义了两个参数：p\_deptno代表部门编号，p\_job代表职务。语句OPEN emp\_cursor(10, 'CLERK')传递了两个参数值给游标，即部门为10、职务为CLERK，所以游标查询的内容是部门10的职务为CLERK的雇员。循环部分用于显示查询的内容。

1.  `--4.2通过变量向游标传递参数，但变量需要先于游标定义，并在游标打开之前赋值`
2.  `SET SERVEROUTPUT ON`
3.  `DECLARE`
4.  `v_empno NUMBER(5);`
5.  `v_ename VARCHAR2(10);`
6.  `v_deptno NUMBER(5);`
7.  `v_job VARCHAR2(10);`
8.  `CURSOR emp_cursor IS`
9.  `SELECT empno, ename FROM emp`
10. `WHERE deptno = v_deptno AND job = v_job;`
11. `BEGIN`
12. `v_deptno:=10;`
13. `v_job:='CLERK';`
14. `OPEN emp_cursor;`
15. `LOOP`
16. `FETCH emp_cursor INTO v_empno,v_ename;`
17. `EXIT WHEN emp_cursor%NOTFOUND;`
18. `DBMS_OUTPUT.PUT_LINE(v_empno||','||v_ename);`
19. `END LOOP;`
20. `END;`

5.动态SELECT语句和动态游标的用法

语法：  
execute immediate 查询语句字符串 into 变量1\[,变量2...\];

1.  `--5.1 动态SELECT查询`
2.  `SET SERVEROUTPUT ON`
3.  `DECLARE`
4.  `str varchar2(100);`
5.  `v_ename varchar2(10);`
6.  `begin`
7.  `str:='select ename from scott.emp where empno=7788';`
8.  `execute immediate str into v_ename;`
9.  `dbms_output.put_line(v_ename);`
10. `END;`

在变量声明部分定义的游标是静态的，不能在程序运行过程中修改。

通过采用动态游标，可以在程序运行阶段随时生成一个查询语句作为游标。要使用动态游标需要先定义一个游标类型，然后声明一个游标变量，游标对应的查询语句可以在程序的执行过程中动态地说明。   
定义游标类型的语句如下：   
TYPE 游标类型名 REF CURSOR;   
声明游标变量的语句如下：   
游标变量名 游标类型名;   
在可执行部分可以如下形式打开一个动态游标：   
OPEN 游标变量名 FOR 查询语句字符串;

1. `--按名字中包含的字母顺序分组显示雇员信息。`
2. `declare `
3. ` type cur_type is ref cursor;`
4. ` cur cur_type;`
5. ` rec scott.emp%rowtype;`
6. ` str varchar2(50);`
7. ` letter char:= 'A';`
8. `begin`
9. ` loop   `
10. ` str:= 'select ename from emp where ename like ''%'||letter||'%''';`
11. ` open cur for str;`
12. ` dbms_output.put_line('包含字母'||letter||'的名字：');`
13. `  loop`
14. ` fetch cur into rec.ename;`
15. ` exit when cur%notfound;`
16. ` dbms_output.put_line(rec.ename);`
17. `end loop;`
18. `  exit when letter='Z';`
19. `  letter:=chr(ascii(letter)+1);`
20. ` end loop;`
21. `end;`

说明：使用了二重循环，在外循环体中，动态生成游标的SELECT语句，然后打开。通过语句letter:=chr(ascii(letter)+1)可获得字母表中的下一个字母。

6. 异常处理  
凡是出现在WHEN后面的错误都是可以捕捉到的错误，其他未被捕捉到的错误，将在WHEN OTHERS部分进行统一处理，OTHENS必须是EXCEPTION部分的最后一个错误处理分支。如要在该分支中进一步判断错误种类，可以通过使用预定义函数SQLCODE( )和SQLERRM( )来获得系统错误号和错误信息。   
如果在程序的子块中发生了错误，但子块没有错误处理部分，则错误会传递到主程序中。

1.  `--6.1查询编号为1234的雇员名字。`
2.  `SET SERVEROUTPUT ON`
3.  `DECLARE`
4.  `v_name VARCHAR2(10);`
5.  `BEGIN`
6.  `SELECT ename`
7.  `INTO v_name`
8.  `FROM emp`
9.  `WHERE empno = 1234;`
10. `DBMS_OUTPUT.PUT_LINE('该雇员名字为：'|| v_name);`
11. `EXCEPTION`
12. `WHEN NO_DATA_FOUND THEN`
13. `DBMS_OUTPUT.PUT_LINE('编号错误，没有找到相应雇员！');`
14. `WHEN OTHERS THEN`
15. `DBMS_OUTPUT.PUT_LINE('发生其他错误！');`
16. `END;`

执行结果为：

1.  `编号错误，没有找到相应雇员！`
2.  `PL/SQL 过程已成功完成。`

6.2由程序代码显示系统错误。

1.  `SET SERVEROUTPUT ON`
2.  `DECLARE`
3.  `v_temp NUMBER(5):=1;`
4.  `BEGIN`
5.  `v_temp:=v_temp/0;`
6.  `EXCEPTION`
7.  `WHEN OTHERS THEN`
8.  `DBMS_OUTPUT.PUT_LINE('发生系统错误！');`
9.  `DBMS_OUTPUT.PUT_LINE('错误代码：'|| SQLCODE( ));`
10. `DBMS_OUTPUT.PUT_LINE('错误信息：' ||SQLERRM( ));`
11. `END;`

7.预定义错误   
Oracle的系统错误很多，但只有一部分常见错误在标准包中予以定义。定义的错误可以在EXCEPTION部分通过标准的错误名来进行判断，并进行异常处理。常见的系统预定义异常如下所示。

1.  `错 误 名 称 错误代码 错 误 含 义`
2.  `CURSOR_ALREADY_OPEN ORA_06511 试图打开已经打开的游标`
3.  `INVALID_CURSOR ORA_01001 试图使用没有打开的游标`
4.  `DUP_VAL_ON_INDEX ORA_00001 保存重复值到惟一索引约束的列中`
5.  `ZERO_DIVIDE ORA_01476 发生除数为零的除法错误`
6.  `INVALID_NUMBER ORA_01722 试图对无效字符进行数值转换`
7.  `ROWTYPE_MISMATCH ORA_06504 主变量和游标的类型不兼容`
8.  `VALUE_ERROR ORA_06502 转换、截断或算术运算发生错误`
9.  `TOO_MANY_ROWS ORA_01422 SELECT…INTO…语句返回多于一行的数据`
10. `NO_DATA_FOUND ORA_01403 SELECT…INTO…语句没有数据返回`
11. `TIMEOUT_ON_RESOURCE ORA_00051 等待资源时发生超时错误`
12. `TRANSACTION_BACKED_OUT ORA_00060 由于死锁，提交失败`
13. `STORAGE_ERROR ORA_06500 发生内存错误`
14. `PROGRAM_ERROR ORA_06501 发生PL/SQL内部错误`
15. `NOT_LOGGED_ON ORA_01012 试图操作未连接的数据库`
16. `LOGIN_DENIED ORA_01017 在连接时提供了无效用户名或口令`

如果一个系统错误没有在标准包中定义，则需要在说明部分定义，语法如下：   
错误名 EXCEPTION;   
定义后使用PRAGMA EXCEPTION\_INIT来将一个定义的错误同一个特别的Oracle错误代码相关联，就可以同系统预定义的错误一样使用了。语法如下： PRAGMA EXCEPTION\_INIT(错误名，- 错误代码)；

1.  `--定义新的系统错误类型。`
2.  `SET SERVEROUTPUT ON`
3.  `DECLARE`
4.  `V_ENAME VARCHAR2(10);`
5.  `NULL_INSERT_ERROR EXCEPTION;`
6.  `PRAGMA EXCEPTION_INIT(NULL_INSERT_ERROR,-1400);`
7.  `BEGIN`
8.  `INSERT INTO EMP(EMPNO) VALUES(NULL);`
9.  `EXCEPTION`
10. `WHEN NULL_INSERT_ERROR THEN`
11. `DBMS_OUTPUT.PUT_LINE('无法插入NULL值！');`
12. `WHEN OTHERS THEN`
13. `DBMS_OUTPUT.PUT_LINE('发生其他系统错误！');`
14. `END;`
15. `--执行结果为：`
16. `无法插入NULL值！`
17. `PL/SQL 过程已成功完成。`

8. 自定义异常

程序设计者可以利用引发异常的机制来进行程序设计，自己定义异常类型。可以在声明部分定义新的异常类型，定义的语法是：   
错误名 EXCEPTION;   
用户定义的错误不能由系统来触发，必须由程序显式地触发，触发的语法是：   
RAISE 错误名；   
RAISE也可以用来引发模拟系统错误，比如，RAISE ZERO\_DIVIDE将引发模拟的除零错误。   
使用RAISE\_APPLICATION\_ERROR函数也可以引发异常。该函数要传递两个参数，第一个是用户自定义的错误编号，第二个参数是用户自定义的错误信息。使用该函数引发的异常的编号应该在20 000和20 999之间选择。   
自定义异常处理错误的方式同前。

1. `--8.1插入新雇员，限定插入雇员的编号在7000～8000之间。`
2. `SET SERVEROUTPUT ON`
3. `DECLARE`
4. `new_no NUMBER(10);`
5. `new_excp1 EXCEPTION;`
6. `new_excp2 EXCEPTION;`
7. `BEGIN`
8. `new_no:=6789;`
9. `INSERT INTO emp(empno,ename)`
10. `VALUES(new_no, '小郑');`
11. `IF new_no<7000 THEN`
12. `RAISE new_excp1;`
13. `END IF;`
14. `IF new_no>8000 THEN`
15. `RAISE new_excp2;`
16. `END IF;`
17. `COMMIT;`
18. `EXCEPTION`
19. `WHEN new_excp1 THEN`
20. `ROLLBACK;`
21. `DBMS_OUTPUT.PUT_LINE('雇员编号小于7000的下限！');`
22. `WHEN new_excp2 THEN`
23. `ROLLBACK;`
24. `DBMS_OUTPUT.PUT_LINE('雇员编号超过8000的上限！');`
25. `END;`
26. `--执行结果为：`
27. `雇员编号小于7000的下限！`
28. `PL/SQL 过程已成功完成。`

说明：在此例中，自定义了两个异常：new\_excp1和new\_excp2，分别代表编号小于7000和编号大于8000的错误。在程序中通过判断编号大小，产生对应的异常，并在异常处理部分回退插入操作，然后显示相应的错误信息。

1. `--使用RAISE_APPLICATION_ERROR函数引发系统异常。`
2. `SET SERVEROUTPUT ON`
3. `DECLARE`
4. `New_no NUMBER(10);`
5. `BEGIN`
6. `New_no:=6789;`
7. `INSERT INTO emp(empno,ename)`
8. `VALUES(new_no, 'JAMES');`
9. `IF new_no<7000 THEN`
10. `ROLLBACK;`
11. `RAISE_APPLICATION_ERROR(-20001, '编号小于7000的下限！');`
12. `END IF;`
13. `IF new_no>8000 THEN`
14. `ROLLBACK;`
15. `RAISE_APPLICATION_ERROR (-20002, '编号大于8000的下限！');`
16. `END IF;`
17. `END;`

1.  `--执行结果为：`
2.  `DECLARE`
3.  `*`
4.  `ERROR 位于第 1 行:`
5.  `ORA-20001: 编号小于7000的下限！`
6.  `ORA-06512: 在line 9`

说明：在本训练中，使用RAISE\_APPLICATION\_ERROR引发自定义异常，并以系统错误的方式进行显示。错误编号为20001和20002。   
注意：同上一个训练比较，此种方法不需要事先定义异常，可直接引发。   
可以参考下面的程序片断将出错信息记录到表中，其中，errors为记录错误信息的表，SQLCODE为发生异常的错误编号，SQLERRM为发生异常的错误信息。

1.  `DECLARE`
2.  `v_error_code NUMBER;`
3.  `v_error_message VARCHAR2(255);`
4.  `BEGIN`
5.  `...`
6.  `EXCEPTION`
7.  `...`
8.  `WHEN OTHERS THEN`
9.  `v_error_code := SQLCODE ;`
10. `v_error_message := SQLERRM ;`
11. `INSERT INTO errors`
12. `VALUES(v_error_code, v_error_message);`
13. `END;`

[https://blog.csdn.net/zzxiaozhi/article/details/46398365][https_blog.csdn.net_zzxiaozhi_article_details_46398365]

[zzxiaozhi]: https://me.csdn.net/zzxiaozhi
[https_blog.csdn.net_zzxiaozhi_article_details_46398365]: https://blog.csdn.net/zzxiaozhi/article/details/46398365