PLSQL：当数据不是来自该类型时，FORALL 插入

Question

我想使用 FORALL 将数据插入 table。但是，在我下面的代码中，我将无法在 l_tbl_table_test_retrieve.

的 FOR 循环之外获取 l_final_amt 和 l_reference_number 变量

当值不属于给定类型时，如何使用 FORALL 将数据插入 table？

CREATE OR REPLACE PACKAGE test_FORALL AS
PROCEDURE pr_test_FORALL;
END test_FORALL;

CREATE OR REPLACE PACKAGE BODY test_FORALL AS
PROCEDURE pr_test_FORALL IS

TYPE ty_tbl_table_test IS TABLE OF table_test%ROWTYPE INDEX BY BINARY_INTEGER;
l_tbl_table_test_retrieve            ty_tbl_table_test;
l_tbl_table_test                     ty_tbl_table_test;
l_final_amt                          INTEGER;
l_reference_number                   VARCHAR2(100);

BEGIN
          SELECT * BULK COLLECT
          INTO   l_tbl_table_test_retrieve
          FROM   table_test t1;

          FOR i IN 1 .. l_tbl_table_test_retrieve.COUNT
          LOOP

          l_tbl_table_test(l_tbl_table_test.COUNT + 1) := l_tbl_table_test_retrieve(i);
          l_final_amt := l_final_amt + 10;
          l_reference_number := SYSDATE + l_tbl_table_test_retrieve(i).ID;

          insert into some_other_table(fname, address,final_amt,ref_number)
          values(l_tbl_table_test_retrieve(i).fname, l_tbl_table_test_retrieve(i).address,l_final_amt,l_reference_number); 

          END LOOP;

        --I want to insert into some_other_table using FORALL. But,l_final_amt and l_reference_number variables
          -- are not available in l_tbl_table_test_retrieve.    

EXCEPTION
DBMS_OUTPUT.put_line('EXCEPTION occurred');

END;

END pr_test_FORALL;
END test_FORALL;

Answer 1

使用游标并将字段添加到游标返回的行中：

PROCEDURE pr_test_FORALL IS
  DECLARE csrData AS CURSOR FOR
    SELECT t1.*,
           NULL AS COUNT_VAL,
           NULL AS FINAL_AMT,
           NULL AS REFERENCE_NUMBER
      FROM TABLE_TEST t1;

  TYPE ty_tbl_table_test IS
    TABLE OF csrData%ROWTYPE  -- Note: csrData%ROWTYPE
      INDEX BY BINARY_INTEGER;

  l_tbl               ty_tbl_table_test;
  l_final_amt         INTEGER := 0;
  l_reference_number  VARCHAR2(100);
BEGIN
  OPEN csrData

  FETCH csrData
    BULK COLLECT INTO l_tbl;

  CLOSE csrData;

  FOR i IN 1 .. l_tbl.COUNT LOOP
    l_final_amt := l_final_amt + 10;
    l_tbl(i).FINAL_AMT := l_final_amt;
    l_tbl(i).REFERENCE_NUMBER := SYSDATE + l_tbl(i).ID;
  END LOOP;

  FORALL i IN l_tbl.FIRST..l_tbl.LAST
    INSERT INTO SOME_OTHER_TABLE
      (FNAME, ADDRESS, FINAL_AMT, REF_NUMBER)
    VALUES
      (l_tbl(i).FNAME,
       l_tbl(i).ADDRESS,
       l_tbl(i).FINAL_AMT,
       l_tbl(i).REFERENCE_NUMBER);
EXCEPTION
  DBMS_OUTPUT.put_line('EXCEPTION occurred');
END pr_test_FORALL;

Answer 2

您可以将整个内容转换为以下形式的两个插入到所需的表格中。

我看到在您的代码中 l_reference_number 被定义为 VARCHAR2 变量，但它听起来像一个数字。 ( SYSDATE + some_number ) 将产生一个日期类型。当您将其分配给 varchar2 时，它将根据您的 NLS_ 设置隐式转换为字符串。我不确定你想在那里存储什么作为“REFERENCE_NUMBER”。

 INSERT INTO some_other_table (
      fname,
      address,
      final_amt,
      ref_number
 )
      SELECT fname,
             address,
             10 * ROWNUM  AS final_amt,
             SYSDATE + id  as reference_number 
      FROM table_test;

PLSQL：当数据不是来自该类型时，FORALL 插入

PLSQL : FORALL insert when data is NOT from the type

oracle

plsql

bulkinsert

insert

forall