VB显示ACCESS中的图片

[orcty]

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

[VBAdvisor]

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

[射天狼]

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

[饮水需思源]

使用流对象保存和显示图片
打开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

[杀神者]

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

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

[niaorenzaixian]

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