oracle number類型增加精度

oracle遷移到sqlserver時，報錯-如下圖，

查找原因，發現是因爲有些表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_idx  PLS_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');