怎样在VB的Picture控件中显示保存在数据库中的二进制文件

[leewoo999]

怎样在VB的Picture控件中显示保存在数据库中的二进制文件，或用别的控件显示数据库中的图像文件也行。
谢谢。

[_西瓜皮_]

使用ADO2.5当中的流格式读出。
先保存成文件，再Loadpicture

[wumy_ld]

这是偶写的一个函数：
'设置临时照片文件
Public Function ReadDB(col As ADODB.Field, ByVal imgFile As String) As Boolean
On Error GoTo ErrRead
Dim mStream As New ADODB.Stream
ReadDB = False

If col.ActualSize < 200 Then Exit Function

mStream.Type = adTypeBinary
mStream.Open
mStream.Write col.Value
mStream.SaveToFile imgFile, adSaveCreateOverWrite
ReadDB = True
Exit Function
ErrRead:
MsgBox "设置临时照片文件时出现错误:" & vbCrLf & Err.Description, vbInformation, "提示"
ReadDB = False
End Function

传相应字段和一个文件名，该函数就把图像读出来，然后保存到该文件里。之后你用set picture1.picture=loadpicture(imgfile)就OK了。

[neo40]

up