Question

继续

＆＃34;索引[1]中的元素不存在＆＃34; ...

但我确实从"dbms_output.put_line (v_lahad_wiz_eq.count);"得到了输出，约有20行＆＃39; 100＆＃39;然后是一行＆＃39; 61＆＃39;和一个＆{39; 0＆＃39;，所以有数据进入......

declare 
c_limit number :=100;
--set data type and set verible
type lahad_wiz_eq_typ is table of  lahad_wiz_eq%rowtype INDEX BY BINARY_INTEGER;                                    
v_lahad_wiz_eq                                lahad_wiz_eq_typ;

cursor c1 is 
   select *  
   FROM wiz_equip_trx q
   WHERE q.ACCOUNT_NUMBER > 0
   AND q.MANUFACTURER = 'FK';

begin 

open c1 ;
loop 
 fetch c1 
 bulk collect into  v_lahad_wiz_eq
 limit c_limit;
 dbms_output.put_line (v_lahad_wiz_eq.count);
 exit when v_lahad_wiz_eq.count = 0;
end loop;      
close c1; 

dbms_output.put_line (v_lahad_wiz_eq.last);

forall i in 1  ..  100
   insert into lahad_wiz_eq 
   values v_lahad_wiz_eq (i) ;  
dbms_output.put_line ( sql%rowcount);

commit;
end;

Answer 1

您无需循环通过BULK COLLECT获取记录，就像执行普通FETCH INTO语句一样，因此无需EXIT WHEN。实际上，你的循环第二次覆盖了集合而没有值，exit when v_lahad_wiz_eq.count = 0满足第二次循环。

SET SERVEROUTPUT ON;
DECLARE
    c_limit          NUMBER := 100;
--set data type and set verible
    TYPE lahad_wiz_eq_typ IS
        TABLE OF lahad_wiz_eq%rowtype INDEX BY BINARY_INTEGER;
    v_lahad_wiz_eq   lahad_wiz_eq_typ;
    CURSOR c1 IS SELECT
        *
           FROM
        wiz_equip_trx q
                 WHERE
        q.account_number > 0
        AND   q.manufacturer = 'FK';

BEGIN
    OPEN c1;

    FETCH c1 BULK COLLECT INTO v_lahad_wiz_eq LIMIT c_limit;
     dbms_output.put_line (v_lahad_wiz_eq.count);
    CLOSE c1;

    dbms_output.put_line(v_lahad_wiz_eq.last);

    FORALL i IN 1..v_lahad_wiz_eq.COUNT
        INSERT INTO lahad_wiz_eq VALUES v_lahad_wiz_eq ( i );

    dbms_output.put_line(SQL%rowcount);
    COMMIT;
END;

/

forall statmant不起作用 - 没有找到数据

1 个答案: