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)、用法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;



(2)、用法2:用于存储过程返回结果集

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子句,则游标所在行被更新或者删除。