游标oracle内的for循环

Question

我已经创建了一个类型

TYPE t_array IS TABLE OF VARCHAR2(15);

一个函数，它接受一个包含“，”作为分隔符的字符串，该函数返回 t_array，它基本上是拆分字符串并返回值列表。

FUNCTION split_string(id IN VARCHAR2)
...
...
....
RETURN t_array;
END split_string;

现在我的存储过程将长字符串作为输入，调用函数来拆分字符串并循环遍历 t_array 并返回一个 CURSOR。

PROCEDURE p_get_xxx(p_id IN VARCHAR2,
                    p_cur_result OUT SYSREFCURSOR)
AS
  l_array schema_name.t_array;
BEGIN
  l_array := split_string(p_id);

  OPEN p_cur_result FOR

  FOR i IN l_array.first .. l_array.last
  LOOP
    SELECT * FROM ........
    WHERE ID = l_array(i);   
  END LOOP;
END p_get_xxx;

我得到一个编译错误：

在 '(' 的位置出现意外的 'FOR'

有没有更好的方法来处理这种情况，还是我在这里遗漏了一些东西？

Answer 1

游标总是在 SELECT 语句上打开。据我所知，没有办法在FOR 循环上打开游标。

在我看来，您确实想动态创建一个 SELECT 语句。我建议如下：

PROCEDURE p_get_xxx(p_id IN VARCHAR2, p_cur_result OUT SYSREFCURSOR)
AS
  l_array schema_name.t_array;
  strSelect_statement  VARCHAR2(4000);
BEGIN
  l_array := split_string(p_id);

  -- Set up the basics of the SELECT statement

  strSelect_statement := 'SELECT * FROM SOME_TABLE WHERE ID IN (';

  FOR i IN l_array.FIRST..l_array.LAST LOOP
    strSelect_statement := strSelect_statement ||
                             '''' || l_array(i) || ''',';
  END LOOP;

  -- Get rid of the unwanted trailing comma

  strSelect_statement := SUBSTR(strSelect_statement, 1,
                                  LENGTH(strSelect_statement)-1);

  -- Add a right parentheses to close the IN list

  strSelect_statement := strSelect_statement || ')';

  -- Open the cursor

  OPEN p_cur_result FOR strSelect_statement;
END p_get_xxx;

祝你好运。