急！在線等﹒在Oracle中寫一個存儲過程返回一個數據集

Question

CREATE OR REPLACE PACKAGE pkg_test
AS
   TYPE myrctype IS REF CURSOR;   PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
END pkg_test;
/CREATE OR REPLACE PACKAGE BODY pkg_test
AS
   PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)
   IS
      sqlstr   VARCHAR2 (500);
   BEGIN
               sqlstr :=
            'select   *  from  v_tablename';
         OPEN p_rc FOR sqlstr;
      END IF;
   END get;
END pkg_test;
/

Answer 1

CREATE OR REPLACE PACKAGE pkg_test
AS
   TYPE myrctype IS REF CURSOR;   PROCEDURE get (v_tablename in varchar2, p_rc OUT myrctype);
END pkg_test;
/CREATE OR REPLACE PACKAGE BODY pkg_test
AS
   PROCEDURE get (v_tablename in varchar2, p_rc OUT myrctype)
   IS
      sqlstr   VARCHAR2 (500);
   BEGIN
               sqlstr :=
            'select   *  from'||  v_tablename;
         OPEN p_rc FOR sqlstr;
      END IF;
   END get;
END pkg_test;
/