让我们创建两个测试过程:
CREATE OR REPLACE PROCEDURE Aaaa_Test1(
pDog SYS_REFCURSOR
) IS
TYPE tDogRec is record (objid varchar2(7), lim number, debt number);
TYPE tDog IS TABLE OF tDogRec;
vDog tDog;
BEGIN
IF pDog%ISOPEN THEN
FETCH pDog BULK COLLECT INTO vDog;
IF vDog.count >= 1 THEN
FOR i IN vDog.First..vDog.Last LOOP
Dbms_Output.Put_Line('Aaaa_Test1 = '||vDog(i).Objid);
END LOOP;
END IF;
END IF;
END; -- Aaaa_Test1 Procedure
/
CREATE OR REPLACE PROCEDURE Aaaa_Test2(
pDog SYS_REFCURSOR
) IS
TYPE tDogRec is record (objid varchar2(7), lim number, debt number);
TYPE tDog IS TABLE OF tDogRec;
vDog tDog;
BEGIN
IF pDog%ISOPEN THEN
FETCH pDog BULK COLLECT INTO vDog;
IF vDog.count >= 1 THEN
FOR i IN vDog.First..vDog.Last LOOP
Dbms_Output.Put_Line('Aaaa_Test2 = '||vDog(i).Objid);
END LOOP;
END IF;
END IF;
END; -- Aaaa_Test2 Procedure
然后,让我们尝试打开光标,并将其按顺序传递给以下过程:
DECLARE
Vcdogcur SYS_REFCURSOR;
BEGIN
OPEN Vcdogcur FOR
select '6518535' objid, 10000 lim,0 debt
from dual
union all
select '6518536', 0,500
from dual
union all
select '5656058', 0,899
from dual
union all
select '2180965', 5000,0
from dual
union all
select '2462902', 0,100
from dual;
Aaaa_Test1(Vcdogcur);
Aaaa_Test2(Vcdogcur);
CLOSE Vcdogcur;
END;
正如您所看到的,我不能在第二个过程中使用已经提取的游标,因为ORACLE游标是向前的和只读的。有什么方法可以帮助解决这项任务?
我不能简单地把这些程序结合在一起。需要将它们的逻辑彼此分离。
您需要打开光标两次。使用字符串变量来保存查询将防止您编写两次查询。
DECLARE
Vcdogcur SYS_REFCURSOR;
dyn_query varchar2(500);
BEGIN
dyn_query := 'select ''6518535'' objid, 10000 lim,0 debt
from dual
union all
select ''6518536'', 0,500
from dual
union all
select ''5656058'', 0,899
from dual
union all
select ''2180965'', 5000,0
from dual
union all
select ''2462902'', 0,100
from dual' ;
open Vcdogcur for dyn_query ;
Aaaa_Test1(Vcdogcur);
CLOSE Vcdogcur;
open Vcdogcur for dyn_query ;
Aaaa_Test2(Vcdogcur);
close Vcdogcur;
END;
/
光标不是为了重复使用而设计的:只需读取一次,就可以继续前进,在这样做的过程中,您将丢弃任何以前扫描过的行。想想Java流。。。这是一个特性,而不是一个bug——游标的内存/磁盘效率非常高。
因此,选项是:1) 正如Nicolas提到的,关闭并重新打开同一个光标。两次运行同一查询将导致性能损失2) 将查询结果存储在临时表中(适用于非常大的集合,因为它将使用磁盘)3) 将查询结果存储在集合中(嵌套表-适合中小型表)4) 如果你真的不能完成上面的任何简单的解决方案,你可以试着处理你的代码,这样你就有了一个"调度"过程,读取光标,然后将每一行传递给你的2个"工作者"过程。您必须修改存储的proc才能一次处理行