請調試以下Oracle SQL過程

Question

當我在我的Oracle SQL Developer

create or replace 
Procedure Table_Update 

IS 
    s_id VARCHAR2(256 byte); 

    CURSOR C1 IS 
    SELECT A.SR_ID 
    FROM TABLE_2 B,TABLE_1 A 
    WHERE A.Primary_key=B.Primary_Key; 

BEGIN 
loop 
    open c1; 
    fetch c1 into s_id; 

    exit when C1%NOTFOUND ; 

    update TABLE_2 set SR_ID = s_id;  

    commit; 

    END LOOP; 

CLOSE C1; 
END; 

運行下面的過程中TABLE_1和TABLE_2這裏有類似structure.My要求從TABLE_1 SR_ID應TABLE_2基礎上進行更新相匹配的主key.When我運行的程序，我得到了以下錯誤消息

Connecting to the database XXX. 
ORA-06511: PL/SQL: CURSOR ALREADY OPEN 
ORA-06512: at "Table_Update", line 7 
ORA-06512: at "Table_Update", line 13 
ORA-06512: at line 2 
PROCESS EXITED. 
Disconnecting from the database XXX. 

我已經嘗試這種遍地請幫我

謝謝

Answer 1

移動open c1;在循環的外面，你只需要打開它一次。

Answer 2

您需要的loop
你每次你去一次循環打開遊標移動open c1;，你應該只打開遊標一次。

更多信息http://www.techonthenet.com/oracle/cursors/

Answer 3

羅傑已經說過：移動光標的開環之外。

但同樣重要的是：不要在內部提交。這會讓事情變慢，給數據庫帶來更多壓力，同時也會關閉遊標。

但更重要的是：你根本不需要循環。您可以在一個單一的更新語句做到這一點：

update TABLE_2 
    set SR_ID = (select a.sr_id 
       from table_1 a 
       where a.primary_key = table_2.primary_key); 

或交替使用merge聲明：

merge into table_2 
using table_1 a 
    on (table_2.primary_key = a.primary_key) 
when matched then update 
    set sr_id = a.sr_id; 

這將是快了很多，然後將光標爲基礎的方法。

這裏是一個SQLFiddle：http://sqlfiddle.com/#!4/0b810/1