PL/SQL Cursor常见用法模板 .

1.Loop

[sql] view plaincopyprint?

1. DECLARE  
2.    emp_rec emp%rowtype;  
3.   
4.    CURSOR emp_cur IS  
5.    SELECT *  
6.    FROM emp;  
7.   
8. BEGIN  
9.    OPEN emp_cur;  
10.      
11.    LOOP    
12.      FETCH emp_cur INTO emp_rec;  
13.      EXIT WHEN emp_cur%NOTFOUND;--这个必须有,否则buffer overflow  
14.      dbms_output.put_line (emp_rec.ename || '  ' ||emp_rec.sal );      
15.    END LOOP;  
16.   
17.    CLOSE emp_cur;  
18. END;   

DECLARE   emp_rec emp%rowtype;   CURSOR emp_cur IS   SELECT *   FROM emp;BEGIN   OPEN emp_cur;      LOOP       FETCH emp_cur INTO emp_rec;     EXIT WHEN emp_cur%NOTFOUND;--这个必须有,否则buffer overflow     dbms_output.put_line (emp_rec.ename || '  ' ||emp_rec.sal );       END LOOP;   CLOSE emp_cur;END; 

注：emp_rec必须和emp_cur保持结构一致

2.For Loop

[sql] view plaincopyprint?

1. DECLARE  
2.    
3.  CURSOR emp_cur IS  
4.  SELECT * FROM emp;  
5.   
6. BEGIN  
7.   
8.  FOR emp_rec in emp_cur LOOP    
9.   
10.    dbms_output.put_line(emp_rec.empno || ' ' ||emp_rec.ename || ' ' ||emp_rec.sal);    
11.   
12.  END LOOP;  
13.   
14. END;  

DECLARE  CURSOR emp_cur IS SELECT * FROM emp;BEGIN FOR emp_rec in emp_cur LOOP     dbms_output.put_line(emp_rec.empno || ' ' ||emp_rec.ename || ' ' ||emp_rec.sal);   END LOOP;END;

对于FOR LOOP，无需声明一个record或者一个变量来存储Cursor的值，并且无需显示的Open,Fetch,Close游标

3.For Loop

[sql] view plaincopyprint?

1. DECLARE   
2.   
3. BEGIN   
4.   
5.  FOR emp_rec in (SELECT * FROM emp) LOOP    
6.   
7.  dbms_output.put_line( emp_rec.empno || ' ' ||emp_rec.ename || ' ' ||emp_rec.sal);    
8.   
9.  END LOOP;   
10.   
11. END;  

DECLARE BEGIN  FOR emp_rec in (SELECT * FROM emp) LOOP   dbms_output.put_line( emp_rec.empno || ' ' ||emp_rec.ename || ' ' ||emp_rec.sal);   END LOOP; END;

4.FETCH cursor BULK COLLECT INTO a collection

[sql] view plaincopyprint?

1. DECLARE  
2.    TYPE NameList IS TABLE OF emp.ename%TYPE;  
3.    TYPE SalList IS TABLE OF emp.sal%TYPE;  
4.   
5.    names NameList;  
6.    sals SalList;  
7.   
8.    CURSOR c1 IS SELECT ename,sal FROM emp WHERE job = 'CLERK';  
9.   
10.    l_index NUMBER;  
11. BEGIN  
12.    OPEN c1;  
13.   
14.    FETCH c1 BULK COLLECT INTO names,sals;  
15.      
16.    l_index := names.FIRST;  
17.    LOOP  
18.      EXIT WHEN l_index IS NULL;  
19.   
20.      dbms_output.put_line(names(l_index)||','||sals(l_index));  
21.   
22.      EXIT WHEN l_index = names.LAST;  
23.      l_index := names.NEXT(l_index);  
24.   
25.    END LOOP;  
26.   
27.    CLOSE c1;  
28. END;  

DECLARE   TYPE NameList IS TABLE OF emp.ename%TYPE;   TYPE SalList IS TABLE OF emp.sal%TYPE;   names NameList;   sals SalList;   CURSOR c1 IS SELECT ename,sal FROM emp WHERE job = 'CLERK';   l_index NUMBER;BEGIN   OPEN c1;   FETCH c1 BULK COLLECT INTO names,sals;      l_index := names.FIRST;   LOOP     EXIT WHEN l_index IS NULL;     dbms_output.put_line(names(l_index)||','||sals(l_index));     EXIT WHEN l_index = names.LAST;     l_index := names.NEXT(l_index);   END LOOP;   CLOSE c1;END;

The BULK COLLECT clause lets you fetch entire columns from the result set, or the entire result set at once.