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

[dreamwaters]

我用AOD的stream将声音存入数据库中，请问如何读出呢？
要详细的代码。

[vbman2003]

'打开记录集
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

[vbman2003]

上面忘了
Dim cn As ADODB.Connection
Dim Stm As ADODB.Stream
Dim StrTemp As String
Dim Sql As String