对应该是 VARCHAR2(1) 的列使用 CLOB 数据类型是一个非常糟糕的主意。除了开销(实际上是最小的,因为 Oracle 会将 < 4000 个字符的内联 CLOB 视为 VARCHAR2)之外,我们应该始终努力在模式中使用最准确的数据表示:这只是一个好习惯。
这似乎真的是 DevArt 工具的问题,或者您对如何使用它的理解(无意冒犯)。您应该有某种方法可以指定实体属性的数据类型和/或将这些规范映射到 Oracle 的物理数据类型的方法。如果这看起来有点模糊,我很抱歉,我对产品不熟悉。
所以,这是基本问题:
SQL> desc t69
Name Null? Type
----------------------------------------- -------- --------
COL1 CLOB
SQL>
SQL> alter table t69 modify col1 varchar2(1)
2 /
alter table t69 modify col1 varchar2(1)
*
ERROR at line 1:
ORA-22859: invalid modification of columns
SQL>
我们可以通过使用 DDL 更改表结构来修复它。因为模式有许多这样的列,所以值得自动化该过程。此函数删除现有列并将其重新创建为 VARCHAR2。它提供了将 CLOB 列中的数据迁移到 VARCHAR2 列的选项;你可能不需要这个,但它是为了完整性。(这不是生产质量代码 - 它需要错误处理、管理 NOT NULL 约束等)
create or replace procedure clob2vc
( ptab in user_tables.table_name%type
, pcol in user_tab_columns.column_name%type
, pcol_size in number
, migrate_data in boolean := true )
is
begin
if migrate_data
then
execute immediate 'alter table '||ptab
||' add tmp_col varchar2('|| pcol_size|| ')';
execute immediate
'update '||ptab
||' set tmp_col = substr('||pcol||',1,'||pcol_size||')';
end if;
execute immediate 'alter table '||ptab
||' drop column '|| pcol;
if migrate_data
then
execute immediate 'alter table '||ptab
||' rename column tmp_col to '|| pcol;
else
execute immediate 'alter table '||ptab
||' add '||pcol||' varchar2('|| pcol_size|| ')';
end if;
end;
/
所以,让我们更改该列...
SQL> exec clob2vc ('T69', 'COL1', 1)
PL/SQL procedure successfully completed.
SQL> desc t69
Name Null? Type
----------------------------------------- -------- ---------------
COL1 VARCHAR2(1)
SQL>
可以以通常的方式自动调用此过程或编写脚本。