PLSQL - 執行都建在SELECT

Question

我執行以下查詢的查詢：

SELECT 
'ALTER TABLE '||TABLE_NAME||' MODIFY ' || COLUMN_NAME || ' VARCHAR2('||DATA_LENGTH||' CHAR);' 
FROM 
    USER_TAB_COLUMNS 
WHERE 
    DATA_TYPE LIKE '%CHAR%' 
AND TABLE_NAME NOT LIKE '%VIEW' 
ORDER BY 
    TABLE_NAME, 
    COLUMN_NAME; 

輸出本身查詢改變我從選擇表「USER_TAB_COLUMNS」。 如：

ALTER TABLE ADM_FILTER_ELEMENT_REF_T MODIFY ELMNT_REF_CONTEXT VARCHAR2(1020 CHAR); 

我想知道我怎麼能抓住這個輸出和執行查詢？ 查詢被設計爲在批處理文件中調用的.sql腳本中執行。

請指教。

Answer 1

您可以在匿名塊中循環查詢的結果並使用execute immediate來執行它們。

事情是這樣的：

begin 
    for q in (SELECT 
       'ALTER TABLE '||TABLE_NAME||' MODIFY (' || COLUMN_NAME || ' VARCHAR2('||DATA_LENGTH||'));' query 
       FROM 
        USER_TAB_COLUMNS 
       WHERE 
        DATA_TYPE LIKE '%CHAR%' 
       AND TABLE_NAME NOT LIKE '%VIEW' 
       ORDER BY 
        TABLE_NAME, 
        COLUMN_NAME 
       ) LOOP 
     execute immediate q.query; 
    end loop; 
end; 
/