用stream对象,在ado2.5以上版本有,可以在VB的引用中找到。
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields(图像字段).Value
With cdOpen
.FileName = ""
.Filter = "Image (*.gif)|*.gif"
.ShowSave
If Len(.FileName) <> 0 Then
mstream.SaveToFile .FileName, adSaveCreateOverWrite '写入临时文件。
Picture2.Picture = LoadPicture(.FileName)
End If
End With
rs.Close