Question

我看到stackoverflow中有很多类似的问题，但没有人回答我的问题。

问题出在哪里？

CREATE OR REPLACE
PROCEDURE "PR_TESTE"( sl_cursor OUT SYS_REFCURSOR)  
IS
    stm varchar(30000);
BEGIN
    stm := 'SELECT * from tb_device_type';
    OPEN sl_cursor FOR  stm ;
END;

Answer 1

您的代码没有问题。问题可能出在调用此过程的函数/ proc中。确保在那里定义了光标。我将你的表tb_device_type替换为tab。这个片段工作正常。

CREATE OR REPLACE
PROCEDURE "PR_TESTE"( sl_cursor OUT SYS_REFCURSOR)  
IS
    stm varchar(30000);
BEGIN
    stm := 'SELECT * from tab';
    OPEN sl_cursor FOR  stm ;
END;

-----
declare
  l_cur  sys_refcursor;
  l_tname tab.tname%type;
  l_tabtype tab.tabtype%type;
  l_clusterid tab.clusterid%type;
begin
  pr_teste(l_cur);
  loop
    fetch l_cur into l_tname, l_tabtype, l_clusterid;
    exit when l_cur%notfound;
    dbms_output.put_line(l_tname);
  end loop;
end;

Answer 2

Oracle 11g - Running PL/SQL Cursors

和

Oracle Cursors

PLS-00201：标识符＆＃39; CURSOR＆＃39;必须申报

2 个答案: