如何执行带参数的包

Question

我有两张桌子：

students(student_id, first_name, last_name)
classes(classid, incharge_student_id)

我编写了一个包，它将classid 作为参数，然后为每个班级表的incharge_student_id 从学生表中打印student_id, first_name, last_name

CREATE OR REPLACE PACKAGE pack1
AS
PROCEDURE show_info(c_id classes.classid%TYPE DEFAULT 1, show_info_recordset OUT SYS_REFCURSOR);

END pack1;
/
CREATE OR REPLACE PACKAGE BODY pack1
AS
    PROCEDURE show_info 
    (   
    c_id   NUMBER DEFAULT 1,
    show_info_recordset OUT SYS_REFCURSOR
    )
    IS
       v_first_name students.first_name%TYPE;
       v_last_name students.last_name%TYPE;
       v_students students.student_id%TYPE;
    BEGIN
       SELECT students.first_name, students.last_name, students.student_id
         INTO v_first_name, v_last_name, v_students
         FROM students, classes
         WHERE (classes.classid = c_id AND classes.incharge_student_id=students.student_id);
       DBMS_OUTPUT.PUT_LINE('Class ID: ' || c_id);
       DBMS_OUTPUT.PUT_LINE('FIRST NAME: ' || v_first_name);
       DBMS_OUTPUT.PUT_LINE('LAST NAME: ' || v_last_name);
       DBMS_OUTPUT.PUT_LINE('student_id: ' || v_students);
    EXCEPTION
       WHEN NO_DATA_FOUND THEN
          DBMS_OUTPUT.PUT_LINE('Class ID: ' || c_id || ' not found.');
    END;
END pack1;
/

我收到警告消息

Package Body created with compilation errors.

我对 pl/sql 很陌生，想知道为什么会收到错误消息，然后还想知道如何执行一个有参数的包。

我知道如何执行普通包：

variable x refcursor;
exec package_name.procedure_name ( :x );
print x;

但是我将如何使用参数执行我上面的包

Answer 1

您的代码中有几个错误，见下文：

CREATE OR REPLACE PACKAGE pack1
AS
PROCEDURE show_info(c_id classes.classid%TYPE, show_info_recordset OUT SYS_REFCURSOR);

END pack1;
/
CREATE OR REPLACE PACKAGE BODY pack1
AS
    PROCEDURE show_info 
    (   
    c_id   NUMBER DEFAULT -1,

正文中c_id参数的规范与规范中的规范不匹配。将其更改为c_id classes.classid%type default 1，并将default 1 限定符添加到井上方的规范中。

    show_info_recordset OUT SYS_REFCURSOR
    )
    IS
       v_first_name IN students.first_name%TYPE;
       v_last_name IN students.last_name%TYPE;
       v_students IN students.student_id%TYPE;

删除变量声明中的“IN”关键字。它仅用于参数声明。

    BEGIN
       SELECT students.first_name, students.last_name, students.student_id
         INTO v_first_name, v_last_name, v_students.student_id

在子句中引用 v_students 而不是 v_students.student_id

         FROM students, classes
         WHERE (classes.classid = c_id AND classes.incharge_student_id=students.student_id;);

右括号内有一个额外的分号 (;)。删除它。

       DBMS_OUTPUT.PUT_LINE('Class ID: ' || c_id);
       DBMS_OUTPUT.PUT_LINE('FIRST NAME: ' || v_first_name);
       DBMS_OUTPUT.PUT_LINE('LAST NAME: ' || v_last_name);
       DBMS_OUTPUT.PUT_LINE('student_id: ' || v_students);
    EXCEPTION
       WHEN NO_DATA_FOUND THEN
          DBMS_OUTPUT.PUT_LINE('Class ID: ' || c_id || ' not found.');
    END;
END pack1;
/

要执行此代码，您只需要传入附加参数，或者使用@Littlefoot 提到的命名参数，但由于您没有将光标分配给 out 参数，因此不会打印任何内容。

Answer 2

如果您使用 SQL*Plus，请执行

SQL> show err

编译包后；它会将您指向导致错误的行。例如：

SQL> create or replace procedure p_test is
  2  begin
  3    select 1 from dual;
  4  end;
  5  /

Warning: Procedure created with compilation errors.

SQL> show err
Errors for PROCEDURE P_TEST:

LINE/COL ERROR
-------- -----------------------------------------------------------------
3/3      PLS-00428: an INTO clause is expected in this SELECT statement
SQL>

如果您使用 GUI，它可能包含您可以检查的“错误”选项卡（并获得相同的信息）。

在调用带有参数的过程时：只需包含它们，例如

variable x refcursor;
exec package_name.procedure_name (100, :x );
print x;                           ^
                                   |
                                  this is the first procedure's parameter

Answer 3

删除变量名后的 IN ，您需要运行 PROCEDURE 而不是包，这也是为什么您要在您的情况下定义一个过程，最好让它发挥作用