play.txt

这是支持*.mp3和*.wma格式的播放器代码

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim filename As String
Dim filepath As String

Private Sub Command1_Click()
Dim fname, fpath, s As String
cmdDialog.Filter = "(音频文件)*.mp3|*.mp3||(音频文件)*.mp3|*.mp3"
cmdDialog.ShowOpen
fname = cmdDialog.FileTitle
fpath = cmdDialog.filename
On Error GoTo dosome
s = "insert into soundtable values('" + fname + "','" + fpath + "')"
cmd.ActiveConnection = cn
cmd.CommandText = s
cmd.Execute
soundList.AddItem fname
Exit Sub
dosome:
 MsgBox "当前的歌曲已在数据库中存在!"
End Sub

Private Sub Command2_Click()
Dim s As String

If soundList.ListIndex <> -1 Then
s = soundList.List(soundList.ListIndex)
cmd.CommandText = "delete from soundtable where soundname='" + s + "'"
cmd.Execute
soundList.RemoveItem soundList.ListIndex
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
filename = soundList.List(soundList.ListIndex)
cmd.CommandText = "select * from soundtable where soundname='" + filename + "'"
Set rs = cmd.Execute
filepath = rs.Fields("soundpath").Value
mciExecute "open " + filepath + "alias mywav"
mciExecute "play mywav"
End Sub

Private Sub Command5_Click()
mciExecute "close mywav"
End Sub

Private Sub Form_Load()
On Error GoTo dosome
cn.ConnectionString = "driver={sql server};server=DBC35B6620F64B4;uid=;pwd=;database=sound"
cn.Open
cmd.ActiveConnection = cn
cmd.CommandText = "select * from soundtable"
Set rs = cmd.Execute
While Not rs.EOF
soundList.AddItem rs.Fields("soundname").Value
rs.MoveNext
Wend
rs.Close
Exit Sub
dosome:
  MsgBox "数据库连接错误!"
End Sub