在PowerBuilder中操作BLOB数据的技巧[2]

//提交事务

Else

MessageBox（数据库错误插入失败）

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

Blb_tmp=ole_ObjectData

UPDATEBLOB bmptable SET bmpdata=:blb_tmp

WHERE bmptablebmpno=:bmpno

USING SQLCA; //更新存放图片的字段

If SQLCASQLDBCode= Then

COMMIT USING SQLCA;

//提交事务

MessageBox（插入成功图片入库成功）

Else

MessageBox（数据库错误更新图片失败）

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

从数据库中删除BMP图片

UPDATE bmptable SET bmpdata=

WHERE bmptablebmpno=:bmpno

USING SQLCA;

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

If SQLCASQLDBCode= Then

COMMIT USING SQLCA;

//提交事务

Else

MessageBox（数据库错误更新失败）

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

DELETE FROM bmptable

WHERE bmptablebmpno=:bmpno

USING SQLCA;

If SQLCASQLDBCode= Then

COMMIT USING SQLCA;

//提交事务

MessageBox（删除成功图片删除成功）

Else

MessageBox（数据库错误删除失败）

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

按图片编号查询图片信息

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

SetNull（blb_tmp）

SELECTBLOB bmptablebmpdata INTO :blb_tmp

FROM bmptable

WHERE bmptablebmpno=:bmpno

USING SQLCA;

If Not IsNull（blb_tmp） Then

ole_ObjectData=blb_tmp

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

End If

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

编辑推荐

ASP NET开发培训视频教程

Microsoft NET框架程序设计视频教程

[] []