oracle光標的使用

 

以下plsql程序用的scott用戶的dept,emp表。

 

1.光標的使用:

--查詢並打印員工的姓名名和薪水
/*
光標屬性:
  %found  %notfound

*/

set serveroutput on;

declare

  CURSOR C1 IS SELECT ENAME,SAL FROM EMP;
  PENAME EMP.ENAME%TYPE;
  PSAL EMP.SAL%TYPE;
 
BEGIN

  --打開光標
  OPEN C1;  
 
  LOOP
   
    --取一條記錄,
    FETCH C1 INTO PENAME,PSAL ;
    EXIT WHEN C1%notfound;
    --1.循環什么時候退出  2.FETCH一定能取到數據嗎
    DBMS_OUTPUT.PUT_LINE(PENAME||'的薪水是'||PSAL);
  END LOOP;
 
  --關閉光標
  CLOSE C1;

END;
/

 

2.給員工漲工資

--給員工漲工資, 總裁漲1000 ，經理漲800 ，其他 400

set serveroutput on;

declare

  cursor cemp is select empno,job from emp;
  pempno emp.empno%type;
  pjob emp.job%type;
 
 
begin
 
  open cemp;
  loop
 
    fetch cemp into pempno,pjob ;
    exit when cemp%notfound;
   
    IF pjob = 'PRESIDENT' then  update emp set sal= sal + 1000 where empno = pempno;
    ELSIF pjob = 'MANAGER' then  update emp set sal=sal+800 where empno = pempno;
    ELSE update emp set sal=sal + 400 where  empno = pempno;
    END IF;
   
  end loop;
 
  close cemp;

  commit;
 --對應oracle ,默認的事務隔離級別是 read committed
 --事務的ACID :原子性 一致性 隔離性 持久性
  SYS.DBMS_OUTPUT.PUT_LINE('漲工資完成');
 
 

end;

/

 

3.操作帶參數的光標

--查詢某個部門中員工的姓名

set serveroutput on;

declare

  cursor cemp(dno number) is select ename from emp where deptno = dno;
  pename emp.ename%type;
 
begin
  open cemp(10);
  dbms_output.put_line('10號部門的人有:');
  loop
   
    fetch cemp into pename;
    exit when cemp%notfound;
    dbms_output.put_line(pename);
 
  end loop;
 
 
 
  close cemp;

end;

/

 

 

知識點出處: http://www.imooc.com/learn/360