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

Neoking 2004-04-30 10:33:23
我写进去了!!但是读不出来!!
用stream做的
...全文
99 8 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Neoking 2004-05-03
谢谢大家!!祝大家5.1玩的愉快。。。
我惨了,才放3天,工资才500/M
  • 打赏
  • 举报
回复
海牛 2004-05-02
楼上的无错哦
  • 打赏
  • 举报
回复
chinaren502 2004-05-02
添个PictureBOx
set picturebox.recordsource=ado1
picturebox.datafield=你保存图片的字段
这样就出来拉
  • 打赏
  • 举报
回复
chinaren502 2004-05-02
楼主5、1快乐!
大家也快乐!同乐~
我接点分:)
  • 打赏
  • 举报
回复
luoxiaoxiang 2004-05-02
yes!
  • 打赏
  • 举报
回复
online 2004-05-01
可以用 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

  • 打赏
  • 举报
回复
mycoldboy 2004-05-01
直接把图片文件用二进制写进去,再读
  • 打赏
  • 举报
回复
Neoking 2004-05-01
??????????????????
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7595

社区成员

VB 基础类
社区管理员
  • VB基础类社区
申请成为版主
帖子事件
创建了帖子
2004-04-30 10:33
社区公告
暂无公告