PL/SQL Cursor常见用法模板 .

1.Loop

[sql] view plain copy print ?

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 plain copy print ?

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 plain copy print ?

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 plain copy print ?

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.