0

我想用来FORALL将数据插入到表中。但是，在我下面的代码中l_final_amt，我将无法l_reference_number在.FORl_tbl_table_test_retrieve

FORALL当值不在给定类型中时，如何使用将数据插入表中？

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;
4

2 回答 2

0

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

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;
于 2018-10-18T13:28:53.493 回答
0

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

我看到在你的代码l_reference_number中被定义为一个VARCHAR2变量，但它听起来像一个数字。( SYSDATE + some_number) 将产生一个日期类型。NLS_当您将其分配给 varchar2 时，它将根据您的设置隐式转换为字符串。我不确定你想在那里存储什么作为“ 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;
于 2018-10-18T13:37:27.157 回答