| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1262 人关注过本帖, 1 人收藏
标题:vb 如何将数据库的二进制图片转换成图片格式文件
只看楼主 加入收藏
枫叶照耀
Rank: 1
等 级:新手上路
帖 子:5
专家分:5
注 册:2012-4-1
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:4 
vb 如何将数据库的二进制图片转换成图片格式文件
vb 如何将数据库的二进制图片转换成图片格式文件
搜索更多相关主题的帖子: 文件 vb 格式 图片 转换 
2023-08-12 00:05
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:10 
在VB6中,可以使用`SavePicture`方法将数据库中的二进制图片转换为图片文件。以下是一个示例代码:

```vb
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim fileName As String

' 连接数据库
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myDatabase.mdb"

' 执行查询语句
rs.Open "SELECT * FROM myTable WHERE ID = 1", cn, adOpenKeyset, adLockOptimistic

' 获取图片字段的二进制数据
Dim imageBytes() As Byte
imageBytes = rs.Fields("ImageField").Value

' 保存图片
fileName = "C:\myImage.jpg"
SavePicture imageBytes, fileName

' 关闭连接
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
```

其中,`myDatabase.mdb`是你的数据库文件名,`myTable`是包含图片字段的表名,`ID`是图片的唯一标识,`ImageField`是存储图片的字段名。`myImage.jpg`是保存图片的文件名。

请注意,上述代码假设图片是以JPG格式存储在数据库中的。如果你的图片是以其他格式存储,你需要相应地修改保存图片的文件名的后缀。

另外,需要确保你已经引用了`Microsoft ActiveX Data Objects 2.x Library`,这样才能使用`ADODB`对象库。你可以通过在VB6的开发环境中选择`项目`->`引用`,然后勾选相应的引用来添加该库。
2023-08-12 07:55
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 

授人于鱼,不如授人于渔
早已停用QQ了
2023-08-12 21:58
枫叶照耀
Rank: 1
等 级:新手上路
帖 子:5
专家分:5
注 册:2012-4-1
收藏
得分:0 
回复 2楼 约定的童话
谢谢!这个确实简单的多
2023-08-14 23:37
枫叶照耀
Rank: 1
等 级:新手上路
帖 子:5
专家分:5
注 册:2012-4-1
收藏
得分:0 
回复 3楼 风吹过b
谢谢,已经查到这个了,测试了可以用,版主推荐的更简单点
2023-08-14 23:37
快速回复:vb 如何将数据库的二进制图片转换成图片格式文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026939 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved