如何读取数据库中的声音?????

dreamwaters 2004-08-26 02:23:02
我用AOD的stream将声音存入数据库中,请问如何读出呢?
要详细的代码。
...全文
47 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
vbman2003 2004-08-26
上面忘了
Dim cn As ADODB.Connection
Dim Stm As ADODB.Stream
Dim StrTemp As String
Dim Sql As String
回复
vbman2003 2004-08-26
'打开记录集
Dim rs New ADODB.Recordset
Set rs = New ADODB.Recordset
'按声音文件ID号打开记录集
Sql = "select * from mp3_info where id=" & Trim(Text1.Text) & ""
rs.Open Sql, cn, adOpenKeyset, adLockOptimistic
'读取文件
If Not IsNull(rs.Fields(1)) Then
Set Stm = New ADODB.Stream
StrTemp = "c:\temp.tmp" '临时文件,用来保存读出的音频文件
With Stm
.Type = adTypeBinary
.Open
.Write rs.Fields(1)
.SaveToFile StrTemp, adSaveCreateOverWrite
.Close
End With
MediaPlayer1.Open StrTemp 'MediaPlayer控件读取
End If
rs.Close
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-26 02:23
社区公告
暂无公告