1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
vbman2003 2004-08-26
- 打赏
- 举报
上面忘了
Dim cn As ADODB.Connection
Dim Stm As ADODB.Stream
Dim StrTemp As String
Dim Sql As String
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
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
