如何用ADO存取ACCESS中的图形（OLE对象）？

[forest]

请不要用控件。

[forest]

[CPLiu]

关注

[forest]

拜托各位大哥帮帮忙，兄弟急等着用呢

[forest]

我急呀，上午要作出来

[forest]

这么常用的问题难道没人会吗？

[forest]

这么常用的问题难道没人会吗？

[forest]

这么常用的问题难道没人会吗？

[forest]

这么常用的问题难道没人会吗？

[forest]

[mudfans]

try

dim byteArray() as byte
bytearray=rs.field("ole字段名")

[michaelpeng7799]

我这里有程序，你要么？可以EMAIL给你。

[格兰特杨]

关注

[forest]

to :cocoboy97
太感谢了，请马上发给我吧。我把分数提到一百分。
email:[e-mail]

[playyuer]

如何将MDB中的二进制数据写入文件
http://www.csdn.net/expert/Topic/55406.shtm

如何把保存在数据库内的图片的高和宽读出！
http://www.csdn.net/expert/TopicView.asp?id=50275

[forest]

[Spring414]

你说"请不要用控件"什么意思？不用ADO控件？

[ghw]

前一段时间有类似的问题，可以参考一下

[zhjclub]

问这个问题的人已经给我加了50分了，你预备加多少？

[forest]

TO：Spring414(史无前例)　
我指得是不要采取PICTUREBOX绑定到ADO数据控件的方式实现。
TO：cocoboy79(酷克.net)　
谢谢，我用你提供的例程解决了问题。
我把方法公布一下，希望能对遇上类似问题的哥们姐们省点力：
Private data() As Byte, Size As Long, Diskfile As String
Private Crs As New ADODB.Recordset, Cconn As New ADODB.Connection

Public Sub MoveNext()
If Crs.EOF = True Then
Crs.MoveLast
Else
Crs.MoveNext

End If
End Sub

Public Sub MovePre()

If Crs.BOF = True Then
Crs.MoveFirst
Else
Crs.MovePrevious
End If
End Sub
Public Sub GetDataBase(MDB As String, Table As String)


Cconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDB & " ;"
Crs.Open "select * from " & Table, Cconn, adOpenKeyset, adLockOptimistic

End Sub


Public Sub GetFrom(cfield As String, Optional Container As Variant) '从字段中得到数据放生成文件，然后再显示。
'将字段中的图形数据存入一个文件(image.bmp)，然后在PICTUREBOX中显示出来


Diskfile = App.Path & "\image.bmp"

On Error Resume Next
Size = Crs(cfield).ActualSize
data() = Crs(cfield).GetChunk(Size)
Open Diskfile For Binary As #1
Put #1, , data()
Close #1
Container.Picture = LoadPicture(Diskfile)
End Sub

Public Sub PutTo(cfieldstr As String)
'将一个图形文件放入字段中

Crs.AddNew
On Error Resume Next
Diskfile = InputBox("please input a filename")

Open Diskfile For Binary As #1
Size = LOF(1)
ReDim data(Size)
Get #1, , data()
Debug.Print Diskfile & " " & Size
Crs(cfieldstr).AppendChunk data()
Crs.Update
Close #1
End Sub

Private Sub Class_Terminate()
Set Crs = Nothing
Set conn = Nothing
End Sub

[wxj_lake]

http://210.75.132.33/lakes/detail.asp?id=63
http://210.75.132.33/lakes/detail.asp?id=214