Início / coding / Perguntas / 79577268
Accepted
GoWaPs
Asked: 2025-04-16 21:16:44 +0800 CST

Consulta Oracle Alterar tabela dentro de um Select

  • 772

Eu gostaria de fazer algo como

select tc.owner, tc.table_name, tc.column_name, tc.data_type, tc.data_length
from all_tab_cols tc
  inner join all_tables t on tc.owner = t.owner and tc.table_name = t.table_name
where tc.owner = 'LEMANS'
  AND tc.data_type LIKE '%VARCHAR%'
ALTER TABLE tc.table_name MODIFY tc.column_name VARCHAR2(tc.data_length CHAR);

Como posso fazer isso funcionar? Quero alterar a tabela em todas as linhas selecionadas.

sql

1 respostas

  1. Best Answer

    Isso não pode ser feito em uma única instrução SQL. Você precisa executar um comando select, usar os resultados para gerar uma instrução SQL e, em seguida, executá-la. O mais fácil é fazer isso em um bloco pl/sql, algo assim:

    SET SERVEROUTPUT ON SIZE 999999

DECLARE
    l_statement VARCHAR2(1000);
BEGIN
    FOR r IN 
(
SELECT tc.owner
      ,tc.table_name
      ,tc.column_name
      ,tc.data_type
      ,tc.data_length
  FROM all_tab_cols tc
 WHERE tc.char_used = 'B' AND
       tc.owner = 'LEMANS' AND
       tc.data_type LIKE '%VARCHAR%'
)
    LOOP 
        l_statement := 'ALTER TABLE '||r.owner||'.'||r.table_name||' MODIFY '|| r.column_name||' VARCHAR2('||r.data_length ||' CHAR)';
        -- print statement to console for verification
        dbms_output.put_line(l_statement);
        --comment out line below if you are ok with all the statements that are printed. It will execute the statement.
        --EXECUTE IMMEDIATE l_statement;
    END LOOP;
END;
/

    notas:

    • Adicionei a coluna CHAR_USEDpara que apenas as colunas com BYTE sejam modificadas. Não é necessário modificar uma coluna que já tenha CHAR.
    • O mais seguro é primeiro comentar a EXECUTE IMMEDIATE...linha para verificar se o script funciona corretamente. Quando tudo estiver correto, descomente-a.
    • Foi removida a junção para all_tables com base no comentário de Paul W. Essa junção não é necessária.
    • 2

relate perguntas