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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3199 人关注过本帖

标题：实时错误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

快速回复：实时错误481，无效图片