教程学院
图像设计 多媒体类 机械制图 办公软件 操作系统 系统编程 网站编程 网页制作 数据库类 网络路由 网络工程 网络安全 考试认证
firefox火狐浏览器下载
酷网学院
CAD
AutoCad Cam350 ProEngineer GCcam MATLAB Unigraphics SolidWorks CAXA Solid3000 Cimatron EdgeCAM
系统
安全 防火墙 病毒 WinXP Win2003 Vista
数据库
编程
网络
精彩图库
  当前位置: 库库中文网 · 系统编程教程 · PowerBuilder · PowerBuilder基础教程

在PowerBuilder里面操作BLOB数据地灵活技术

学院最新推荐文章
教程推荐
『在PowerBuilder里面操作BLOB数据地灵活技术』如果文章有大量图片,显示会较慢,请等待图片下载完成
 
点击数: 更新时间:2005-9-21 

PowerBuilder提供的BLOB(Binary Large Object)数据类型可以用来处理大型数据,包括图像、大文本、Word文档、二进制文件和多媒体等各种数据,它的长度可以是0~2GB字节,我们利用BLOB类型的变量可以将数据传递给数据库以大字段方式存储。但是用通常的数据窗口技术无法将BLOB类型数据加入到数据库中,也不能将数据库中相应字段的数据提取出来,即使在程序中直接使用UPDATE和SELECT等SQL语句也是无法对BLOB类型数据进行操作的。下面笔者将介绍在PowerBuilder 7.0中操作BLOB类型数据的技巧。

程序设计原理

在PB中实现BLOB类型数据的入库和查询,主要要用到两条特殊的SQL命令——UPDATEBLOB和SELECTBLOB,首先定位要进行操作的记录,然后使用UPDATEBLOB命令就可以将BLOB类型变量中存放的数据传递给数据库,而使用SELECTBLOB则是将指定记录中的大字段数据传递给BLOB变量。

使用BLOB类型变量获取外界文件的数据内容,还必须借助于PB提供的可视化OLE控制对象,通过它可以将指定的文件内容显示成相应的对象(如BMP图片),双击它就可以激活相应的OLE服务器应用程序,来编辑修改对象的内容,同时也可以读取对象的数据内容(利用OLE控件的ObjectData属性),给BLOB类型变量赋值。

下面结合一个简单的程序实例,讲述如何处理BLOB数据类型。在这个例子中,BMP图片将作为一个大字段存储在数据库中。我们选择Microsoft Access 2000作为后台数据库,它的字段类型中包含“OLE对象”类型(如果选择MS SQL Server作为数据库服务器,可以使用TEXT或IMAGE类型字段存放大字段数据),这样就为管理多媒体数据、大文件和图片提供了支持。

操作BLOB字段的实现过程

我们在Access中创建一个新的数据库文件,文件名是bmp.mdb,在其中定义BMP图片数据表bmptable如下:

各字段的其它设置(如字段宽度等),均采用缺省形式即可。

编程前还需要做的一步准备工作是在操作系统的ODBC配置中建立指向bmp.mdb数据库的连接,名称定为bmptable。

下面的程序片段实现了数据库的连接,图片的插入、更新、删除和查询。考虑文章的篇幅,本文只列出与主题相关的程序源码。

1. 连接Access数据库

SQLCA.DBMS = "ODBC"

// SQLCA为全局transaction事务变量

SQLCA.AutoCommit = False

SQLCA.DBParm = "Connectstring='DSN=bmptable;UID=;PWD='"

CONNECT USING SQLCA;

If SQLCA. SQLCode <> 0 Then

MessageBox ("数据库错误", "连接失败!")

Halt close;

End If

2. 将BMP图片存入数据库

integer bmpno,icount

//变量bmpno存放给定的图片编号

string filepath,filename

blob blb_tmp

//…此处对图片编号bmpno赋值,例如bmpno=101;可以通过程序实现为弹出对话框窗口提供一个图片编号

//查询指定的图片编号是否已经存在

icount=0

SELECT COUNT() INTO :icount

FROM bmptable

WHERE bmptable.bmpno=:bmpno

USING SQLCA; //:bmpno为给定的图片编号

if icount>0 then

MessageBox("查询结果",string(bmpno)+" 号图片已经存在,请输入一个新的图片编号")

return

end if

//在OLE控制对象ole_1中插入BMP图片文件

GetFileOpenName("请选择一个需要插入的BMP图片文件",filepath,filename,"BMP","BMP图片文件(.BMP),.BMP")

If Len(filepath)=0 Then

Return

End If

If ole_1.InsertFile(filepath)<>0 Then //OLE错误

Return

End If

//新图片入库

string sql

sql= "INSERT INTO bmptable (bmpno,bmpdata,bmpname) &&

VALUES ("&&

+string(bmpno)+",'','"&&

+filename+"')"

EXECUTE IMMEDIATE :sql;

If SQLCA.SQLDBCode=0 Then

COMMIT USING SQLCA;

//提交事务

Else

MessageBox("数据库错误","插入失败")

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

Blb_tmp=ole_1.ObjectData

UPDATEBLOB bmptable SET bmpdata=:blb_tmp

WHERE bmptable.bmpno=:bmpno

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

If SQLCA.SQLDBCode=0 Then

COMMIT USING SQLCA;

//提交事务

MessageBox("插入成功","图片入库成功")

Else

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

ROLLBACK USING SQLCA;

//事务回滚

Return

End If

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结构的数据库应用程序。



作者:无 来源:无
】【关闭窗口
·上页:
·下页:
相关文章
     系统编程教程 - PowerBuilder基础教程
普通教程测试...
普通教程马上结~~~
普通教程发个蛋帖
普通教程PB9.0连接sqlserver数据库,配置
普通教程赚分,马上结...
普通教程赚分,速结
普通教程赚分帖~~~
普通教程rowscopy时怎么样把目标数据窗中
普通教程谁能告诉我问啥会错误?
普通教程让我沉吧~~~
普通教程0分帖子~~~
普通教程每日一蛋
精彩图片汇集
advertisement
关于站点 - 广告服务 - 联系我们 - 版权隐私 - 免责声明 - 合作伙伴 - 程序支持 - 网站地图 - 返回顶部
网站文本地图
版权所有:库库中文 2005-2007 欢迎各种媒体转载我们的原创作品[转载请注明出处]
copyright © 2005-2008 www.QQGB.com online services. all rights reserved. 蜀ICP备05015578
Template designed by Virus. Optimized for 1024x768 to Firefox,Opera and MS-IE6. Site powered by EQL.
红盾
热爱电脑,热爱生活
拥有电脑,拥有生命
让我们享受拥有电脑的时光