ITPub博客

首页 > 应用开发 > IT综合 > 不同字符集倒库的方法 (转)

不同字符集倒库的方法 (转)

原创 IT综合 作者:amyz 时间:2007-10-31 12:50:04 0 删除 编辑
不同字符集倒库的方法 (转)[@more@]

第一步:Exp 原 US7ASCII数据库中的SCOTT用户
第二步:EXP 原US7ASCII 数据库中的ZHAOBOYI用户。
第三步:CREATE NEW DATABASE(CHARACTER SET SIMPLIFIED CHINESE_CHINA.ZHS16GBK),
所有的路径与原
数据库相同。

第四步:将ZHS16GBK 中的INIT。ora COPY INIT。ORA。BAK。
第五步:将US7ASCII 中的INIT。ORA COPY ZHS16GBK 修改相应参数。
第六步:生成ZHS16GBK 中的SCOTT 用户,授权,EXP ZHS16GBK 中的SCOTT 用户。
第七步:  生成ZHS16GBK 中的ZHAOBOYI 用户,EXP ZHS16GBK 中的ZHAOBOYI 用户。
第八步:用ULTRAEDIT 分别打开(US7ASCII)以及(ZHS16GBK)SCOTT 用户,将前5行中的U
S7ASCII 不同处改掉。
第九步:相应的做ZHAOBOYI 用户。
第十步:在ZHS16GBK中,执行SYS 用户的OWALOAD。sql ,对HTP。P授权。
第十一步:做IMP,把原有的数据库倒入到新的数据库。
第十二步:解决大字段问题。
首先在原数据库中执行存储过程 fwrite_clob_NIU,将含有大字段的表生成到文件中,接着
,在新数据库中编译执行fupdate_clob_text,
将大字段倒回到新数据库中。
附录:
1。存储过程:FWRITE——CLOB——NIU
procedure  fwrite_clob_NIU as
  CURSOR c_lt IS
  select c.text,c.info_id
  FROM info_ctext c
  where info_id <= 120
  --change7.16 WHERE  info_id <=100
  order by info_id asc;
/*
  1000-1100 F
  1100-1600 OK
  1600-1630 OK
  1629-1640 OK
  1640-1660 F
  1660-1668 OK
  1669 F
  1670-1750 OK
*/ 
  Str  VARCHAR2(32767) := Null;
  Position  INTEGER  := 1;
  New_Position  INTEGER  := 1;
Pat varchar2(80) := 'd:writeclob';
--change716 Pat varchar2(80) := '/export/home0/ora8i/doc/ch';
  Save_File  utl_file.file_type;
  Result  BOOLEAN  := FALSE;
Dir_Delimiter  VARCHAR2(200) := '';
--change 7.16  Dir_Delimiter  VARCHAR2(200) := '/';  -- NOTE: Use '' for Win
dows NT
  p_Filename VARCHAR2(200);
  v_offset integer;
  v_amount integer;
  v_buffer varchar2(30240);
