求高手帮帮忙！！！急用！！！！！

这问题的答案蛮广泛的〜我这样回答你可能无法满意〜

=>前题是你想自己写〜要想写出这东西〜

01.基本上须具备基本电脑常识〜
02。知道怎安装软件和设定〜SQL服务器（不是安装完就能用的）〜
03。你必须有资料来源〜才能规划出您要的数据库分类〜
04。你必须了解〜你所要播放档案本身的结构和组态〜甚至数据结构〜
05。你必须了解〜你要什么功能〜新增出一个数据库Table〜再对数据库实行五段正规化〜
06。你必须了解〜怎用的SQL语法做出〜新增。修改。查询....等功能的指令〜
07。你必须了解〜怎让VB6的透过ODBC驱动程序〜新增DSN连结档〜去让VB6和数据库沟通〜
08。你必须具备〜基本以上的VB6的编程经验〜
09。您必须具备〜不屈不挠的精神〜来面对编程完之后这繁杂的调试阶段〜
10。您必须具备〜遇上难题就上网查找相关资料的能力〜

=>后题是您想用现成的〜

1。要有钱〜（这是唯一的条件）

OK?


[ 本帖最后由 wube 于 2011-6-13 04:58 编辑 ]

谢谢哈！下面是我的代码！！在数据库中能存放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
这是存放音乐的代码！！！
您看看！！！

我们老师给我们布置的作业

http://damody.
VB6中播放的MP3的范例网路上多到爆～这是其中之一～
http://web2.tcssh.tc.edu.tw/teacher/cjwu/vb/ctl/LMediaPlayer03.html
这也是～我记得拉了控件后～关键代码只要2行就能播放音乐～

P.S "10。您必须具备～遇上难题就上网查找相关资料的能力"～(不是说遇上难题就上网找人替你查找相关资料的能力)

VB6对数据库的使用～我也还在学习中～共勉之～

这真的是你老师给你的代码～还是你自己写的～
老实说我看的一头雾水～写法好怪～2边都有档？

    If Left(fne, 1) = "." Then
        fne = Right(fne, 3)
    Else
        fne = ""
    End If

这段要是我会改写成～

Const Extension=".mp3"
....
    If InStr(UCase(fn), UCase(Extension)) <> 0 And fnt <> "" Then
....

代码前面先选取档案～然后验证档案拓展名～
验证过后也没什么代表通过验证的符号布林值..等～就直接去数据库找档案～再Load出档案编码？

再来做数据库查询吧～不然验证拓展名就变得无意义了～
"Adodc1.Recordset.Fields("image").AppendChunk" -> 这段我也是看不太懂～把MP3播放存成图片格式？
strb()里面都是MP3编码的话～可能就要找找的MP3解码器的源码了吧?

http://blog.
有找到这个～VB-将栅格图片存储到SQL Server 2000中～蛮类似的写法～