在PowerBuilder中操作BLOB数据的技巧

3. 从数据库中删除BMP图片

UPDATE bmptable SET bmpdata=''

WHERE bmptable.bmpno=:bmpno

USING SQLCA;

//bmpno为要删除的图片编号

If SQLCA.SQLDBCode=0 Then

COMMIT USING SQLCA;

//提交事务

Else

MessageBox("数据库错误","更新失败")

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

DELETE FROM bmptable

WHERE bmptable.bmpno=:bmpno

USING SQLCA;

If SQLCA.SQLDBCode=0 Then

COMMIT USING SQLCA;

//提交事务

MessageBox("删除成功","图片删除成功")

Else

MessageBox("数据库错误","删除失败")

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

4. 按图片编号查询图片信息

//需要提供一个图片编号存放在变量bmpno中

SetNull(blb_tmp)

SELECTBLOB bmptable.bmpdata INTO :blb_tmp

FROM bmptable

WHERE bmptable.bmpno=:bmpno

USING SQLCA;

If Not IsNull(blb_tmp) Then

ole_1.ObjectData=blb_tmp

//双击OLE控制唤醒OLE服务器即可编辑图片

End If

使用PB编程时，每次对数据库进行操作后要注意检查返回结果，以保证程序的可靠性。以上程序只是对操作BLOB数据类型的关键技术进行探讨，通过画板设计相应的用户界面，即可形成一个完整的基于Client/Server结构的数据库应用程序。

查看本文来源