关于Long和Varchar2数据的相互转换在Oracle

转载自：http://blog.itpub.net/30193/viewspace-364458

前几天，公司有人因为一个特别的事情，要把Varchar2转换成long;

这让我们费了不少脑精,Oracle的文档不建议我们用Long类型的数据，但这个家伙愣是用了，莫名其妙；

知道上周这个问题才有了彻底解决;

 

我分享一个store-procedure 去阐述这个问题;

Create or replace PROCEDURE P_UPDATELOCALPLUS(strMitm in varchar2,strSubITEM in varchar2,strPlant in varchar2)
as
lLocationPlus long;
lLocationPlus01 long;
strLocation varchar2(4000);
strSubLoc varchar2(50);
lTempLoct long;
i number;
Begin

  Select location,locationplus into strLocation,lLocationPlus from erpmainbom
  Where parentpn=strMitm and pn=strSubITEM  and plant= strPlant;
  
  If length(strLocation)=4000 then

      i:=1;
      strSubLoc:=substr(strLocation,4000,i);
      
      While InStr(strSubLoc, ' ') = 0 Loop
                i := i + 1;
                strSubLoc := substr(strLocation,4000-i,i);
      End Loop;
      --i:=i+1;
      strSubLoc := substr(strLocation,4000-i,i+1);
      
      strLocation := substr(strLocation,1, 4000 - Length(strSubLoc));
      
      lTempLoct:=strSubLoc; 

 ---把Varchar2的数据类型直接赋值给Long类型的数据是可以的，但不能超过4000个字节;超过,Oracle会自行截断到4000个;那有人要问了，我多定义几个Varchar2，不就行了?我已经试过,用多定义的合并后的Varchar2还是不能超过4000个；

            
   End if;

   lLocationPlus:=lTempLoct||lLocationPlus;

 ---这个代码的是把long型数据合并,这是可以的,如果把varchar2和long型的数据一起合并，系统会报错;

   update erpmainbom set location=strLocation,
                        locationplus=lLocationPlus
      where parentpn=strMitm and pn=strSubITEM  and plant= strPlant;

这样的update语句也是没有问题的;用insert也一样;

 

  commit;
  
  EXCEPTION
  When others then
   Rollback;
end;

 

如何把Long型数据转换成Varchar2 呢?

用下列语句;

   strLocation =substr( lLocationPlus,1,4000);