Oracle 游标的使用
一 游标是什么
游标字面理解就是游动的光标。
用数据库语言来描述：游标是映射在结果集中一行数据上的位置实体，有了游标，用户就可以访问结果集中的任意一行数据了，将游标放置到某行后，即可对该行数据进行操作，例如提取当前行的数据等。
二 游标的分类
显式游标和隐式游标
显式游标的使用需要4步：
1. 声明游标
CURSOR mycur(vartype number) is
select emp_no,emp_zc from cus_emp_basic
where com_no = vartype;
?
2. 打开游标
open mycur(000627)
注：000627是参数
3. 读取数据
fetch mycur into varno, varprice;
4. 关闭游标
close mycur;
三 游标的属性
oracle 游标有4个属性：%ISOPEN，%FOUND，%NOTFOUND，%ROWCOUNT。
%ISOPEN判断游标是否被打开，如果打开%ISOPEN等于true,否则等于false；
%FOUND %NOTFOUND判断游标所在的行是否有效，如果有效，则%FOUNDD等于true，否则等于false；
%ROWCOUNT返回当前位置为止游标读取的记录行数。
四 示例
set serveroutput on;
declare
varno varchar2(20);
varprice varchar2(20);
CURSOR mycur(vartype number) is
select emp_no,emp_zc from cus_emp_basic
where com_no = vartype;
begin
if mycur%isopen = false then
open mycur(000627);
end if;
fetch mycur into varno,varprice;
while mycur%found
loop
dbms_output.put_line(varno||','||varprice);
if mycur%rowcount=2 then
exit;
end if;
fetch mycur into varno,varprice;
end loop;
close mycur;
end;
?
PL/SQL记录的结构和C语言中的结构体类似，是由一组数据项构成的逻辑单元。
PL/SQL记录并不保存在数据库中，它与变量一样，保存在内存空间中，在使用记录时候，要首先定义记录结构，然后声明记录变量。可以把PL/SQL记录看作是一个用户自定义的数据类型。
set serveroutput on;
declare
type person is record
(
empno cus_emp_basic.emp_no%type,
empzc cus_emp_basic.emp_zc%type);
person1 person;
cursor mycur(vartype number)is
select emp_no,emp_zc from cus_emp_basic
where com_no=vartype;
begin
if mycur%isopen = false then
open mycur(000627);
end if;
loop
fetch mycur into person1;
exit when mycur%notfound;
dbms_output.put_line('雇员编号:'||person1.empno||',地址:'||person1.empzc);
end loop;
close mycur;
end;
?
典型游标for 循环
游标for循环示显示游标的一种快捷使用方式，它使用for循环依次读取结果集中的行数据，当form循环开始时，游标自动打开（不需要open），每循环一次系统自动读取游标当前行的数据（不需要fetch)，当退出for循环时，游标被自动关闭（不需要使用close）。使用游标for循环的时候不能使用open语句，fetch语句和close语句，否则会产生错误。
set serveroutput on;
declare
cursor mycur(vartype number)is
select emp_no,emp_zc from cus_emp_basic
where com_no=vartype;
begin
for person in mycur(000627) loop
dbms_output.put_line('雇员编号:'||person.emp_no||',地址:'||person.emp_zc);
end loop;
end;
==================================================================================
实例:
FROM? Rs_Employees
???? Where? HeTongId = ' WL-090001 ' ;
?
?? if? sql % Notfound? then
??? Dbms_Output.put_line( ' 没有找到要删除的记录 ' );
?? else
??? Dbms_Output.put_line( ' 已删除记录 ' );
?? end?? if ;
?END ;
??
??
??
?-- 例七：%RowCount，查询记录行数
?Declare
? v_name Rs_Employees.Name % type;
?BEGIN
?? SELECT? Name? Into? v_Name
???? FROM? Rs_Employees
???? Where? HeTongId = ' WL-090010 ' ;
?
?? if? sql % RowCount?? > 0?? Then
??? Dbms_Output.put_line( ' 已从表中选择行,Name为： ' || v_Name);
?? else
??? Dbms_Output.put_line( ' 从表中未选择行 ' );
?? end?? if ;
?END ;
??
?-- 再演示以下代码
?BEGIN
?? DELETE?? FROM? Rs_Employees
???? Where? HeTongId <= ' WL-090010 ' ;
?
? Dbms_Output.put_line( ' 已从表中删除 ' || To_Char(sql % RowCount ) || ' 条记录 ' );
?END ;??
??
?
?
?-- 例八：显式游标
-- 以下示例在所有游标的记录中的Name字段中加一字串
-- 同时在此示范了如何使用%NotFound属性
-- set serveroutput on;
?Declare
? v_Id??? Rs_Employees.Hetongid % type;
? v_name? Rs_Employees.Name % type;
? v_Count? Number : = 0 ;
?
?? Cursor? MyCur? Is
???? SELECT? HetongId,Name? FROM? Rs_Employees
?????? Where? HeTongId <= ' WL-090010 ' ;
?????
?BEGIN
?? -- 打开游标?
??? Open? MyCur;
?? -- 进入循环
?? Loop
???? Fetch? MyCur? Into? v_id,v_name;
???? Exit?? When? MyCur % NotFound;
???
???? Update? Rs_Employees
?????? Set? Name? =? Name? ||?? ' X '
?????? Where? HeTongId = v_Id;
??? v_Count : =? v_Count? +?? 1 ;
?? End? Loop;
?
? Dbms_Output.put_line( ' 已更新 ' || v_Count || ' 行 ' );
?END ;
?-- 例10：以下示范%RowCount和%IsOpen，同时示范了%RowType的使用
-- 例10：以下示例%RowCount
?Declare
? v_Row?? Rs_Employees % RowType;
?
?? Cursor? MyCur? Is
???? SELECT?? *?? FROM? Rs_Employees
?????? Where? HeTongId <= ' WL-090010 ' ;
?BEGIN
?? if?? Not? MyCur % IsOpen? then
??? Dbms_Output.put_line( ' 游标未打开 ' );
???? -- 打开游标?
????? Open? MyCur;
?? end?? if ;
?? -- 进入循环
?? Loop
???? Fetch? MyCur? Into? v_row;
???? Exit?? When? MyCur % NotFound;
?
??? Dbms_Output.put_line( ' 当前已取得 ' || MyCur % RowCount || ' 行 ' );
??? Dbms_Output.put_line( ' 姓名： ' || v_row.Name || '????? ' || ' 合同号： ' || v_row.HeTongId);
??? Dbms_Output.put_line( '' );
?? End? Loop;
?
? Dbms_Output.put_line( ' 总共已取得 ' || MyCur % RowCount || ' 行 ' );
?
?? if? MyCur % IsOpen? then
??? Dbms_Output.put_line( ' 游标已打开 ' );
???? Close? MyCur;
?? end?? if ;
?? if?? Not? MyCur % IsOpen? then
??? Dbms_Output.put_line( ' 游标已关闭 ' );
?? end?? if ;
?
?END ;
?-- 例12：查询嵌套表中数据的游标
-- 1 创建类型
??? CREATE?? OR?? REPLACE? TYPE emp_type? As? Object
?? (eno??? number ,
??? ename? varchar2 ( 20 ),
??? esal?? number );
?-- 2 使用Table of 子句创建Table类型
??? CREATE? TYPE emp_nt? AS?? Table?? Of? emp_type;
?-- 3 使用emp_nt数据类型创建myemp表
??? CREATE?? TABLE? myemp
?? (deptno????? number ,
??? edet?????? emp_nt)
??? NESTED? TABLE? edet Store? As? myemployee;
?-- 4 初始化myemp的数据
??? Insert?? Into? myemp? values
??? ( 10 ,emp_nt(emp_type( 1000 , ' James ' ,? 10000 ),
?????????????? emp_type( 1001 , ' Daniel ' , 20000 )));
?? Commit ;
?
?-- 执行下列代码??
?Declare
? sal?? number ;
? ena?? varchar2 ( 20 );
?
?? Cursor? MyCur? Is
???? SELECT? a.esal,a.ename
?????? FROM? the
????? ( Select? edet? From? myemp
????????? Where? deptno = 10 ) a;
?BEGIN
?? -- 打开游标?
??? Open? MyCur;
?? -- 进入循环
?? Loop
???? Fetch? MyCur? Into? sal,ena;
???? Exit?? When? MyCur % NotFound;
??? Dbms_Output.put_line(ena || '????? ' || sal);
?? End? Loop;
?
?? Close? MyCur;
?END ;
?
?-- 例13：此例改自例10，示范循环游标的用法
?Declare
?? Cursor? MyCur? Is
???? SELECT?? *?? FROM? Rs_Employees
?????? Where? HeTongId <= ' WL-090010 ' ;
?BEGIN
?
?? For? tmp_cur? In? MyCur
? Loop
??? Dbms_Output.put_line( ' 当前已取得 ' || MyCur % RowCount || ' 行 ' );
??? Dbms_Output.put_line( ' 姓名： ' || tmp_cur.Name || '????? ' || ' 合同号： ' || tmp_cur.HeTongId);
?? End? Loop;
?? -- 在这种情况下，下面这条语句不能执行
??? -- Dbms_Output.put_line('当前已取得'||MyCur%RowCount||'行');
?END ;
?-- 再示范带参数的游标
?Declare
?? Cursor? MyCur(m_HeTongId Rs_Employees.Hetongid % type)? Is
???? SELECT?? *?? FROM? Rs_Employees
?????? Where? HeTongId <= m_HeTongId;
?BEGIN
?
?? For? tmp_cur? In? MyCur( ' WL-090020 ' )
? Loop
??? Dbms_Output.put_line( ' 当前已取得 ' || MyCur % RowCount || ' 行 ' );
??? Dbms_Output.put_line( ' 姓名： ' || tmp_cur.Name || '????? ' || ' 合同号： ' || tmp_cur.HeTongId);
?? End? Loop;
?? -- 在这种情况下，下面这条语句不能执行
??? -- Dbms_Output.put_line('当前已取得'||MyCur%RowCount||'行');
?END ;
?-- 再示范以下写法
-- 在循环游标中使用查询
?Declare
? v_HeTongId? Rs_Employees.Hetongid % type;
?BEGIN
? v_HeTongId : =?? ' WL-090020 ' ;
?
?? For? tmp_cur? In? ( SELECT?? *?? FROM? Rs_Employees
???????????????????? Where? HeTongId <= v_HeTongId)
? Loop
??? Dbms_Output.put_line( ' 姓名： ' || tmp_cur.Name || '????? ' || ' 合同号： ' || tmp_cur.HeTongId);
?? End? Loop;
?END ;
?
?
?-- 例15：示范游标变量
-- 此例要在Command window或Sql Plus中示范，结果会有点区别
-- SET SERVEROUTPUT ON;
?Declare
? TYPE r1_cur? IS? REF? CURSOR ;
? var1 r1_cur;
? no????? varchar2 ( 20 );
?
? v_czy? sc_chukudan.czy % type;
? v_pid? sc_chukudanDetail.Productid % type;
?
?BEGIN
? no : =?? ' &你选择的 ' ;
?? IF?? UPPER (no)? =?? ' MASTER '?? then
???? OPEN? var1? For
?????? Select? Czy? FROM? sc_chukudan
???????? Where? ChuKuDanId? =?? ' SCKD04020001 ' ;
???? FETCH? var1? into? v_Czy;
??? Dbms_Output.put_line( ' 操作员是： ' || v_czy);
???? CLOSE? var1;
?? ELSE
???? OPEN? var1? For
?????? Select? Productid? FROM? sc_chukudanDetail
???????? Where? ChuKuDanId? =?? ' SCKD04020001 ' ;
??? LOOP
?????? FETCH? var1? into? v_pid;
?????? EXIT?? WHEN? var1 % NotFound;
????? Dbms_Output.put_line( ' 生产通知单ID是： ' || v_pid);
???? END? LOOP;
???? CLOSE? var1;
?? END?? IF ;???
?END ;
?
?-- 例16: 游标中的更新和删除
-- 此例改自例8
?Declare
?? -- 当打开此游标，将锁住了相关记录
??? Cursor? MyCur? Is
???? SELECT? Name? FROM? Rs_Employees
?????? Where? HeTongId <= ' WL-090010 '
?????? For?? Update?? OF? Name;
?????
?BEGIN
?? For? tmp_cur? in? MyCur
? Loop
???? Update? Rs_Employees
?????? Set? Name? =? Name? ||?? ' X '
?????? Where?? Current?? of? MyCur;
?? End? Loop;
?END ;
