标题:[求助]怎样读取ACCESS数据库中的OLE对象的图片啊???
只看楼主
xqiang
Rank: 1
等 级:新手上路
帖 子:291
专家分:0
注 册:2006-2-23
 问题点数:0 回复次数:9 
[求助]怎样读取ACCESS数据库中的OLE对象的图片啊???
怎样读取ACCESS数据库中的OLE对象的图片啊???
我想把ACCESS数据库中的图片都保存在本地计算机上,要怎么编程啊?
谢谢
搜索更多相关主题的帖子: OLE 数据库 ACCESS 对象 
2006-12-18 10:35
angeloc
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:36
帖 子:1353
专家分:0
注 册:2006-11-21
得分:0 
果然发在这了,呵呵!

老牛明知夕阳晚,不用扬鞭自奋蹄; Angelo\'s BLOG
2006-12-18 10:38
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
保存图片的路径吧,比较简单些.

飘过~~
2006-12-18 11:33
xqiang
Rank: 1
等 级:新手上路
帖 子:291
专家分:0
注 册:2006-2-23
得分:0 

版主啊,
那些图片已经在ACCESS数据库里了,
现在的任务是要把那些图片读取出来并保存在本地
用JSP怎么写啊?
要不,不用JSP也行,只要能保存下来就行
谢谢了


相信自己可以的!!! http://www.
2006-12-18 11:49
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
那就把图片读出来,转换成图片格式,再进行保存不就行了??

飘过~~
2006-12-19 09:48
xqiang
Rank: 1
等 级:新手上路
帖 子:291
专家分:0
注 册:2006-2-23
得分:0 

版主啊,
不是我说你
这个真是的废话
问题是怎么把图片读出来,又怎么转换成图片格式,再怎么保存?
不知道要跟到几楼才可以解决问题

痛苦啊


相信自己可以的!!! http://www.
2006-12-27 12:37
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
你是想用什么语言去读它?.

我的msn: myfend@
2006-12-27 13:01
xqiang
Rank: 1
等 级:新手上路
帖 子:291
专家分:0
注 册:2006-2-23
得分:0 

什么语言都可以,只要能拿出来
有没有办法啊?
谢谢


相信自己可以的!!! http://www.
2006-12-28 10:39
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

使用流对象保存和显示图片
打开vb6,新建工程。

添加两个按钮,一个image控件

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection


'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String

'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
End With


'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With


'完成后关闭对象
iRe.Close
iStm.Close
End Sub


Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With


Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub


Private Sub Command1_Click()
Call s_ReadFile
End Sub


Private Sub Command2_Click()
Call s_SaveFile
End Sub


Private Sub Form_Load()
'数据库连接字符串
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"

Set iConc = New ADODB.Connection
iConc.Open iConcstr
End Sub


Private Sub Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub


我的msn: myfend@
2006-12-28 13:45
zcc8607
Rank: 2
等 级:论坛游民
帖 子:21
专家分:19
注 册:2008-5-19
得分:0 
能告诉我用php怎么读取吗?
谢谢
2008-05-19 14:40



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




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.101339 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved