在數組循環中使用遊標

Question

我有一個存儲過程，我嘗試使用tab_array中的項目，以便執行select語句。這是一個循環內的遊標。我想用這個arrat的每個項目作爲「表格」。這個程序應該可以工作。

任何人都可以幫我嗎？我希望問題清楚。 謝謝。

create or replace PROCEDURE PROVA AS 

myRiga number; 
myDescRiga varchar2(1000); 
myCircuito varchar2(1000); 
myPrevRiga number; 
myPrevCircuito varchar2(1000); 
myCodeTipoRiga varchar2(1000); 
myPrevCodeTipoRiga varchar2(1000); 

type tab_array is array(5) of varchar2(1000); 
tab tab_array; 
tabella varchar2(100); 

BEGIN 

tab := tab_array ('TAB1', 'TAB2', 'TAB3', 'TAB4', 'TAB5'); 

for i in 1..tab.count loop 
tabella:=tab(i); 

declare cursor prova is 

SELECT CODE_TIPO_RIGA,ATTR_PROG_RIGA, ATTR_DESC_RIGA_01 FROM ||tabella|| ORDER BY ATTR_PROG_RIGA ; 

begin 

for item in prova loop 

myRiga:=item.attr_prog_riga; 
myCircuito:=item.attr_desc_riga_01; 
myCodeTipoRiga:=item.code_tipo_riga; 

dbms_output.put_line('---INIZIO---'); 
dbms_output.put_line('myRiga: ' || myRiga); 
dbms_output.put_line('myCircuito: ' || myCircuito); 
dbms_output.put_line('myCodeTipoRiga: ' || myCodeTipoRiga); 

dbms_output.put_line('myPrevRiga: ' || myPrevRiga); 
dbms_output.put_line('myPrevCircuito: ' || myPrevCircuito); 
dbms_output.put_line('myPrevCodeTipoRiga: ' || myPrevCodeTipoRiga); 


    if (myRiga!=myPrevRiga and myCircuito=myPrevCircuito and myPrevCodeTipoRiga=myCodeTipoRiga) then 

     if myRiga > myPrevRiga then 
     dbms_output.put_line('riga:'|| myRiga); 
     update ||tabella|| set attr_desc_riga_01 = ' ' where ATTR_PROG_RIGA in (myRiga); 
     end if; 

    end if; 

myPrevRiga:=myRiga; 
myPrevCircuito:=myCircuito; 
myPrevCodeTipoRiga:=myCodeTipoRiga; 


dbms_output.put_line('---FINE---'); 
end loop;  
end;  
end loop; 






END PROVA; 

Answer 1

你可以如下做到這一點：

CREATE TABLE TAB1 
(
    CODE_TIPO_RIGA  VARCHAR2 (10), 
    ATTR_PROG_RIGA  NUMBER, 
    ATTR_DESC_RIGA_01 VARCHAR2 (10) 
); 
/

步驟：

CREATE OR REPLACE PROCEDURE PROVA 
AS 
    myRiga    NUMBER; 
    myDescRiga   VARCHAR2 (1000); 
    myCircuito   VARCHAR2 (1000); 
    myPrevRiga   NUMBER; 
    myPrevCircuito  VARCHAR2 (1000); 
    myCodeTipoRiga  VARCHAR2 (1000); 
    myPrevCodeTipoRiga VARCHAR2 (1000); 

    TYPE tab_array IS ARRAY (5) OF VARCHAR2 (1000); 

    tab     tab_array; 
    tabella    VARCHAR2 (100); 


    TYPE tab_col IS RECORD 
    (
     CODE_TIPO_RIGA  VARCHAR2 (10),-- This datatype should be same as of your table column 
     ATTR_PROG_RIGA  NUMBER,-- This datatype should be same as of your table column 
     ATTR_DESC_RIGA_01 VARCHAR2 (10) -- This datatype should be same as of your table column 
    ); 

    TYPE tab_var IS TABLE OF tab_col 
     INDEX BY PLS_INTEGER; 

    var_tab    tab_var; 

    v_sql    VARCHAR2 (100); 
    v_sql_1    VARCHAR2 (100); 
BEGIN 
    tab := 
     tab_array ('TAB1', 
       'TAB2', 
       'TAB3', 
       'TAB4', 
       'TAB5'); 

    FOR i IN 1 .. tab.COUNT 
    LOOP 
     tabella := tab (i); 

     v_sql := 
      'SELECT CODE_TIPO_RIGA, ATTR_PROG_RIGA, ATTR_DESC_RIGA_01 FROM ' 
     || tabella 
     || ' ORDER BY ATTR_PROG_RIGA'; 

     EXECUTE IMMEDIATE v_sql BULK COLLECT INTO var_tab; 

     FOR i IN 1 .. var_tab.COUNT 
     LOOP 
     myRiga := var_tab (i).attr_prog_riga; 
     myCircuito := var_tab (i).attr_desc_riga_01; 
     myCodeTipoRiga := var_tab (i).code_tipo_riga; 

     DBMS_OUTPUT.put_line ('---INIZIO---'); 
     DBMS_OUTPUT.put_line ('myRiga: ' || myRiga); 
     DBMS_OUTPUT.put_line ('myCircuito: ' || myCircuito); 
     DBMS_OUTPUT.put_line ('myCodeTipoRiga: ' || myCodeTipoRiga); 

     DBMS_OUTPUT.put_line ('myPrevRiga: ' || myPrevRiga); 
     DBMS_OUTPUT.put_line ('myPrevCircuito: ' || myPrevCircuito); 
     DBMS_OUTPUT.put_line ('myPrevCodeTipoRiga: ' || myPrevCodeTipoRiga); 


     IF ( myRiga != myPrevRiga 
      AND myCircuito = myPrevCircuito 
      AND myPrevCodeTipoRiga = myCodeTipoRiga) 
     THEN 
      IF myRiga > myPrevRiga 
      THEN 
       DBMS_OUTPUT.put_line ('riga:' || myRiga); 

       v_sql_1 := 
        'UPDATE ' 
        || tabella 
        || ' SET attr_desc_riga_01 = '' '' WHERE ATTR_PROG_RIGA IN (myRiga)'; 

       EXECUTE IMMEDIATE v_sql_1; 
      END IF; 
     END IF; 

     myPrevRiga := myRiga; 
     myPrevCircuito := myCircuito; 
     myPrevCodeTipoRiga := myCodeTipoRiga; 

     DBMS_OUTPUT.put_line ('---FINE---'); 
     END LOOP; 
    END LOOP; 
END PROVA; 

輸出：

SQL> set serverout on 
SQL>/

Procedure created. 

SQL> exec PROVA; 
    ---INIZIO--- 
    myRiga: 1 
    myCircuito: YY 
    myCodeTipoRiga: XX 
    myPrevRiga: 
    myPrevCircuito: 
    myPrevCodeTipoRiga: 
    ---FINE--- 
    ---INIZIO--- 
    myRiga: 2 
    myCircuito: BB 
    myCodeTipoRiga: AA 
    myPrevRiga: 1 
    myPrevCircuito: YY 
    myPrevCodeTipoRiga: XX 
    ---FINE--- 
    ---INIZIO--- 
    myRiga: 3 
    myCircuito: MM 
    myCodeTipoRiga: LL 
    myPrevRiga: 2 
    myPrevCircuito: BB 
    myPrevCodeTipoRiga: AA 
    ---FINE--- 

    PL/SQL procedure successfully completed.