Oracle:过程在执行过程中抛出无效数据类型错误ORA-00902:无效数据类型

执行过程时抛出ORA-00902:无效数据类型。

---

如果我注释掉过程中的insert语句，它运行得非常好。这里的问题是什么，请帮助我解决。

要做到这一点，必须在包之外创建类型。这是正确的版本。缺点是，正在创建类型，如果更改表以更改列的类型，可能会忘记修改类型

   CREATE TABLE T1 (EMP_NAME VARCHAR2 (40));

    INSERT INTO t1
         VALUES ('Vinoth');

    COMMIT;

    CREATE TABLE T2 (EMP_NAME VARCHAR2 (40));

    CREATE OR REPLACE PACKAGE TEST_PKG_V
    AS
       PROCEDURE P_MAIN (p_status OUT VARCHAR2);

       TYPE T1_TYPE IS RECORD (EMP_NAME T1.EMP_NAME%TYPE);

       TYPE T1_TBL IS TABLE OF T1_TYPE;
    END TEST_PKG_V;
    /

    CREATE OR REPLACE PACKAGE BODY TEST_PKG_V
    AS
       PROCEDURE P_MAIN (p_status OUT VARCHAR2)
       IS
          LV_T1_TBL   T1_TBL := T1_TBL ();

          CURSOR T1_CUR
          IS
             (SELECT EMP_NAME FROM t1);

       BEGIN
          OPEN T1_CUR;

          LOOP
             FETCH T1_CUR
                BULK COLLECT INTO LV_T1_TBL
                LIMIT 10000;

             INSERT INTO t2 (EMP_NAME)
                SELECT EMP_NAME FROM TABLE (LV_T1_TBL);

             EXIT WHEN T1_CUR%NOTFOUND;
          END LOOP;

          COMMIT;
       EXCEPTION
          WHEN OTHERS
          THEN
             p_status := 'FAIL';
             RAISE;
       END P_MAIN;
    END TEST_PKG_V;
/
DECLARE
VAR VARCHAR2(4000);
BEGIN
TEST_PKG_V.P_MAIN(VAR);
END;

如果您希望您的类型是泛型的并适应您的表，我认为您必须这样做：

CREATE TYPE T1_TYPE AS OBJECT ( EMP_NAME VARCHAR2(40));
CREATE TYPE T1_TBL AS TABLE OF T1_TYPE;

CREATE OR REPLACE PACKAGE TEST_PKG_V
AS
   PROCEDURE P_MAIN (p_status OUT VARCHAR2);
END TEST_PKG_V;
/

CREATE OR REPLACE PACKAGE BODY TEST_PKG_V
AS
   PROCEDURE P_MAIN (p_status OUT VARCHAR2)
   IS
      LV_T1_TBL   T1_TBL;

      CURSOR T1_CUR
      IS
         (SELECT T1_TYPE(EMP_NAME) EMP_NAME FROM t1);

   BEGIN
      OPEN T1_CUR;

      LOOP
         FETCH T1_CUR
            BULK COLLECT INTO LV_T1_TBL
            LIMIT 10000;

         INSERT INTO t2 (EMP_NAME)
            SELECT EMP_NAME FROM TABLE (LV_T1_TBL);

         EXIT WHEN T1_CUR%NOTFOUND;
      END LOOP;

      COMMIT;
   EXCEPTION
      WHEN OTHERS
      THEN
         p_status := 'FAIL';
         RAISE;
   END P_MAIN;
END TEST_PKG_V;
/

或者，您可以直接在光标上进行迭代：

CREATE OR REPLACE PACKAGE TEST_PKG_V AS

   TYPE T1_TYPE IS RECORD (EMP_NAME T1.EMP_NAME%TYPE);
   TYPE T1_TBL IS TABLE OF T1_TYPE;

   PROCEDURE P_MAIN (p_status OUT VARCHAR2);
   FUNCTION GET_T1 RETURN T1_TBL PIPELINED;

END TEST_PKG_V;
/

CREATE OR REPLACE PACKAGE BODY TEST_PKG_V IS

CURSOR T1_CUR IS (SELECT EMP_NAME FROM t1);

FUNCTION GET_T1 RETURN T1_TBL PIPELINED IS
  LV_T1_TBL T1_TBL;
BEGIN
  OPEN T1_CUR;
  FETCH T1_CUR BULK COLLECT INTO LV_T1_TBL;
  CLOSE T1_CUR;
  FOR IDX IN 1..LV_T1_TBL.COUNT LOOP
    PIPE ROW (LV_T1_TBL(IDX));
  END LOOP;
END;

PROCEDURE P_MAIN (p_status OUT VARCHAR2) IS
BEGIN
  INSERT INTO t2 (EMP_NAME) SELECT EMP_NAME FROM TABLE (GET_T1);
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    p_status := 'FAIL';
    RAISE;
END P_MAIN;
END TEST_PKG_V;
/

---

使用：

FORALL indx IN 1。。LV_T1_TBL.COUNT循环插入t2（EMP_NAME）值（LV_T1_TBL（indx））；端环插入语句的位置。更多关于您可以找到的所有声明。
CREATE OR REPLACE PACKAGE TEST_PKG_V AS

   TYPE T1_TYPE IS RECORD (EMP_NAME T1.EMP_NAME%TYPE);
   TYPE T1_TBL IS TABLE OF T1_TYPE;
   PROCEDURE P_MAIN (p_status OUT VARCHAR2);

END TEST_PKG_V;
/

CREATE OR REPLACE PACKAGE BODY TEST_PKG_V IS

PROCEDURE P_MAIN (p_status OUT VARCHAR2) IS
  CURSOR T1_CUR IS (SELECT EMP_NAME FROM t1);
BEGIN
  FOR CURRENT_ROW IN T1_CUR LOOP
    INSERT INTO t2 (EMP_NAME) VALUES (CURRENT_ROW.EMP_NAME);
  END LOOP;
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    p_status := 'FAIL';
    RAISE;
END P_MAIN;

END TEST_PKG_V;
/