过程游标返回变量并遍历查询

Question

我对此程序有疑问。 我想做的是传入一个变量，即ID，然后设置一个可靠的变量并返回查询/游标。 昨天我在这方面得到了一些帮助，但某些地方不正确，因此无法编译。 有人可以帮我解决这个问题吗？ 这是我到目前为止所拥有的。

PROCEDURE SEEKER (pMonkeyID IN VARCHAR2, vMarkCounter OUT Number, seeker_cur OUT TYPES.ref_cursor)
AS
BEGIN

CURSOR seeker_cur IS
    Select monkey_doc_approved, monkey_doc_vaulted
    from monkeyApps 
    where MonkeyID = pMonkeyID
    and monkey_doc_type = 'Banana' 
    order by monkey_doc_approved_timestamp,monkey_doc_type,monkey_doc_approved desc

vMarkCounter number:=0;
BEGIN
  FOR i IN seeker_cur 
  LOOP
    vMarkCounter := vMarkCounter+1;
  END LOOP;
END;

END SEEKER;

我不确定我将光标设置为向右返回，也不确定我是否正确循环以设置MonkeyMarker。 游标需要和标记一起返回，因为我同时处理了一些前端逻辑。

谢谢，弗兰克

Answer 1

我认为同时获取记录和数量是错误的。 但是，如果这就是您想要的，您可以这样做：

PROCEDURE SEEKER (pMonkeyID IN VARCHAR2, vMarkCounter OUT Number, seeker_cur OUT TYPES.ref_cursor)
AS

BEGIN

    OPEN seeker_cur for Select monkey_doc_approved, monkey_doc_vaulted 
                         from monkeyApps where MonkeyID = pMonkeyID  and monkey_doc_type = 'Banana' order by monkey_doc_approved_timestamp,monkey_doc_type,monkey_doc_approved desc;

    Select count(*) INTO vMarkCounter  from (Select monkey_doc_approved, monkey_doc_vaulted 
                         from monkeyApps where MonkeyID = pMonkeyID  and monkey_doc_type = 'Banana');


END SEEKER;

但是再次，请检查您是否真的需要对行进行计数，甚至在获取它们之前...

Answer 2

我会同意AB Cade的观点，但我不明白为什么需要记录和计数。但是，应该很少甚至不需要在PL \\ SQL中循环游标； 您可以改用bulk collect ，这将返回您想要的内容。

如果您没有那么多记录，比如说少于5万，我将取消批量收集的limit 10000部分的limit 10000 ； 您可以只使用t_seeker.count ，它会给您答案。

PROCEDURE SEEKER ( pMonkeyID IN VARCHAR2
                 , vMarkCounter OUT Number
                 , c_seeker OUT TYPES.ref_cursor) IS

  cursor c_seeker is
    select monkey_doc_approved, monkey_doc_vaulted
      from monkeyApps 
     where MonkeyID = pMonkeyID
       and monkey_doc_type = 'Banana' 
     order by monkey_doc_approved_timestamp
            , monkey_doc_type
            , monkey_doc_approved desc
           ;

  type t__seeker is table of c_seeker%rowtype index by binary_integer;
  t_seeker t__seeker;

  vMarkCounter number := 0;

begin

  open c_seeker;
  loop

     fetch c_seeker bulk collect into t_seeker limit 10000;

     vMarkCounter := vMarkCounter + t_seeker.count;

  end loop;

  -- OP want's to return a ref_cursor.
  --close c_seeker;

end seeker;
/