BULK COLLECT和dbms_sql的用法

Question

我在阅读更多关于BULK COLLECT和dbms_sql的用法，并尝试将其应用于我的一个过程 在我的存储过程中，核心逻辑是从另一个值的INSERT到表中表作为

CREATE OR replace PROCEDURE My_procedure (pi_date  IN DATE, 
              po_error  OUT VARCHAR2, 
              po_error_desc OUT nocopy VARCHAR2) 
AS 
    curr_date DATE; 
BEGIN 
    CURR_DATE := PI_DATE; 

    INSERT INTO t1 
       (col1, 
       col2, 
       col3, 
       col4, 
       col5) 
    SELECT t2.col1, 
      t2.col2, 
      t2.col3, 
      t2.col4, 
      CURR_DATE 
EXCEPTION 
    WHEN OTHERS THEN 
      PO_ERROR := -1; 

      PO_ERROR_DESC := 'proc nam : ' 
           || 'my_procedure' 
           || ', err_num :' 
           || SQLCODE 
           || ' | , err_msg :' 
           || SQLERRM; 

      ROLLBACK; 

      DBMS_SESSION.free_unused_user_memory; 
END; 

但是因为这将被插入到另一个表中的数据是巨大的，在我的第二次修改程序

我已经使用BULK收集和DBMS_SQL如下

CREATE OR replace PROCEDURE My_procedure (pi_date  DATE, 
              po_error  OUT VARCHAR2, 
              po_error_desc OUT nocopy VARCHAR2) 
AS 
    v_curr_date DATE; 
    l_col1      dbms_sql.Varchar2_Table; 
    l_col2      dbms_sql.Varchar2_Table; 
    l_col3      dbms_sql.Number_Table; 
    l_col4      dbms_sql.Number_Table; 

    CURSOR c1 IS 
    SELECT * 
    FROM t2; 

BEGIN 
    V_CURR_DATE := PI_DATE; 

    PO_ERROR := 0; 

    OPEN c1; 

    LOOP 
     FETCH c1 bulk collect INTO l_col1, l_col2, l_col3, l_col4 limit 1000; 

     forall indx IN 1..l_col1.COUNT 
      INSERT INTO t2 
         (col1, 
         col2, 
         col3, 
         col4, 
         col5) 
      VALUES  (L_col1(indx), 
         L_col2(indx), 
         L_col3(indx), 
         L_col4(indx), 
         V_CURR_DATE); 

EXCEPTION 
    WHEN OTHERS THEN 
      PO_ERROR := -1; 

      PO_ERROR_DESC := 'proc nam : ' 
           || 'my_procedure' 
           || ', err_num :' 
           || SQLCODE 
           || ' | , err_msg :' 
           || SQLERRM; 

      ROLLBACK; 

      DBMS_SESSION.free_unused_user_memory; 
END; 

因此，这里是我的第二个例子中，我已经使用BULK收集按照文档但是

有人能poinpoint的dbms_sql.Varchar2_Table确切的使用情况如何？

如以上那样，如果COL1的实际长度是VARCHAR2（40），但dbms_sql.Varchar2_Table使用VARCHAR2(2000)

TYPE varchar2_table IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER; 

Answer 1

您的批量收集循环需要作为使用的是LIMIT子句是一个完整的环：

-- Open the cursor 
OPEN cursor_name; 
-- Loop through cursor records 
LOOP 

    -- Fetch the cursor results into a collection limited to a set figure 
    FETCH cursor_name BULK COLLECT INTO table 
    LIMIT 1000; 

    -- For every record in the collection 
    FORALL x IN INDICES OF table 
     INSERT INTO target_table 
     (col) 
     VALUES 
     table(x); 

    -- Set up the limit loop exit criteria 
    EXIT WHEN table.COUNT < 1000; -- Less that the limit you set  
-- End the loop 
END LOOP; 
-- Close the cursor 
CLOSE cursor_name; 

这个伪码片段应该让你开始正确的路径让你的批量代码工作。您当前的DBMS_SQL表的声明看起来很好。

希望它有帮助...