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; 
/