PowerBuilder 读取Oracle Clob字段内容

  最近需要用PowerBuilder读取Oracle 的Clob字段内容，发现直接使用SELECTBLOB读取的数据总是有数据不能完全读取问题。最后我在网上进行了搜罗，发现可以写一个FUNCTION来进行处理： 

1、Oracle读取Clob函数，一次可以读取2000个字符： 

create or replace function getclob(
    table_name in varchar2, --表名
    field_name in varchar2, --CLOB字段名
    v_tj in varchar2,  --表查询条件
    v_pos in number –字符起始位置)

  return varchar2 is  
    buffer varchar2(32767);
    lobloc  clob;   
    amount number := 2000;
      query_str varchar2(1000);
    begin
query_str :='select '||field_name||' from '||table_name||' where '||v_tj||'';
      --initialize buffer with data to be found
      EXECUTE IMMEDIATE query_str INTO lobloc ;
      --read 2000 varchar2 from the buffer
      dbms_lob.read(lobloc,amount,v_pos+1,buffer);
      return buffer;
      exception
        when no_data_found then
        return buffer;
        end;

2、PowerBuilder采用循环读取CLOB字段的所有内容： 

String ls_temp,ls_data,ls_data1

ls_temp = " blbh="+String(ll_blbh)+" and blym= "+String(li_blym)

SELECT dbms_lob.getlength(html) INTO :ll_len FROM ys_zy_bl_html Where blbh = :ll_blbh AND blym = :li_blym;

Long i

i = 1 

DO

//调用ORACLE的函数GetClob
 SELECT getclob('ys_zy_bl_html','html',:ls_temp,:i ) INTO :ls_data FROM dual;
 
 ls_data1 = ls_data1 + ls_data 
 ll_len = ll_len - 2000 
 i = i + 2000 
LOOP WHILE ll_len >= 0 

注：ll_blbh, li_blym为PowerBuilder变量。

简单吧，ls_data1就是需要读取的CLOB字段的全部内容。