VB+ACCESS ole 求助

来源：百度知道 编辑：UC知道 时间：2024/05/25 21:27:15
我想把 access 里的 ole 对象（mp3）文件 用vb6.0里播放？这个怎么实现啊？
我用 ADO 控件udl 文件链接了 accsess 数据库。。。但数据库里的文本文件可以调用出来，但音频文件（mp3）就调用不了。。。怎么办啊？

使用 ADODB.Stream
下面是个简单的读取 OLE对象 字段的例子

Private Sub Command1_Click()
On Error GoTo errHand

Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim mStream As ADODB.Stream '文件流

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test\db1.mdb;Persist Security Info=False"
conn.Open

Set rs = conn.Execute("SELECT mp3 FROM t1")

If Not rs.EOF Then
Set mStream = New ADODB.Stream
mStream.Type = adTypeBinary '指定二进制文件格式
mStream.Open '打开文件流
mStream.Write rs!mp3 '向文件流写入 OLE 对象 字段的内容
mStream.SaveToFile "d:\test.mp3", adSaveCreateOverWrite '保存成文件

mStream.Close '关闭文件流

'下面你可以通过适当方法播放这个MP3文件
End If