oracle光标的使用

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

1.光标的使用:

1 --查询并打印员工的姓名名和薪水
 2 /*
 3 光标属性:
 4   %found  %notfound
 5 
 6 */
 7 
 8 set serveroutput on;
 9 
10 declare
11 
12   CURSOR C1 IS SELECT ENAME,SAL FROM EMP;
13   PENAME EMP.ENAME%TYPE;
14   PSAL EMP.SAL%TYPE;
15  
16 BEGIN
17 
18   --打开光标
19   OPEN C1;  
20  
21   LOOP
22    
23     --取一条记录,
24     FETCH C1 INTO PENAME,PSAL ;
25     EXIT WHEN C1%notfound;
26     --1.循环什么时候退出  2.FETCH一定能取到数据吗
27     DBMS_OUTPUT.PUT_LINE(PENAME||'的薪水是'||PSAL);
28   END LOOP;
29  
30   --关闭光标
31   CLOSE C1;
32 
33 END;
34 /      

2.给员工涨工资

1 --给员工涨工资, 总裁涨1000 ，经理涨800 ，其他 400
 2 
 3 set serveroutput on;
 4 
 5 declare
 6 
 7   cursor cemp is select empno,job from emp;
 8   pempno emp.empno%type;
 9   pjob emp.job%type;
10  
11  
12 begin
13  
14   open cemp;
15   loop
16  
17     fetch cemp into pempno,pjob ;
18     exit when cemp%notfound;
19    
20     IF pjob = 'PRESIDENT' then  update emp set sal= sal + 1000 where empno = pempno;
21     ELSIF pjob = 'MANAGER' then  update emp set sal=sal+800 where empno = pempno;
22     ELSE update emp set sal=sal + 400 where  empno = pempno;
23     END IF;
24    
25   end loop;
26  
27   close cemp;
28 
29   commit;
30  --对应oracle ,默认的事务隔离级别是 read committed
31  --事务的ACID :原子性 一致性 隔离性 持久性
32   SYS.DBMS_OUTPUT.PUT_LINE('涨工资完成');
33  
34  
35 
36 end;
37 
38 /      

3.操作带参数的光标

1 --查询某个部门中员工的姓名
 2 
 3 set serveroutput on;
 4 
 5 declare
 6 
 7   cursor cemp(dno number) is select ename from emp where deptno = dno;
 8   pename emp.ename%type;
 9  
10 begin
11   open cemp(10);
12   dbms_output.put_line('10号部门的人有:');
13   loop
14    
15     fetch cemp into pename;
16     exit when cemp%notfound;
17     dbms_output.put_line(pename);
18  
19   end loop;
20  
21  
22  
23   close cemp;
24 
25 end;
26 
27 /      

知识点出处: http://www.imooc.com/learn/360