VB显示ACCESS中的图片

2010-05-06 12:14:20 496 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用VB6读写数据库中的图片 1，以人名和相关图片为例说明，数据库为Access，有如下字段：Name char,picture OLE object,FileLength Number。当为ms sql时，将picture改为lob即可。 2，示例包含control：commom dialog,picture,listbox。源码如下： Option Explicit Private Declare Function Ge 阅读详情

小弟刚学VB，最近用VB做了个数据库，其中有图片的显示，用ADO DATA链接的ACCESS，但是用picture控件无法显示图片，我设置的picture控件的属性为：DataSource=Adodc_XA
DataField=XA01
而且图片的变化是随着另外一个数据的改变而改变的，哪位高人知道这怎么弄啊

...全文

数据库中图片的导入与导出今天11：30要和高中同学去北海~额。虽然还不知道在哪呢……总之挺期待的，来北京近两年了，基本没怎么出去转转呢。。OK，言归正传。在Access中图片被归为Ole对象的概念，但是它在VB.NET并不是什么Object，更不会有什么引用之类的，应该用字节流的方式读取和写入，下面来大致的说一下方法先导入包包Imports System.DataImports System.D 阅读详情

orcty

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

niaorenzaixian 2010-12-28

打赏
举报

我有个求助的帖子。楼主把我代码复制进去就可以用了。。
http://topic.csdn.net/u/20101228/23/d76b2702-265a-4240-b0a9-331afce49b86.html

杀神者 2010-12-20

打赏
举报

Private Sub dj_Click() '将添加的图片保存在工程中pic文件夹里，此时表的最后列是图片所在的路径的超链接

SavePicture pic, App.Path & "\pic\" & " " & Text2.Text & "" & ".jpg"
Adodc1.Recordset.ActiveConnection.Execute "INSERT INTO pic VALUES('" & Text1.Text & "','" & Text2.Text & "','" & App.Path & "\pic\" & " " & Text2.Text & "" & ".jpg" & " ')"
Adodc1.Recordset.Requery
Text1.Text = ""
Text2.Text = ""
pic.Picture = LoadPicture()
Adodc1.Refresh

End Sub

Private Sub pic_Click() '点击打开对话框添加图片至pic

cdg.InitDir = "E:\"
cdg.Filter = "图片（*.jpg）|*.jpg|所有文件（*.*）|*.*"
cdg.ShowOpen
pic.Picture = LoadPicture(cdg.FileName, 4, vbLPColor)
End Sub
Private Sub DataGrid1_Click() '点击datagrid的某一列，同时pic中显示数据库中所连接的图片
pic.Picture = LoadPicture(Adodc1.Recordset.Fields(2).Value)
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
pic.Enabled = False
End Sub

你看看，对你有用吗！！！不一定很完善！！

饮水需思源 2010-05-06

打赏
举报

使用流对象保存和显示图片
打开vb6,新建工程。

添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection

'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String

'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
End With

'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With

'完成后关闭对象
iRe.Close
iStm.Close
End Sub

Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With

Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub

Private Sub Command1_Click()
Call s_ReadFile
End Sub

Private Sub Command2_Click()
Call s_SaveFile
End Sub

Private Sub Form_Load()
'数据库连接字符串
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"

‘下面的语句是连接sqlserver数据库的.
‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang"

Set iConc = New ADODB.Connection
iConc.Open iConcstr
End Sub

Private Sub Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub

射天狼 2010-05-06

打赏
举报

将数据库中的图片数据保存到硬盘上，建立临时文件。
然后用Picture控件显示。
定期删除！

VBAdvisor 2010-05-06

打赏
举报

也可以不保存到硬盘，将字节转换到Ｐｉｃｔｕｒｅ（用OleLoadPicture　ＡＰＩ，你Ｇｏｏｏｇｌｅ一下这个ＡＰＩ）．如何在ＰｉｃｔｕｒｅＢｏｘ中显示。

VB显示ACCESS中的图片

相关推荐