zl程序教程

您现在的位置是:首页 >  数据库

当前栏目

oracle在一个存储过程中调用另一个返回游标的存储过程

Oracle存储 一个 过程 调用 返回 游标
2023-06-13 09:14:12 时间
第一种情况是返回的游标是某个具体的表或视图的数据,如:
SQL-Code:
复制代码代码如下:

CREATEORREPLACEPROCEDUREP_TESTA(
PRESULTOUTSYS_REFCURSOR
)
AS
BEGIN
OPENPRESULTFORSELECT*FROMUSERS;
ENDP_TESTA;

其中USERS就是数据库中一个表。在调用的时候只要声明一个该表的ROWTYPE类型就可以了:
SQL-Code:
复制代码代码如下:

CREATEORREPLACEPROCEDUREP_TESTB
AS
VARCURSORSYS_REFCURSOR;
RUSERS%ROWTYPE;
BEGIN
P_TESTA(VARCURSOR);
LOOP
FETCHVARCURSORINTOR;
EXITWHENVARCURSOR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(R.NAME);
ENDLOOP;
ENDP_TESTB;

第二种情况,我们返回的不是表的所有的列,或许只是其中一列或两列,如:
SQL-Code:
复制代码代码如下:
CREATEORREPLACEPROCEDUREP_TESTA(
PRESULTOUTSYS_REFCURSOR
)
AS
BEGIN
OPENPRESULTFORSELECTID,NAMEFROMUSERS;
ENDP_TESTA;

这里我们只返回了USERS表的ID,NAME这两个列,那么调用的时候也必须做相应的修改:
SQL-Code:
复制代码代码如下:
CREATEORREPLACEPROCEDUREP_TESTB
AS
VARCURSORSYS_REFCURSOR;
CURSORTMPCURSORISSELECTID,NAMEFROMUSERSWHEREROWNUM=1;
RTMPCURSOR%ROWTYPE;
BEGIN
P_TESTA(VARCURSOR);
LOOP
FETCHVARCURSORINTOR;
EXITWHENVARCURSOR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(R.ID);
ENDLOOP;
ENDP_TESTB;

与之前不同的是我们声明了一个游标类型的变量TMPCURSOR,注意TMPCURSOR的结构必须与存储过程P_TESTA返回的游标结构一致,否则就会出现错误。同理只要保持两个游标类型结构一致,就可以实现自由调用。