Oracle PL/SQL 关于游标的介绍

妖狐艹你老母 2024-04-17 23:50 68阅读 0赞

游标是指向私有 SQL 区（private SQL area）的指针，私有 SQL 区中存储着关于 SELECT 或 DML 语句的处理信息。  
  
 (1) 隐式游标  
 隐式游标是指被后台 PL/SQL 创建和管理的会话游标。当你执行一条 SELECT 或 DML 语句的时候，PL/SQL 会打开一个隐式游标。  
 用户不可以控制隐式游标，但是获取隐式游标的属性。  
  
 隐式游标的属性如下：  
  
 SQL%ISOPEN 游标是否打开  
  
 SQL%FOUND 结果集中还有行数  
  
 SQL%NOTFOUND 结果集中没有行数  
  
 SQL%ROWCOUNT 执行的行数  
  
 SQL%BULK\_ROWCOUNT FORALL 语句的执行行数  
  
 SQL%BULK\_EXCEPTIONS 当 FORALL 语句完成时所处理的 FORALL 异常  
  
 \--例子  
DROP TABLE dept\_temp;  
 CREATE TABLE dept\_temp AS  
   SELECT \* FROM dept;  
    
 CREATE OR REPLACE PROCEDURE p (  
   deptno NUMBER  
 ) AUTHID DEFINER AS  
 BEGIN  
   DELETE FROM dept\_temp  
   WHERE deptno = deptno;  
    
   IF SQL%FOUND THEN  
     DBMS\_OUTPUT.PUT\_LINE (  
       'Delete succeeded for department number ' || deptno  
     );  
   ELSE  
     DBMS\_OUTPUT.PUT\_LINE ('No department number ' || deptno);  
   END IF;  
 END;  
  
 SQL> BEGIN  
   2    p(40);  
   3    p(50);  
   4  END;  
   5  /  
 Delete succeeded for department number 40  
 No department number 50  
  
 PL/SQL 过程已成功完成。  
  
 (2) 显式游标  
 显式游标是指被用户创建和管理的会话游标。你必须声明和定义一个显式游标，让它和一个查询相关联。  
  
 \--例子，循环显式游标中的结果  
  
DECLARE  
   CURSOR c1 IS  
     SELECT last\_name, job\_id FROM hr.employees  
     WHERE REGEXP\_LIKE (job\_id, 'S\[HT\]\_CLERK')  
     ORDER BY last\_name;  
  
   v\_lastname  hr.employees.last\_name%TYPE;  -- variable for last\_name  
   v\_jobid     hr.employees.job\_id%TYPE;     -- variable for job\_id  
  
   CURSOR c2 IS  
     SELECT \* FROM hr.employees  
     WHERE REGEXP\_LIKE (job\_id, '\[ACADFIMKSA\]\_M\[ANGR\]')  
     ORDER BY job\_id;  
  
   v\_employees hr.employees%ROWTYPE;  -- record variable for row of table  
  
 BEGIN  
   OPEN c1;  
   LOOP  -- Fetches 2 columns into variables  
     FETCH c1 INTO v\_lastname, v\_jobid;  
     EXIT WHEN c1%NOTFOUND;  
     DBMS\_OUTPUT.PUT\_LINE( RPAD(v\_lastname, 25, ' ') || v\_jobid );  
   END LOOP;  
   CLOSE c1;  
   DBMS\_OUTPUT.PUT\_LINE( '-------------------------------------' );  
  
   OPEN c2;  
   LOOP  -- Fetches entire row into the v\_employees record  
     FETCH c2 INTO v\_employees;  
     EXIT WHEN c2%NOTFOUND;  
     DBMS\_OUTPUT.PUT\_LINE( RPAD(v\_employees.last\_name, 25, ' ') ||  
                                v\_employees.job\_id );  
   END LOOP;  
   CLOSE c2;  
 END;  
  
\-------------------------------------  
 Higgins                  AC\_MGR  
 Greenberg                FI\_MGR  
 Hartstein                MK\_MAN  
 Russell                  SA\_MAN  
 Partners                 SA\_MAN  
 Errazuriz                SA\_MAN  
 Cambrault                SA\_MAN  
 Zlotkey                  SA\_MAN  
  
 PL/SQL 过程已成功完成。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26506993/viewspace-1986738/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26506993/viewspace-1986738/