BEGIN
  v_amount := 30240;
  IF SUBSTR( Pat, LENGTH( Pat ), 1 ) != Dir_Delimiter THEN
  Pat := Pat || Dir_Delimiter; END IF;
  BEGIN
  FOR r IN c_lt
  Loop
  IF r.text is not null then
   p_Filename := r.info_id ||'.dat';
   New_Position:=1;
   Position:=1;
   Save_File := utl_file.fopen( Pat, p_Filename, 'w' );
  if dbMS_LOB.INSTR( r.text, CHR(10), Position ) = 0 then
  begin
  V_OFFSET := 1;
  v_buffer := '';
  loop
 
  dbms_lob.read(r.text,v_amount,v_offset,v_buffer);
 
  v_offset := v_offset + v_amount;
  utl_file.put( Save_File,  v_buffer );
  --  htp.p(v_buffer);
  -- htp.p('jjjj');
  end loop;
  exception
  when no_data_found then
  null; 
  end;
 
  -- htp.p('111');
  -- Str := DBMS_LOB.SUBSTR( r.text,1)||CHR(10);
  -- HTP.P(STR);
  end if; 
  WHILE( New_Position != 0 )
  LOOP
  New_Position := DBMS_LOB.INSTR( r.text, CHR(10), Position );

  Str := DBMS_LOB.SUBSTR( r.text, New_Position - Position, Position );
  -- HTP.P('STR=');
  -- HTP.P(STR);
  Position := New_Position + 1;

  --change 7.17 IF New_Position != 0 THEN
  utl_file.put_line( Save_File, REPLACE( Str, CHR(10), Null ) );
  -- else
 
  --  utl_file.put_line( Save_File,  Str );
  -- change 7.17
  -- htp.p(new_position);
  -- END IF;
  END LOOP;
 UTL_FILE.FCLOSE(Save_File);
 htp.p('

The file  '||p_Filename||'  generated!

');
 end if;
  END LOOP;
 
 EXCEPTION
   WHEN NO_DATA_FOUND THEN
   htp.p('

The file  '||p_Filename||'  Failed!

');
  end;
END fwrite_clob_niu;
附录二:存储过程fupdate_clob_text
procedure  fupdate_clob_text as
  CURSOR c_lt IS
  SELECT c.text,c.info_id
  FROM info_ctext c
 -- where info_id = 112
  where ((info_id >= 1 and info_id <= 30) or
  (info_id >=30 and info_id <= 60) or
  (info_id >=60 and info_id <= 90) or
  (info_id >=90 and info_id <= 120))
 
 
  /* --CHANGE 716 WHERE type not in ('B','C','V','A','E') and ((info_id >=10000
 and info_id <20000) or
  (info_id >=1100 and info_id <1601)  or
  (info_id >=1600 and info_id <1630)  or
  (info_id >=1660 and info_id <1668) or
  info_id >=1670  or
  (info_id >=0 and info_id <501))
  */
  order by info_id asc;
/*
  1000-1100 F
  1100-1600 OK
  1600-1630 OK
  1629-1640 OK
  1640-1660 F
  1660-1668 OK
  1669 F
  1670-1750 OK
*/ 
  Tmp  CLOB; 
  Pat varchar2(80) := 'd:writeclob';
 -- CHANGE 7.16 Pat varchar2(80) := '/export/home0/ora8i/doc/ch';
  Save_File  utl_file.file_type;
  Result  BOOLEAN  := FALSE;
  Dir_Delimiter  VARCHAR2(200) := '';
  -- change 7.16 Dir_Delimiter  VARCHAR2(200) := '/';  -- NOTE: Use '' for W
indows NT
  p_Filename VARCHAR2(200);
BEGIN
  htp.p('我们');
 
   IF SUBSTR( Pat, LENGTH( Pat ), 1 ) != Dir_Delimiter THEN
  Pat := Pat || Dir_Delimiter; END IF;
  FOR r IN c_lt
  LOOP 
 begin
   p_Filename :=to_char(r.info_id)||'.dat';
    UPDATE info_ctext SET text = ' '
    WHERE info_id=r.info_id;
   COMMIT;
     
  SELECT text INTO Tmp FROM info_ctext
    WHERE info_id = r.info_id  FOR UPDATE;


  -- DBMS_LOB.TRIM( Tmp, 0 );

    Result := Load_File( Pat, p_Filename, Tmp );

    IF Result THEN
    UPDATE info_ctext SET text = Tmp
    WHERE info_id=r.info_id;
   COMMIT;
    END IF;
 
    end;
  END LOOP; 
 EXCEPTION
   WHEN NO_DATA_FOUND THEN
   htp.p('

The file  '||p_Filename||'  Failed!

');

 
END fupdate_clob_text;
附录三:新数据库字符集
NLS——LANG
SIMPLIFIED CHINESE_CHINA.ZHS16GBK
原数据库字符集
AMERICAN_AMERICA.US7ASCII.


______________________________________

===================================================================
新浪免费电子邮箱 (Mail.sina.com.cn">http://mail.sina.com.cn)
订阅手机短信头条新闻,天天奖多款时尚手机! (http://dailynews.sina.com.cn/c/272235.html)
订阅手机短信顶级新闻每天得新款手机大奖! (http://dailynews.sina.com.cn/c/266499.html)

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-980076/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7335178