游标

---- 游标
---》 http://www.cnblogs.com/heshan664754022/archive/2013/05/22/3092437.html
--》http://blog.csdn.net/haiross/article/details/42967213
--》http://www.cnblogs.com/shengtianlong/archive/2010/12/31/1922767.html
/*游标是一种 PL/SQL控制结构；可以对 SQL语句的处理进行显示控制，便于对表的行数据逐条进行处理。
游标并不是一个数据库对象，只是存留在内存中
操作步骤：
• 声明游标
• 打开游标
• 取出结果，此时的结果取出的是一行数据
• 关闭游标
到底那种类型可以把一行的数据都装进来
• 此时使用ROWTYPE 类型，此类型表示、
可以把一行的数据都装进来。

1，什么是游标？
 ①从表中检索出结果集，从中每次指向一条记录进行交互的机制。
   
 ②关系数据库中的操作是在完整的行集合上执行的。
  由 SELECT 语句返回的行集合包括满足该语句的 WHERE 子句所列条件的所有行。由该语句返回完整的行集合叫做结果集。
     应用程序，尤其是互动和在线应用程序，把完整的结果集作为一个单元处理并不总是有效的。
     这些应用程序需要一种机制来一次处理一行或连续的几行。而游标是对提供这一机制的结果集的扩展。

     游标是通过游标库来实现的。游标库是常常作为数据库系统或数据访问 API 的一部分而得以实现的软件，
     用来管理从数据源返回的数据的属性（结果集）。这些属性包括并发管理、在结果集中的位置、返回的行数，
     以及是否能够在结果集中向前和/或向后移动（可滚动性）。

     游标跟踪结果集中的位置，并允许对结果集逐行执行多个操作，在这个过程中可能返回至原始表，也可能不返回至原始表。
     换句话说，游标从概念上讲基于数据库的表返回结果集。
     由于它指示结果集中的当前位置 ，就像计算机屏幕上的光标指示当前位置一样，“游标”由此得名
 -----
2，游标有什么作用？
 ①指定结果集中特定行的位置。
 ②基于当前的结果集位置检索一行或连续的几行。
 ③在结果集的当前位置修改行中的数据。
 ④对其他用户所做的数据更改定义不同的敏感性级别。
 ⑤可以以编程的方式访问数据库。
----
3，为什么避免使用游标？
 ①在创建游标时，最需要考虑的事情是，“是否有办法避免使用游标？”
  因为游标的效率较差，如果游标操作的数据超过1万行，那么就应该改写；
  如果使用了游标，就要尽量避免在游标循环中再进行表连接的操作。
--
4，Oracle游标的类型
 ①静态游标：结果集已经确实（静态定义）的游标。分为隐式和显示游标。
  ⑴隐式游标：所有DML语句为隐式游标，通过隐式游标属性可以获取SQL语句信息。
  ⑵显示游标：用户显示声明的游标，即指定结果集。当查询返回结果超过一行时，就需要一个显式游标。
 
  在每个用户会话中，可以同时打开多个游标，其数量由数据库初始化参数文件中的OPEN_CURSORS参数定义
  对于不同的SQL语句，游标的使用情况不同
  SQL语句                                 游标隐式或显示
 非查询语句                           隐式的
 结果是单行的查询语句                 隐式的或显示
 结果是多行的查询语句                 显示的
 ②REF游标：动态关联结果集的临时对象。


*/
--例如：查询雇员编号为 7369的信息（肯定是一行信息）。
DECLARE
eno emp.empno%TYPE ;
empInfo emp%ROWTYPE ;
BEGIN
eno := &en ;
SELECT * INTO empInfo FROM emp WHERE empno=eno ;
DBMS_OUTPUT.put_line('雇员编号：'||empInfo.empno) ;
DBMS_OUTPUT.put_line('雇员姓名：'||empInfo.ename) ;
END ;



DECLARE
-- 声明游标
CURSOR mycur IS SELECT * FROM emp where empno=7521;
empInfo emp%ROWTYPE ;
cou NUMBER ;
BEGIN
-- 游标操作使用循环，但是在操作之前必须先将游标打开
FOR empInfo IN mycur LOOP
cou := mycur%ROWCOUNT ;--%rowcount中的sql是oracle的内部游标,游标当前提取的行数
 --DBMS_OUTPUT.put_line(mycur%ROWCOUNT||'======') ;
DBMS_OUTPUT.put_line(cou||'雇员编号：'||empInfo.empno) ; DBMS_OUTPUT.put_line(cou||'雇员姓名：'||empInfo.ename) ;
END LOOP ;
END ;


DECLARE
-- 声明游标
CURSOR mycur IS SELECT * FROM emp; -- List (EmpPo)
empInfo emp%ROWTYPE ;
BEGIN
-- 游标操作使用循环，但是在操作之前必须先将游标打开
OPEN mycur ;
FETCH mycur INTO empInfo ;
-- 判断此行是否有数据被发现
WHILE (mycur%FOUND) LOOP
 DBMS_OUTPUT.put_line(mycur%ROWCOUNT||'======') ;
