Question

我正在尝试使用forall更新员工的工资。每当更新时发生任何错误，我需要保存已发生的员工ID错误。但它在编译时会出现以下错误错误（14,24）：PLS-00201：必须声明标识符'INDX'

以下是我的代码

PROCEDURE PROC1 (V_EMP_ID DBMS_SQL.NUMBER_TABLE)
IS
     lv_error_string VARCHAR2(4000);
BEGIN
    FORALL INDX IN V_EMP_ID.FIRST..V_EMP_ID.LAST SAVE EXCEPTIONS
    EXECUTE IMMEDIATE 'UPDATE EMPLOYEES SET SALARY=SALARY+10000 WHERE EMP_ID=:1'
    USING V_EMP_ID(INDX);
EXCEPTION
    WHEN OTHERS 
    THEN
    FOR J IN 1 .. SQL%BULK_EXCEPTIONS.COUNT
    LOOP
       lv_error_string:=lv_error_string
                    ||sqlerrm (-sql%bulk_exceptions(j).error_code)
                    || ' for'||V_EMP_ID(INDX);
    END LOOP;
END;

Answer 1

使用此：错误是在exception block中您试图访问begin block中正在使用的循环变量。

因此，|| ' for'||V_EMP_ID(INDX);应为|| ' for'||V_EMP_ID(J);

CREATE OR REPLACE PROCEDURE PROC1 (V_EMP_ID DBMS_SQL.NUMBER_TABLE)
IS
     lv_error_string VARCHAR2(4000);
BEGIN
    FORALL INDX IN V_EMP_ID.FIRST..V_EMP_ID.LAST SAVE EXCEPTIONS
    EXECUTE IMMEDIATE 'UPDATE EMPLOYEES SET SALARY=SALARY+10000 WHERE EMP_ID=:1'
    USING V_EMP_ID(INDX);
EXCEPTION
    WHEN OTHERS 
    THEN
    FOR J IN 1 .. SQL%BULK_EXCEPTIONS.COUNT
    LOOP
       lv_error_string:=lv_error_string
                    ||sqlerrm (-sql%bulk_exceptions(j).error_code)
                    || ' for'||V_EMP_ID(J);
    END LOOP;
END;

如果您可以轻松执行以下操作，请不要确定为何使用Execute Immediate：

CREATE OR REPLACE PROCEDURE PROC1 (V_EMP_ID DBMS_SQL.NUMBER_TABLE)
IS
     lv_error_string VARCHAR2(4000);
BEGIN
    FORALL INDX IN V_EMP_ID.FIRST..V_EMP_ID.LAST SAVE EXCEPTIONS
    UPDATE EMPLOYEES 
    SET SALARY=SALARY+10000 
    WHERE EMP_ID= V_EMP_ID(INDX);

EXCEPTION
    WHEN OTHERS 
    THEN
    FOR J IN 1 .. SQL%BULK_EXCEPTIONS.COUNT
    LOOP
       lv_error_string:=lv_error_string
                    ||sqlerrm (-sql%bulk_exceptions(j).error_code)
                    || ' for'||V_EMP_ID(J);
    END LOOP;
END;

Answer 2

我建议使用单个DML语句。是的DML错误loggins是可能的。希望这有帮助

--Creating a error log table
BEGIN
  DBMS_ERRLOG.create_error_log (dml_table_name => 'EMPLOYEES');
END;
/
--ERR$_EMPLOYEES --> Errro table created


--Insertion with erroreous record
UPDATE EMPLOYEES
SET SALARY         = SALARY + 10000
where EMP_ID               in (<EMP_ID COLLECTION array
OR simple EMP_IDs>) LOG ERRORS
INTO ERR$_EMPLOYEES ('UPDATE') REJECT LIMIT UNLIMITED;

--Error will be logged into ERR$_EMPLOYEES table

从所有保存例外中获取失败的id

2 个答案: