PL/SQL中游标和游标变量的使用(转)

游标是什么：
    游标字面理解就是游动的光标。
    用数据库语言来描述：游标是映射在结果集中一行数据上的位置实体，有了游标用户就可以访问结果集中的任意一行数据了，将游标放置到某行后，即可对该行数据进行操作，例如提取当前行的数据等等。
游标的分类： 显式游标和隐式游标
(1)、显示游标的使用：
    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;
(2)、隐式游标的使用：
如果在pl/sql程序中使用了select语句进行操作，pl/sql会隐含处理游标定义，即称做隐式游标。这种游标不需要声明、打开和关闭。
例：
Create or replace procedure cx_xm
(in_xh in char,out_num out char)
As
Begin
       Select xm into out_xm from xs where xh=in_xh;   /*隐式游标必须使用into*/
    Dbms_output.put_line(out_xm);
End
使用隐式游标时要注意以下几点：
A、每一个隐式游标必须有一个into;
B、和显示游标一样，带有关键字into接收数据的变量时数据类型要与列表一致。
C、隐式游标一次只能返回移行数据。

典型游标for 循环

游标for循环和显示游标的一种快捷使用方式，它使用for循环依次读取结果集中的行数据，当for循环开始时，游标自动打开（不需要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;

在游标FOR循环中使用查询

　　在游标FOR循环中可以定义查询，由于没有显式声明所以游标没有名字，记录名通过游标查询来定义。
DECALRE
　v_tot_salary EMP.SALARY%TYPE;
BEGIN
　FOR r_dept IN (SELECT deptno,dname FROM dept ORDER BY deptno) LOOP
　　DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
　　v_tot_salary:=0;
　　FOR r_emp IN (SELECT ename,salary
　　　FROM emp
　　　WHERE deptno=p_dept
　　　ORDER BY ename) LOOP
　　DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
　　v_tot_salary:=v_tot_salary+v_salary;
　　END LOOP;
　　DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
　END LOOP;
END;

游标中的子查询
　　语法如下：
CURSOR C1 IS SELECT * FROM emp
WHERE deptno NOT IN (SELECT deptno
FROM dept
WHERE dname!='ACCOUNTING');
　　可以看出与SQL中的子查询没有什么区别。

游标中的更新和删除
　　在PL/SQL中依然可以使用UPDATE和DELETE语句更新或删除数据行。显式游标只有在需要获得多行数据的情况下使用。PL/SQL提供了仅仅使用游标就可以执行删除或更新记录的方法。
　　UPDATE或DELETE语句中的WHERE CURRENT OF子串专门处理要执行UPDATE或DELETE操作的表中取出的最近的数据。要使用这个方法，在声明游标时必须使用FOR UPDATE子串，当对话使用FOR UPDATE子串打开一个游标时，所有返回集中的数据行都将处于行级（ROW-LEVEL)独占式锁定，其他对象只能查询这些数据行，不能进行UPDATE、DELETE或SELECT...FOR UPDATE操作。
　　语法：
FOR UPDATE [OF [schema.]table.column[,[schema.]table.column]..
[nowait]
　　在多表查询中，使用OF子句来锁定特定的表,如果忽略了OF子句，那么所有表中选择的数据行都将被锁定。如果这些数据行已经被其他会话锁定，那么正常情况下ORACLE将等待，直到数据行解锁。
　　在UPDATE和DELETE中使用WHERE CURRENT OF子串的语法如下：
WHERE{CURRENT OF cursor_name|search_condition}

　　例：
DELCARE
CURSOR c1 IS SELECT empno,salary
FROM emp
WHERE comm IS NULL
FOR UPDATE OF comm;
v_comm NUMBER(10,2);
BEGIN
FOR r1 IN c1 LOOP
IF r1.salary<500 THEN
v_comm:=r1.salary*0.25;
　　ELSEIF r1.salary<1000 THEN
v_comm:=r1.salary*0.20;
　　ELSEIF r1.salary<3000 THEN
v_comm:=r1.salary*0.15;
ELSE
v_comm:=r1.salary*0.12;
END IF;
UPDATE emp;
SET comm=v_comm
WHERE CURRENT OF c1l;
END LOOP;
END

使用游标变量：
与游标类似，游标变量指向多行查询的结果集的当前行。但是，游标与游标变量是不同的，就像常量和变量的关系一样。游标是静态的，游标变量是动态的，因为它不与特定的查询绑定在一起。
(1)、用法１：
declare
type cur_tab is ref cursor;
sqlcur cur_tab;
v_T3100101 char(2);
v_T3100102 char(10);
begin
open sqlcur for select T3100101,T3100102 from T31001;
loop
fetch sqlcur into v_T3100101,v_T3100102;
exit when sqlcur%notfound;
dbms_output.put_line(v_T3100101||v_T3100102);
end loop;
close sqlcur;
end;


(２)、用法２：用于存储过程返回结果集
create or replace package selecttable
is
type cur_T31001 is ref cursor return T31001%rowtype;　　--注意，这里没有begin
end selecttable;

create or replace procedure T31001_select
(
cur out selecttable.cur_T31001       --参数类型定义为先前定义好的T31001
)
is
begin
　　open cur for
　　select * from T31001;
end T31001_select;
----------------------------------------------------------------------------------------------------------------------
通过从游标工作区中抽取出来的数据，可以对数据库中的数据进行操纵，包括修改与删除操作。
要想通过游标操纵数据库，在定义游标的时候，必须加上FOR UPDATE OF子句；
　 　 　
而且在UPDATE或DELETE时，必须加上WHERE CURRENT OF子句，则游标所在行被更新或者删除。

一个FOR UPDATE子句将使所在行获得一个行级排他锁。
http://blog.csdn.net/junmail/archive/2007/01/11/1480395.aspx