xqiang 发表于 2006-12-18 10:35

[求助]怎样读取ACCESS数据库中的OLE对象的图片啊？？？

怎样读取ACCESS数据库中的OLE对象的图片啊？？？<BR>我想把ACCESS数据库中的图片都保存在本地计算机上,要怎么编程啊?<BR>谢谢   <BR>

angeloc 发表于 2006-12-18 10:38

果然发在这了，呵呵！

bygg 发表于 2006-12-18 11:33

保存图片的路径吧,比较简单些.

xqiang 发表于 2006-12-18 11:49

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

bygg 发表于 2006-12-19 09:48

那就把图片读出来,转换成图片格式,再进行保存不就行了??

xqiang 发表于 2006-12-27 12:37

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

purana 发表于 2006-12-27 13:01

你是想用什么语言去读它?.

xqiang 发表于 2006-12-28 10:39

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

purana 发表于 2006-12-28 13:45

<P>使用流对象保存和显示图片 <BR>打开vb6,新建工程。</P>
<P>添加两个按钮,一个image控件</P>
<P>'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本<BR>‘2.5版本以下不支持Stream对象<BR>Dim iConcstr As String<BR>Dim iConc As ADODB.Connection</P>
<P><BR>'保存文件到数据库中<BR>Sub s_SaveFile()<BR>Dim iStm As ADODB.Stream<BR>Dim iRe As ADODB.Recordset<BR>Dim iConcstr As String</P>
<P>'读取文件到内容<BR>Set iStm = New ADODB.Stream<BR>With iStm<BR>.Type = adTypeBinary '二进制模式<BR>.Open<BR>.LoadFromFile App.Path + "\test.jpg"<BR>End With</P>
<P><BR>'打开保存文件的表<BR>Set iRe = New ADODB.Recordset<BR>With iRe<BR>.Open "select * from img", iConc, 1, 3<BR>.AddNew '新增一条记录<BR>.Fields("photo") = iStm.Read<BR>.Update<BR>End With</P>
<P><BR>'完成后关闭对象<BR>iRe.Close<BR>iStm.Close<BR>End Sub</P>
<P><BR>Sub s_ReadFile()<BR>Dim iStm As ADODB.Stream<BR>Dim iRe As ADODB.Recordset<BR>'打开表<BR>Set iRe = New ADODB.Recordset<BR>‘得到最新添加的纪录<BR>iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly<BR>'保存到文件<BR>Set iStm = New ADODB.Stream<BR>With iStm<BR>.Mode = adModeReadWrite<BR>.Type = adTypeBinary<BR>.Open<BR>.Write iRe("photo")<BR>‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.<BR>.SaveToFile App.Path &amp; "\test1.jpg"<BR>End With</P>
<P><BR>Image1.Picture = LoadPicture(App.Path &amp; "\test1.jpg")<BR>'关闭对象<BR>iRe.Close<BR>iStm.Close<BR>End Sub</P>
<P><BR>Private Sub Command1_Click()<BR>Call s_ReadFile<BR>End Sub</P>
<P><BR>Private Sub Command2_Click()<BR>Call s_SaveFile<BR>End Sub</P>
<P><BR>Private Sub Form_Load()<BR>'数据库连接字符串<BR>iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" &amp; _<BR>";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"<BR><BR>Set iConc = New ADODB.Connection<BR>iConc.Open iConcstr<BR>End Sub</P>
<P><BR>Private Sub Form_Unload(Cancel As Integer)<BR>iConc.Close<BR>Set iConc = Nothing<BR>End Sub<BR></P>

zcc8607 发表于 2008-5-19 14:40

能告诉我用php怎么读取吗？
谢谢

页: [1]

编程论坛