VB中如何将数据库中以二进制流保存的图片显示到窗体上。（在线等）

2005-12-05 09:41:25 733 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MRST开源油藏模拟：从入门到精通的全流程指南本文全面介绍了MRST开源油藏模拟工具的使用方法，从环境搭建到核心功能实战，再到性能优化和工业级应用。MRST作为一款基于MATLAB的开源工具，为油藏工程师提供了强大的数值模拟能力，特别适合教学和科研场景。文章还分享了二次开发技巧和常见问题解决方案，帮助读者快速掌握油藏模拟技术。阅读详情

如题：本人将一张图片以二进制流的方式保存到数据库中，现在需要在vb窗口上显示，不知道如何操作，还望大侠们帮小弟解决。

...全文

【YOLO 系列】基于YOLOv8的工业零件表面缺陷智能检测系统【python源码+Pyqt5界面+数据集+训练代码】本文详细介绍了如何基于YOLOv8深度学习模型和PyQt5图形界面，构建一套完整的工业零件表面缺陷智能检测系统。内容涵盖从环境搭建、数据集标注、模型训练调参到最终封装成可执行桌面软件的全流程，并深入解析了YOLOv8在工业视觉场景中的技术优势与落地优化策略。阅读详情

sandyen

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

hhjjhjhj 2005-12-17

打赏
举报

用picturebox绑定

hglai 2005-12-17

打赏
举报

看看这个，保存任何文件的：

http://www.play78.com/blog/blogview.asp?logID=160&cateID=19
有sql版和acess版

zou19820704 2005-12-05

打赏
举报

我告诉你大体流程吧
先从数据库里面读出2进制文件，在d;盘上组合成一个jpg文件，然后在窗体上load这个图片！

faysky2 2005-12-05

打赏
举报

Dim StrPicTemp As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection

Private Sub Form_Load()
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=MyDataBase;Data Source=MyService"
rs.Open "planemsg", conn, 3, adLockOptimistic, adCmdTable
End Sub
-----------------------
'保存图片到数据库
Private Sub Command1_Click()
' On Error GoTo err
Dim StmPic As ADODB.Stream
'保存你所选择的图像
Set StmPic = New ADODB.Stream
StmPic.Type = adTypeBinary '指定流是二进制类型
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
StmPic.Open '将数据获取到Stream对象中
StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的StmPic中

rs.AddNew
rs("id") = "111" '连同id一起插入到表里
rs.Fields("img").Value = StmPic.Read '从StmPic对象中读取数据
rs.Update

StmPic.Close
Exit Sub
err:
MsgBox err.Description
End Sub
-----------------------------------------
'读出图片，并显示
Private Sub Command2_Click()
Dim StmPic As ADODB.Stream
' On Error GoTo err
'读取显示数据库中id为111的图像
Set rs = conn.Execute("select img from planemsg where id='111'")
StrPicTemp = "c:\temp.jpeg"
Set StmPic = New ADODB.Stream
With StmPic
.Type = adTypeBinary
.Open
.Write rs.Fields("img") '写入数据库中的数据至Stream中
.SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture2.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
Exit Sub
err:
MsgBox err.Description
End Sub

VB中如何将数据库中以二进制流保存的图片显示到窗体上。（在线等）

相关推荐