创建 Oracle 过程

Question

我正在尝试创建一个过程，并且它创建时没有错误。但是，当我尝试运行它时，我会收到以下错误。请告知

SQL> begin
  2   Update_STUD_Fin ( '1011');
  3  end;
  4  /
begin
*
ERROR at line 1:
ORA-06511: PL/SQL: cursor already open
ORA-06512: at "ORAIN.UPDATE_STUD_FIN", line 3
ORA-06512: at "ORAIN.UPDATE_STUD_FIN", line 8
ORA-06512: at line 2

程序是

SQL> CREATE OR REPLACE PROCEDURE Update_STUD_Fin ( AIDY_CODE IN VARCHAR2 ) IS
  2    CURSOR PublicationC IS
  3      SELECT SGidm from SGB
  4       WHERE SGCODE_EFF ='201030';
  5  BEGIN
  6    OPEN PublicationC;
  7  
  8    FOR PublicationR IN PublicationC
  9    LOOP
 10      DBMS_OUTPUT.PUT_LINE( PublicationR.SGidm );
 11    END LOOP;
 12  
 13    close PublicationC;
 14   
 15  END;
 16  /

Procedure created.

Answer 1

您不能显式打开游标并在隐式 FOR 循环中使用它。您可以选择隐式（FOR 循环）或显式（OPEN/FETCH/CLOSE）。

Answer 2

如果您使用带有 FOR/IN/LOOP 的游标，则无需显式打开它。只需写：

SQL> CREATE OR REPLACE PROCEDURE Update_STUD_Fin ( AIDY_CODE IN VARCHAR2 ) IS
  2    CURSOR PublicationC IS
  3      SELECT SGidm from SGB
  4       WHERE SGCODE_EFF ='201030';
  5  BEGIN
  8    FOR PublicationR IN PublicationC
  9    LOOP
 10      DBMS_OUTPUT.PUT_LINE( PublicationR.SGidm );
 11    END LOOP;
 12  
 15  END;
 16  /

Answer 3

6512 错误消息指示 PL-SQL 代码中导致错误的行号。
您确定之前没有收到其他消息吗？

Answer 4

我不知道为什么您会收到 ORA-06512 消息，而上面没有其他错误消息。您确定已粘贴完整的错误消息吗？

ORA-06512 仅在 PL/SQL 代码中引发异常时打印堆栈跟踪时使用。这是一个完整的示例：

ERROR at line 1:
ORA-01001: invalid cursor
ORA-06512: at "USER.SOME_PROCEDURE", line 5
ORA-06512: at line 1

这里真正的错误是 ORA-01001。 ORA-06512 仅说明错误发生的位置：在 USER.SOME_PROCEDURE 的第 5 行，该错误由匿名 PL/SQL 块的第 1 行调用。

查看您的代码，我可以发现几个问题：

• 当使用 FOR ... IN some_cursor LOOP ... 时，您不应该显式打开和关闭游标。这将由 FOR 循环自动为您完成。

• 您也不应该尝试关闭尚未打开的游标。如果您尝试这样做，您将收到 ORA-01001“无效游标”错误消息。我猜您已将其放入以确保游标在打开之前已关闭，但不幸的是您不能这样做。

简而言之，您应该从过程中删除所有 OPEN 和 CLOSE 语句，然后重试。