0

运行以下代码时，我得到一个 ORA-01001：无效游标不确定发生了什么，我将其转换为过程并开始发生；

CREATE OR REPLACE PROCEDURE p_student_from_class_list (p_stu_id IN NUMBER) 
IS
--Declaring a variable --
    v_date date; 

    --Creating a Cursor to find data from using the p_stu_id paramenter--
    CURSOR enrollments_cursor IS
        SELECT enrollment_date, stu_id, class_id, status
        FROM enrollments 
        WHERE stu_id = p_stu_id;


BEGIN
    /*Changing the date so the code looks for the classes for the student 
    which was entered in the bind variable above for the last 10 years*/
    v_date := add_months(SYSDATE, -120);
    FOR v_enrollment_record IN enrollments_cursor
    LOOP 
--Displays the student's enrollment date, class ID and Current Status for each    class >they taken in last 10 years,from the value which was entered in the bind    variable--
        IF v_enrollment_record.enrollment_date 
        between v_date AND SYSDATE THEN
            DBMS_OUTPUT.PUT_LINE('Enrollment Date: '
            ||v_enrollment_record.enrollment_date
            ||' Class ID: '||v_enrollment_record.class_id
            ||' Status: '||v_enrollment_record.status);
        END IF;
    END LOOP;
    --Closing the cursor --
    CLOSE enrollments_cursor;

    --Application Express processes the statement--
    COMMIT; 
    --Telling Application Express the procedure has finished--
END p_student_from_class_list;

  --Anonymous Block to run the Procedure--

BEGIN
    p_student_from_class_list(--Student ID--);
END;

正如我所说，代码在程序中运行时正在工作，但由于某种原因，将其创建为程序现在会出现此错误。我一直在绞尽脑汁试图解决这个问题。

4

1 回答 1

2

对于CLOSE用作FOR <record> IN <cursor> LOOP. 您只需要CLOSE手动OPEN编辑（然后FETCH编辑）的光标。

只需删除该行：

    CLOSE enrollments_cursor;

比较FOR LOOP和OPEN-FETCH-CLOSE 模式的文档。

于 2013-05-03T11:23:56.870 回答