oracle number类型增加精度
oracle迁移到sqlserver时，报错-如下图，http://blog.51cto.com/attachment/201312/144116973.png
查找原因，发现是因为有些表number类型没有设精度导致的，解决方法如下，修改表结构加上精度
，加上之后就可以了。考虑到有些表有多个字段没有设精度，所以采取以下方式实现。
--split函数
create or replace type type_split as table of varchar2(4000);
/
create or replace function test_split(p_list VARCHAR2, p_sep VARCHAR2) return type_split
PIPELINED IS
l_idxPLS_INTEGER;
v_list VARCHAR2(32767) := p_list;
begin
LOOP
l_idx := instr(v_list, p_sep);
IF l_idx > 0 THEN
PIPE ROW(substr(v_list, 1, l_idx - 1));
v_list := substr(v_list, l_idx + length(p_sep));
ELSE
PIPE ROW(v_list);
EXIT;
END IF;
END LOOP;
RETURN;
end test_split;
/
--修改表加精度的存储过程
create or replace procedure changefield
(tablename in varchar2,
fieldname in varchar2
) as
CURSOR c1
IS
SELECT * FROM table(test_split(fieldname,','));
begin
execute immediate 'create table temp_table as select *from '|| tablename;
execute immediate 'DELETE FROM '|| tablename;
FOR x IN c1
LOOP
execute immediate 'alter table ' || tablename || ' modify ' || x.column_value || ' NUMBER(38, 0)';
END LOOP;
execute immediate 'INSERT INTO '|| tablename||' SELECT * FROM temp_table';
execute immediate 'DROP TABLE temp_table';
end;
/
--执行例子需要手工改 参数为表名和字段名 字段名可以一个可以多个，多个字段以逗号分隔
exec changefield('A25','A2517,SORT');
exec changefield('A36','A3617');
页:
[1]