搜索
编程论坛
→
开发语言
→
『 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
25
3/3页
1
2
3
参与讨论请移步原网站贴子:
https://bbs.bccn.net/thread-189715-1-1.html
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.621066 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved