sql - 调整数据库表中每个 VARCHAR 列的大小 - Oracle 11g

Question

我在 Table 中至少有 65VARCHAR个列A，我必须将其大小从 调整X bytes为X char。我希望找到一种比发出ALTER TABLE A MODIFY..命令 65 次更简单的方法。

任何人都可以帮助我如何做到这一点是一种更快的方法吗？

Answer 1

你可以写一点动态SQL。假设表在当前模式中

DECLARE
  l_sql_stmt VARCHAR2(1000);
BEGIN
  FOR t IN (SELECT * FROM user_tab_cols WHERE table_name = 'A')
  LOOP
    l_sql_stmt := 'ALTER TABLE ' || t.table_name || ' MODIFY (' || 
                     t.column_name || ' varchar2(' || t.char_length || ' char))';
    EXECUTE IMMEDIATE l_sql_stmt;
  END LOOP;
END;

你可以在下面看到它的工作

SQL> ed
Wrote file afiedt.buf

  1  create table foo(
  2    col1 varchar2(10 byte),
  3    col2 varchar2(20 byte)
  4* )
SQL> /

Table created.

DECLARE
  l_sql_stmt VARCHAR2(1000);
BEGIN
  FOR t IN (SELECT * FROM user_tab_cols WHERE table_name = 'FOO')
  LOOP
    l_sql_stmt := 'ALTER TABLE foo MODIFY (' || 
                     t.column_name || ' varchar2(' || t.char_length || ' char))';
    EXECUTE IMMEDIATE l_sql_stmt;
  END LOOP;
END;


SQL> desc foo;
 Name                                      Null?    Type
 ----------------------------------------- -------- ----------------------------
 COL1                                               VARCHAR2(10 CHAR)
 COL2                                               VARCHAR2(20 CHAR)

Answer 2

你可以试试这样丑陋的东西

 select 'ALTER TABLE '||table_name|
        ' MODIFY ('||column_name||' VARCHAR2('||char_length||' char));'
   from all_tab_cols
   where table_name='A' and
         datatype like 'VARCHAR2%';

复制结果网格并将其粘贴并在您喜欢的 sql 编辑器中运行它

Answer 3

贾斯汀的回答部分不正确 - 事实上 grokster 的更好 - 发现差异：

贾斯汀：

  FOR t IN (SELECT * FROM user_tab_cols WHERE table_name = 'A')

格罗克斯特：

FOR x IN (SELECT * FROM user_tab_cols WHERE table_name = 'A' AND datatype LIKE 'VARCHAR%')

请注意，Grokster 正确检查数据类型，而不是尝试将所有列转换为 varchar2！

Answer 4

BEGIN
    FOR x IN (SELECT * FROM user_tab_cols WHERE table_name = 'A' AND datatype LIKE 'VARCHAR%')
    LOOP
        EXECUTE IMMEDIATE 'ALTER TABLE '||x.table_name||' MODIFY '||x.column_name ||' VARCHAR2('||x.char_length||' CHAR)';
    END LOOP; 
END;
/