VB SQLServer image数据存入和取出ADODB.Stream

VB SQLServer image数据存入和取出

rs是已经打开的记录，有Picture字段，字段类型是Image，现在需要将本地图片存入数据库，或者将数据库内的该图片取出

‘读取本地图片的路径path到数据库

Public Sub ImageReadIntoDB(path As String)

Dim istream As New ADODB.Stream
With istream
    .Type = adTypeBinary
    .Open
    .LoadFromFile path 
End With
rs!Picture = istream.Read
rs.Update
istream.Close
MsgBox "图片上传到服务器成功"

End Sub

‘从数据库取出图片到temp.jpg

Public Sub ImageLoadFromDB()

Dim ostream As New ADODB.Stream
With ostream
    .Mode = adModeReadWrite
    .Type = adTypeBinary
    .Open
    .Write rs!Picture
    If Dir("temp.jpg") <> "" Then Kill "temp.jpg"
    .SaveToFile "temp.jpg"
End With
ostream.Close

End Sub