DBMS_OUTPUT.put_line('雇员编号：'||empInfo.empno) ;
DBMS_OUTPUT.put_line('雇员姓名：'||empInfo.ename) ;
-- 修改游标，继续向下
FETCH mycur INTO empInfo ;--FETCH获取记录：移动游标取一条记录
--     Fetch  游标名 InTo  临时记录或属性类型变量；
END LOOP ;
END ;

-----------------
declare
 CURSOR mycur IS SELECT * FROM emp ;
empInfo emp%ROWTYPE ;
BEGIN
-- 游标操作使用循环，但是在操作之前必须先将游标打开
OPEN mycur ;
LOOP
-- 使游标向下一行
FETCH mycur INTO empInfo ;
EXIT WHEN mycur%NOTFOUND ;
DBMS_OUTPUT.put_line('雇员编号：'||empInfo.empno) ;
DBMS_OUTPUT.put_line('雇员姓名：'||empInfo.ename) ;
END LOOP ;
END ;  
-------

注意 1：
在打开游标之前最好先判断游标是否已经是打开的。
通过 ISOPEN 判断，格式：游标%ISOPEN
IF mycur%ISOPEN THEN
null ;
ELSE
OPEN mycur ;
END IF ;
注意 2：
可以使用 ROWCOUNT对游标所操作的行数进行记录。
DECLARE
-- 声明游标
CURSOR mycur IS SELECT * FROM emp ;
empInfo emp%ROWTYPE ;
cou NUMBER ;
BEGIN
-- 游标操作使用循环，但是在操作之前必须先将游标打开
--注意 1：
--在打开游标之前最好先判断游标是否已经是打开的。
--通过 ISOPEN 判断，格式：游标%ISOPEN
/*IF mycur%ISOPEN THEN
null ;
ELSE
OPEN mycur ;
END IF ;
注意 2：
可以使用 ROWCOUNT对游标所操作的行数进行记录。*/
DECLARE
-- 声明游标
CURSOR mycur IS SELECT * FROM emp ;
empInfo emp%ROWTYPE ;
cou NUMBER ;
BEGIN
-- 游标操作使用循环，但是在操作之前必须先将游标打开
IF mycur%ISOPEN THEN
null ;
ELSE
OPEN mycur ;
END IF ;
LOOP
-- 使游标向下一行
FETCH mycur INTO empInfo ;
EXIT WHEN mycur%NOTFOUND ;
cou := mycur%ROWCOUNT ;
DBMS_OUTPUT.put_line(cou||'雇员编号：'||empInfo.empno) ;
 DBMS_OUTPUT.put_line(cou||'雇员姓名：'||empInfo.ename) ;
END LOOP ;
end;
-----------------------
--一次性上涨全部雇员的工资。根据它所在的部门涨工资，规则：
--• 20部门上涨10%
--上涨工资，最不能超过 5000，如果超过5000，则工资就为 5000。
declare
  cursor mycur is
    select * from emp;
  empinfo emp%rowtype;
  s       emp.sal%type;
  nos     number;
begin
  nos := &noy;
  dbms_output.put_line('输入的值是' || nos);
  for empinfo in mycur loop
    dbms_output.put_line('正在操作第几行数据' || mycur%rowcount);
    if empinfo.deptno = 20 then
      s := empInfo.sal * 1.1;
    end if;
    if s < 5000 then
      dbms_output.put_line('ssss----' || s);
      s := 5000;
    end if;
    update emp set sal = s where empno = empInfo.empno;
  end loop;
end;


declare
  cursor mycur is
    select * from emp;
  empinfo emp%rowtype;
  s       emp.sal%type;
  --nos     number;
begin
  OPEN mycur; -- 当不使用打开游标的时候，报错无效的游标
  FETCH mycur
    into empinfo;
  while (mycur%found) loop
    dbms_output.put_line('正在操作第几行数据' || mycur%rowcount);
    if empinfo.deptno = 20 then
      s := empInfo.sal * 1.1;
    end if;
    if s < 5000 then
      dbms_output.put_line('ssss----' || s);
      s := 5000;
    end if;
    update emp set sal = s where empno = empInfo.empno;
    fetch mycur
      into empinfo;
  end loop;
end;
--游标FOR循环确实很好的简化了游标的开发，我们不在需要open、fetch和close语句，
--不在需要用%FOUND属性检测是否到最后一条记录，这一切Oracle隐式的帮我们完成了。
---------------
--1: 使用游标 和loop循环来显示所有部门的名称
declare
 cursor mycur is select dname from dept;
 names dept.dname%type;
 begin
  open mycur;
   loop
   fetch mycur into names;
   exit  when mycur%notfound;
   dbms_output.put_line('----'||names);
   end loop;
   close mycur;
   end;


