在线等待指教？？

Question

我的access库里存放的图片和声音数据,都是长二进制型的,数据类型显示为:OLE 对象,怎么把它读出来放在picture控件里面呢?
还有,读声音应该和读图片的方法一样吧,那声音怎么办???
最好可以有一段示例代码...
另外是这样如果图片有很多，如何一次全部存进去，我看了前面的一些帖子，
.......
    mstream.Mode = adModeReadWrite
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile "e:\13.jpg"
    rs.AddNew
......

Answer 1

上面是写，这才是读出。。
dim stmFile as As ADODB.Stream
    With stmFile
        .Type = adTypeBinary
        .Open
        .Write rsFile.Fields("imagefield1")
        .SaveToFile "d:\aa.jpg", adSaveCreateOverWrite
        .Close
    End With
picture1..Picture = LoadPicture("d:\aa.jpg")

Answer 2

dim stmFile as As ADODB.Stream rsFile.open "select imagefield1 from table1",cn
    With stmFile
        .Type = adTypeBinary
        .Open
        .Write rsFile.Fields("imagefield1")
        .SaveToFile "d:\aa.jpg", adSaveCreateOverWrite
        .Close
    End With
  rsfile.close
set rsfile=nothing
picture1..Picture = LoadPicture("d:\aa.jpg")