access里面可以写入图片，并正确读出来吗？？

[Neoking]

我写进去了！！但是读不出来！！
用stream做的

[Neoking]

??????????????????

[mycoldboy]

直接把图片文件用二进制写进去,再读

[online]

可以用 ADODB.Stream来实现:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stm As ADODB.Stream

Private Sub SavePictureToDB(cn As ADODB.Connection)
'将BMP图片存入数据库
On Error GoTo EH
Set stm = New ADODB.Stream
rs.Open "select ImagePath,ImageValue from tbl_Image", cn, adOpenKeyset, adLockOptimistic
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

With stm
.Type = adTypeBinary
.Open
.LoadFromFile CommonDialog1.FileName
End With
With rs
.AddNew
.Fields("ImagePath") = Text1.Text
.Fields("ImageValue") = stm.Read
.Update
End With
rs.Close
Set rs = Nothing
Exit Sub
EH: MsgBox Err.Description, vbInformation, "Error"
End Sub


Private Sub LoadPictureFromDB(cn As ADODB.Connection)
'载数据库中读出BMP图片
On Error GoTo EH
Dim strTemp As String
Set stm = New ADODB.Stream
strTemp = "c:\temp.tmp" '临时文件,用来保存读出的图片
rs.Open "select ImagePath,ImageValue from tbl_image", cn, , , adCmdText
With stm
.Type = adTypeBinary
.Open
.Write rs("ImageValue")
.SaveToFile strTemp, adSaveCreateOverWrite
.Close
End With
Image1.Picture = LoadPicture(strTemp)
Set stm = Nothing
rs.Close
Set rs = Nothing
Exit Sub
EH: MsgBox Err.Description, vbInformation, "Error"
End Sub

[luoxiaoxiang]

yes!

[chinaren502]

楼主5、1快乐！
大家也快乐！同乐~
我接点分：）

[chinaren502]

添个PictureBOx
set picturebox.recordsource=ado1
picturebox.datafield=你保存图片的字段
这样就出来拉

[海牛]

楼上的无错哦

[Neoking]

谢谢大家！！祝大家5.1玩的愉快。。。
我惨了，才放3天，工资才500/M