oracle中blob,clob字段的操作問題

在oracle中,有4個大對象(lobs)類型可用,分別是blob,clob,bfile,nclob。

  下面是對lob數據類型的簡單介紹。
   blob:二進制lob,爲二進制數據,最長可達4GB,存貯在數據庫中。
   clob:字符lob,字符數據,最長可以達到4GB,存貯在數據庫中。
   bfile:二進制文件;存貯在數據庫之外的只讀型二進制數據,最大長度由操作系統限制。
   nclob:支持對字節字符集合(nultibyte characterset)的一個clob列。
  對於如何檢索和操作這些lob數據一直是oracle數據庫開發者經常碰到的問題。下面我將在oracle對lob數據處理的一些方法和技巧,介紹給讀者,希望能夠對讀者以後的開發有所幫助。
  oracle中可以用多種方法來檢索或操作lob數據。通常的處理方法是通過dbms_lob包。
  其他的方法包括使用api(application programminginterfaces)應用程序接口和oci(oracle call interface)oracle調用接口程序。

  一、在oracle開發環境中我們可以用dbms_lob包來處理!

 

      dbms_lob包功能強大,簡單應用。既可以用來讀取內部的lob對象,也可以用來處理bfile對象。但處理兩者之間,還有一點差別。處理內部lob對象(blob,clob)時,可以進行讀和寫,但處理外部lob對象bfile時,只能進行讀操作,寫的操作可以用pl/sql處理。另外用sql也可以處理lob,但要注意sql僅可以處理整個lob,不能操作lob的數據片。
  在dbms_lob包中內建了read(),append,write(),erase(),copy(),getlength(),substr()等函數,可以很方便地操作lob對象。這裏不做深入討論,讀者可以參看相關的書籍。
  對於pl/sql,下面介紹一種技巧,用動態的pl/sql語句處理clob對象來傳替表名!
  example 1.
  動態PL/SQL,對CLOB字段操作可傳遞表名table_name,表的唯一標誌字段名field_id,clob字段名field_name記錄號v_id,開始處理字符的位置v_pos,傳入的字符串變量v_clob

修改CLOB的PL/SQL過程:updateclob

  create or replace procedure updateclob(

  table_name in varchar2,

  field_id in varchar2,

  field_name in varchar2,v_id in number,

  v_pos in number,

  v_clob in varchar2)

  is

  lobloc clob;

  c_clob varchar2(32767);

  amt binary_integer;

  pos binary_integer;

  query_str varchar2(1000);

  begin

  pos:=v_pos*32766 1;

  amt := length(v_clob);

  c_clob:=v_clob;

  query_str :='select '||field_name||'from '||table_name||'

  where '||field_id||'= :id for update ';

  --initialize buffer with data to be inserted or updated

  EXECUTE IMMEDIATE query_str INTO lobloc USING v_id;

  --from pos position, write 32766 varchar2 into lobloc

  dbms_lob
.write(lobloc, amt, pos, c_clob);

  commit;

  exception

  when others then

  rollback;

  end;

 

  用法說明:
  在插入或修改以前,先把其它字段插入或修改,CLOB字段設置爲空empty_clob(),然後調用以上的過程插入大於2048到32766個字符。如果需要插入大於32767個字符,編一個循環即可解決問題。

  
     查詢CLOB的PL/SQL函數:getclob

  create or replace function getclob(

  table_name in varchar2,

  field_id in varchar2,

  field_name in varchar2,

  v_id in number,

  v_pos in number) return varchar2

  is

  lobloc clob;

  buffer varchar2(32767);

  amount number := 2000;

  offset number := 1;

  query_str varchar2(1000);

  begin

  query_str :='select '||field_name||' from '||table_name||'

  where '||field_id||'= :id ';

  --initialize buffer with data to be found

  EXECUTE IMMEDIATE query_str INTO lobloc USING v_id;

  offset:=offset (v_pos-1)*2000;

  --read 2000 varchar2 from the buffer

  dbms_lob
.read(lobloc,amount,offset,buffer);

  return buffer;

  exception

  when no_data_found then

  return buffer;

  end;

   用法說明:
  用select getclob(table_name,field_id,field_name,v_id,v_pos) as partstr from dual;
  可以從CLOB字段中取2000個字符到partstr中,編一個循環可以把partstr組合成dbms_lob.getlength(field_name)長度的目標字符串。

  二、對於在其他不同的開發環境,例如vc,vb,pb,java等環境下對lob的處理,處理方法不盡相同,在這裏將簡要舉幾個例子來說明不在oracle開發環境下對lob的處理。

  (一) 在pb中的處理

  exampler 2.

string ls_path,ls_filename,ls_jhdh

  long ll_num,ll_count,rtn

  blob ole_blob

  ll_num=dw_lb.getrow()

  if ll_num>0 then ls_jhdh=dw_lb.object.ct_njhdh[ll_num]

  select count(*) into :ll_count from sj_jh_jhfjb where

  ct_jhdlxbh='1' and ct_jhdh=:ls_jhdh and ct_jdlxbh=:is_jdlx;

  if ll_count>0 then

  rtn=messagebox("提示","是否要修改此附件",question!,yesno!,1)

  if rtn=1 then

  SELECTBLOB ct_jhfjnr INTO le_blob from sj_jh_jhfjb where

  ct_jhdlxbh='1' and ct_jhdh=:ls_jhdh and ct_jdlxbh=:is_jdlx;

  ole_1.objectdata =ole_blob

  If ole_1.activate(offsite!) <> 0 Then

  Messagebox("OLE Activate","不能激活")

  Return -1

  end If

  end if

  else

  messagebox("提示","沒有附件")

  end if

  end if
 


  (二)在vb中的處理

  在vb中處理大對象,一般可以用OO4O(oracle objects for ole)來處理大對象。這裏介紹一種不用0040處理大對象blob的方法。
  下面這段程序可以將一個文件(文本文件,doc文件,圖象文件等)保存到數據庫中,並可以將其從數據庫讀出需要兩個commandbutton
  cmd1 名稱 cmdsave caption 保存
  cmd2 名稱 cmdread caption 讀取
  一個cmddialog控件
  同時需要創建一張表t_demo(字段id 類型 number,;字段text 類型 blob;)
  exmple 3.

  Option Explicit

  Dim rn As ADODB.Connection

  Public Function CreateDataSource(DataSource As String, UserID

  As String, Password As String) As Boolean

  On Error GoTo DbConErr:

  Set rn = New ADODB.Connection

  With rn

  .ConnectionString = "Provider=OraOledb.Oracle.1;"
 

 

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章