PowerBuilder 读写Oracle CLOB 和BLOB的数据

１、更新操作:

//==============================================================================
// 函数: w_record_editor::wf_savehtml()
//------------------------------------------------------------------------------
// 描述: 保存HTML到数据库中
//------------------------------------------------------------------------------
// 参数:
// value string as_html
//------------------------------------------------------------------------------
// 返回值: integer
//------------------------------------------------------------------------------
// 作者: Cao Kun 日期: 2008.12.07
//------------------------------------------------------------------------------
// 修改历史:
//
//==============================================================================

Integer li_Count,li_Page
String ls_err
Blob lb_Html

li_Page = uo_pager.getpage()

SELECT COUNT(1) INTO :li_Count FROM YS_ZY_BL_HTML Where BLBH = :il_blbh AND BLYM = :li_Page;

IF li_Count > 0 AND NOT ib_html THEN RETURN 0

//这里将String类型转换为BLOB

lb_html = blob(as_html)

gf_begin_Transaction(sqlca)

IF li_Count > 0 THEN

//请注意不管是BLOB还是CLOB都采用UPDATEBLOB
UPDATEBLOB YS_ZY_BL_HTML Set HTML = :lb_html Where BLBH = :il_blbh AND BLYM = :li_Page;

IF sqlca.SQLCode <> 0 THEN
ls_err = sqlca.SQLErrText
gf_rollback_Transaction(sqlca)

MessageBox("提示","保存HTML错误"+ls_err)
RETURN -1
END IF

ELSE

INSERT INTO YS_ZY_BL_HTML (BLBH,BLYM,HTML) Values (:il_blbh,:li_Page,'abc');

UPDATEBLOB YS_ZY_BL_HTML Set HTML = :lb_html Where BLBH = :il_blbh AND BLYM = :li_Page;

IF sqlca.SQLCode <> 0 THEN
ls_err = sqlca.SQLErrText
gf_rollback_Transaction(sqlca)

MessageBox("提示","保存HTML错误"+ls_err)
RETURN -1
END IF
END IF

gf_commit_Transaction(sqlca)

ib_html = FALSE

RETURN 0

２、查询操作:采用SELECTBLOB命令，在Powerbuilder 帮助中可以查询具体的用法。

３、在Oracle 中查询CLOB字段的占用空间，采用以下命令：

select b.Bytes from user_lobs a, user_segments b where
a.segment_name = b.segment_name;
也可以采用以下方式：

select dbms_lob.getlength(html) from ys_zy_bl_html;

请注意html是CLOB类型的字段名