ORA-06550：閉じるシンボルが発生しました

Question

set serveroutput on; 
DECLARE 
    CURSOR 
    IS 
    SELECT SVL_ID 
     FROM SALES_VEHICLES 
    WHERE SVL_N = 'some value';--314653; 

    TYPE SVD_TA IS TABLE OF VSALES%ROWTYPE; 
    SV SVD_TA; 
BEGIN 
    OPEN VSALES; 
    FETCH VSALES BULK COLLECT INTO SV LIMIT 1000; 
    CLOSE VSALES; 

    IF SV.COUNT() <> 0 
    THEN 
    FOR I IN 1..SV.COUNT() 
    LOOP 
     UPDATE SALES_VEHICLES 
      SET SVL_M = 'some value', 
       SVL_M = SVL_C_N 
     WHERE SVL_ID = I.SVL_ID; 

     COMMIT; 
    END LOOP; 
    END IF; 
    EXIT WHEN VSALES%NOTFOUND; 
    END LOOP; 
    CLOSE VSALES; 
END; 

これはデバッグに問題があります。エラーは32行目、5行目です。この問題で私を助けることができれば非常に感謝しています。

Answer 1

あなたは、二重近いライン15で間に合わ同じカーソルと32

を持っているおそらく、あなただけの取得後クローズする必要はありません。

BEGIN 
    OPEN VSALES; 
    LOOP 
    FETCH VSALES BULK COLLECT INTO SV LIMIT 1000; 

    IF SV.COUNT() <> 0 
    THEN 
    FOR I IN 1..SV.COUNT() 
    LOOP 
     UPDATE SALES_VEHICLES 
      SET SVL_M = 'some value', 
       SVL_M = SVL_C_N 
     WHERE SVL_ID = SV(I).SVL_ID;; 

     COMMIT; 
    END LOOP; 
    END IF; 
    EXIT WHEN VSALES%NOTFOUND; 
    END LOOP; 
    CLOSE VSALES; 
END; 

Answer 2

解決策が見つかりました。私は以下を欠いていた。ここで私はこのことから

を変更するものです。これに

WHERE SVL_ID = I.SVL_ID; 

：

WHERE SVL_ID = SV(I).SVL_ID; 

Answer 3

は、必要以上に少し複雑そうです。

begin 
    for r in (
     select svl_id 
     from sales_vehicles 
     where svl_n = 'some value' --314653; 
    ) 
    loop 
     update sales_vehicles 
     set svl_m = 'some value', svl_m = svl_c_n 
     where svl_id = r.svl_id; 
    end loop; 

    commit; 
end; 

それとも、本当に配列（と、それはあなたがのために予想以上のメモリを取るだろうとチャンスを取る）を使用する場合：

declare 
    type svid_tt is table of sales_vehicles.svl_id%type; 
    l_svids svid_tt; 
begin 
    select svl_id bulk collect into l_svids 
    from sales_vehicles 
    where svl_n = 'some value';--314653; 

    if l_svids.count > 0 then 
     forall i in 1..l_svids.count 
      update sales_vehicles 
      set svl_m = 'some value', svl_m = svl_c_n 
      where svl_id = l_svids(i); 
    end if; 

    commit; 
end; 

をプレーンなカーソルループのために、あなただけのこれを行うことができます

リミット句とループを追加し、一括例外などをチェックすることで、アレイバージョンをより堅牢にすることができます。