vb如何制作播放器（sql+vb）
求高手帮帮忙！！！急用！！！！！
谢谢哈！下面是我的代码！！在数据库中能存放MP3歌曲！但是不知道怎样播放，在网上看了很多资料，但是看不太明白!!希望你能帮帮我，我都祖册i了N个空间了！！！
Private Sub cmdPlay_Click()
Dim strb() As Byte, fn$, fnt$, fne$, fnl!
CommonDialog1.ShowOpen
fn = LCase(CommonDialog1.filename)
fnt = LCase(CommonDialog1.FileTitle)
fne = Right(fnt, 4)
If Left(fne, 1) = "." Then
fne = Right(fne, 3)
Else
fne = ""
End If
Adodc1.Recordset.Find ("name ='" & fn & "'"), , , 1
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.AddNew
Open fn For Binary As #1
fnl = LOF(1)
ReDim strb(fnl)
Get #1, , strb
Adodc1.Recordset.Fields("image").AppendChunk strb
Close #1
Adodc1.Recordset.Fields("name") = fnt
Adodc1.Recordset.Fields("size") = fnl
Adodc1.Recordset.Fields("type") = fne
Adodc1.Recordset.Update
End If
End Sub
这是存放音乐的代码！！！
您看看！！！