游标作为一种数据类型,首先必须进行定义,其语法如下。 cursor 游标名 is select 语句; cursor是定义游标的要害词,select是建立游标的数据表查询命令。 以scott用户连接数据库,在【SQLPlus Worksheet】中执行下列PL/SQL程序,该程序定义tempsal为与scott.emps数据表中的sal字段类型相同的变量,mycursor为从scott.emp数据表中提取的sal大于tempsal的数据构成的游标。 执行结果如图9.35所示。 ――――――――――――――――――――――――――――――――――――― set serveroutput on declare tempsal scott.emp.sal%type; cursor mycursor is select * from scott.emp where sal>tempsal; begin tempsal:=800; open mycursor; end; ――――――――――――――――――――――――――――――――――――― 【配套程序位置】:第9章/ cursordefine.sql。
打开游标
要使用创建好的游标,接下来要打开游标,语法结构如下: open 游标名; 打开游标的过程有以下两个步骤: (1)将符合条件的记录送入内存。 (2)将指针指向第一条记录。
提取游标数据
要提取游标中的数据,使用fetch命令,语法形式如下。 fetch 游标名 into 变量名1, 变量名2,……; 或 fetch 游标名 into 记录型变量名; 在【SQLPlus Worksheet】中执行下列PL/SQL程序,该程序定义cursorrecord变量是游标mycursor的记录行变量,在游标mycursor的结果中找到sal字段大于800的第一个记录,显示deptno字段的内容。 执行结果如图9.36所示。
――――――――――――――――――――――――――――――――――――― set serveroutput on declare tempsal scott.emp.sal%type; cursor mycursor is select * from scott.emp where sal>tempsal; cursorrecord mycursor%rowtype; begin tempsal:=800; open mycursor; fetch mycursor into cursorrecord; dbms_output.put_line(to_char(cursorrecord.deptno)); end; ――――――――――――――――――――――――――――――――――――― 【配套程序位置】:第9章/ cursorfetch.sql。
关闭游标
使用完游标后,要关闭游标,使用close命令,语法形式如下: close 游标名;
游标的属性
游标提供的一些属性可以帮助编写PL/SQL程序,游标属性的使用方法为:游标名[属性],例如mycursor%isopen,主要的游标属性如下。 1. %isopen属性 该属性功能是测试游标是否打开,假如没有打开游标就使用fetch语句将提示错误。 在【SQLPlus Worksheet】中执行下列PL/SQL程序,该程序利用%isopen属性判定游标是否打开。执行结果如图9.37所示。 ――――――――――――――――――――――――――――――――――――― set serveroutput on declare tempsal scott.emp.sal%type; cursor mycursor is select * from scott.emp where sal>tempsal; cursorrecord mycursor%rowtype; begin tempsal:=800; if mycursor%isopen then fetch mycursor into cursorrecord; dbms_output.put_line(to_char(cursorrecord.deptno)); else dbms_output.put_line('游标没有打开!'); end if; end; ――――――――――――――――――――――――――――――――――――― 【配套程序位置】:第9章/ isopenattribute.sql。
2. %found属性 该属性功能是测试前一个fetch语句是否有值,有值将返回true,否则为false。 在【SQLPlus Worksheet】中执行下列PL/SQL程序。该程序利用%found属性判定游标是否有数据。 执行结果如图9.38所示。 ――――――――――――――――――――――――――――――――――――― set serveroutput on declare tempsal scott.emp.sal%type; cursor mycursor is select * from scott.emp where sal>tempsal; cursorrecord mycursor%rowtype; begin tempsal:=800; open mycursor; fetch mycursor into cursorrecord; if mycursor%found then dbms_output.put_line(to_char(cursorrecord.deptno)); else dbms_output.put_line('没有数据!'); end if; end; ――――――――――――――――――――――――――――――――――――― 【配套程序位置】:第9章/ foundattribute.sql。