declare
  cursor mycur is select * from dept;
  myinfo dept%rowtype;
  begin
    for myinfo in mycur loop
      dbms_output.put_line('----'||myinfo.loc);
     end loop;
     end;
     


declare
cursor empcur is select job from emp;
a emp.job%type;
begin
open empcur;
loop
fetch empcur into a;
exit when empcur%notfound;
dbms_output.put_line(a);
end loop;
close empcur;
end;

Begin
   Update emp Set  SAL = SAL + 0.1  Where JOB = 'CLERK';
   If  SQL%Found  Then
    DBMS_OUTPUT.PUT_LINE('已经更新！');
   Else
    DBMS_OUTPUT.PUT_LINE('更新失败！');
   End  If;
  End;
----------------------------------------------
  Declare
     Cursor myCur is select ename,job,sal,empno from emp;
     varE myCur%rowType;
  Begin
     if myCur%isopen = false then
        open myCur;
       dbms_output.put_line('Opening...');
     end if;
     loop
        fetch myCur into varE;
        exit when myCur%notfound;
        dbms_output.put_line(myCur%rowCount||'    '||vare.empno||'    '||vare.ename||'    '||vare.sal);
     end loop;
     if myCur%isopen then
        Close myCur;
        dbms_output.put_line('Closing...');
     end if;
  End;

-------------------------
7，怎样更新和删除显示游标中的记录？
 ①UPDATE或DELETE语句中的WHERE CURRENT OF子串专门处理要执行UPDATE或DELETE操作的表中取出的最近的数据。
  要使用这个方法，在声明游标时必须使用FOR UPDATE子串，当对话使用FOR UPDATE子串打开一个游标时，
  所有返回集中的数据行都将处于行级（ROW-LEVEL)独占式锁定，其他对象只能查询这些数据行，
  不能进行UPDATE、DELETE或SELECT...FOR UPDATE操作。
   在多表查询中，使用OF子句来锁定特定的表,如果忽略了OF子句，那么所有表中选择的数据行都将被锁定。
   如果这些数据行已经被其他会话锁定，那么正常情况下ORACLE将等待，直到数据行解锁。
 ②使用更新或删除：
  ⑴声明更新或删除显示游标：
   Cursor 游标名 IS  SELECT 语句   For Update [ Of  更新列列名]；
   Cursor 游标名 IS  SELECT 语句   For Delete [ Of  更新列列名]；
  ⑵使用显示游标当前记录来更新或删除：
   Update  表名   SET   更新语句  Where   Current  Of   游标名；
   Delete  From  表名   Where   Current  Of   游标名；

--- 更新
declare
cursor mycur is select job from emp for update;
vjob emp.job%type;
rsal emp.sal%type;
begin
open mycur;
loop
fetch mycur into vjob;
exit when mycur%notfound;
case(vjob)
 when 'ANALYST' then
      dbms_output.put_line('sssss');
       rsal:=0.1;
 else
   rsal :=0;
end case;
update emp set sal=sal+rsal where  current of  mycur;
end loop;
end;

-------------删除
declare
 cursor mycur is select * from dept for update;
 tt dept%rowtype;
 begin
  for tt in mycur loop
    if tt.deptno=10 then
       delete from dept where  current of mycur;
    else
       dbms_output.put_line('sssss');
    end if;
    end loop;
 end;
----------------------------
8，什么是带参数的显示游标？
 ①与过程和函数相似，可以将参数传递给游标并在查询中使用。
  参数只定义数据类型，没有大小(所有Oracle中的形参只定义数据类型，不指定大小)。
  与过程不同的是，--游标只能接受传递的值，而不能返回值。
　  可以给参数设定一个缺省值，当没有参数值传递给游标时，就使用缺省值。
  游标中定义的参数只是一个占位符，在别处引用该参数不一定可靠。
 ②使用带参数的显示游标
  ⑴声明带参数的显示游标：
   CURSOR 游标名  [(parameter[,parameter],...)]    IS   Select语句；;
   参数形式：1，参数名   数据类型  
       2，参数名   数据类型  DEFAULT  默认值
       
Declare
Cursor MyCursor(pSal  Number  Default   1800) is Select *  From  emp Where  SAL >  pSal;
varA  MyCursor%ROWTYPE;
Begin
  open MyCursor;
Loop
Fetch  MyCursor  InTo  varA;
Exit  When  MyCursor%NotFound;
DBMS_OUTPUT.PUT_LINE(MyCursor%RowCount||'    '||varA.empno||'    '||varA.ename||'  '||varA.sal);
End    Loop;
end;

--- 输入部门 查找该部门

declare
b emp.deptno%type;
cursor empcur(d emp.deptno%type) is select * from emp where deptno=d;
begin
b:=&部门编号;
for a in empcur(b)
loop
  if empcur%found=true then
   dbms_output.put_line('ssss---------'||a.ename);
  else
    null;
  end if;
end loop;
end;
--