实时错误481，无效图片 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 实时错误481，无效图片

标题：实时错误481，无效图片

只看楼主

henshai

等　级：新手上路
帖　子：69
专家分：0
注　册：2007-1-11

第 21 楼

得分:0

我手动在access里面写的，插入对象里面选择的

2007-12-01 20:57

henshai

等　级：新手上路
帖　子：69
专家分：0
注　册：2007-1-11

第 22 楼

得分:0

加个msn吧，这样方便点啊

2007-12-01 20:59

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 23 楼

得分:0

晕菜..
你一意不把问题说清楚..我也没办法..
你手动在Access里写..你也有个代码吧?..
PS:在Access字段里按右键..插入对象..这样是不行的..

..必需使用Adodb.Stream
stream.loadfromfile("d:\temp.jpg")
Fields("Photo").Value=stream.Read()
rs.close

这样保存图片之后..才可以读..

如果你是这样..还不行..那我也不知了.

我的msn: myfend@

2007-12-01 21:11

henshai

等　级：新手上路
帖　子：69
专家分：0
注　册：2007-1-11

第 24 楼

得分:0

无效图片

Set Stm = New ADODB.Stream
With Stm
  .Mode = adModeReadWrite
  .Type = adTypeBinary
  .Open
  .Write rs("Photo")
  .SaveToFile App.Path + "\PhotoTemp.jpg"
End With
'显示图片
Stm.Close
Picture1.Picture = LoadPicture(App.Path + "\PhotoTemp.jpg")

2007-12-01 21:17

henshai

等　级：新手上路
帖　子：69
专家分：0
注　册：2007-1-11

第 25 楼

得分:0

这里 cnn 1，3什么意思？
With Stm
.Type = adTypeBinary
.Open
.LoadFromFile App.Path + "\Sunset.jpg"
End With

With rs
.Open "SELECT * FROM StdInfo", Cnn, 1, 3
.AddNew
.Fields("Photo") = Stm.Read
.Update
End With

2007-12-01 21:29

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-189715-1-1.html