各位前辈：
最近做了个数据库，想在里面存放歌曲，
没有这方面的经验，
能不能指点一下
谢谢！！
另外，还想结识，编程界的朋友。
我的邮箱是： cuibaozhen1234@163.com

没玩过哦.

在数据库里存音乐？~~

没做过/////////////

在数据库里放过图片没有？如果做过就好办了。image字段可以存放任何文件。
我存过EXE，DOC，MP3.....
你的音乐文件应该可以。

见过存放图片的。音乐文件？没试过。。
image字段可以存放任何文件？真的吗？受教了。

Private Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String)
Dim byteData() As Byte '定义数据块数组
Dim NumBlocks As Long '定义数据块个数
Dim FileLength As Long '标识文件长度
Dim LeftOver As Long '定义剩余字节长度
Dim SourceFile As Long '定义自由文件号
Dim i As Long '定义循环变量
SourceFile = FreeFile '提供一个尚未使用的文件号
Open DiskFile For Binary Access Read As SourceFile '打开文件
FileLength = LOF(SourceFile) '得到文件长度
If FileLength = 0 Then '判断文件是否存在
Close SourceFile
MsgBox DiskFile & " 无 内 容 或 不 存 在 !"
Else
NumBlocks = FileLength \ BLOCKSIZE '得到数据块的个数
LeftOver = FileLength Mod BLOCKSIZE '得到剩余字节数
Fld.Value = Null
ReDim byteData(BLOCKSIZE) '重新定义数据块的大小
For i = 1 To NumBlocks
Get SourceFile, , byteData() ' 读到内存块中
Fld.AppendChunk byteData() '写入FLD
Next i
ReDim byteData(LeftOver) '重新定义数据块的大小
Get SourceFile, , byteData() '读到内存块中
Fld.AppendChunk byteData() '写入FLD
Close SourceFile '关闭源文件
End If
End Sub
'显示照片
Private Sub ShowPhoto(rf As ADODB.Field)
Dim Chunk() As Byte
Const ChunkSize As Integer = 2384
Dim DataFile As Integer, Chunks, Fragment As Integer
Dim MediaTemp As String
Dim lngOffset, lngTotalSize As Long
Dim i As Integer
MediaTemp = App.Path & "\picturetemp.tmp"
DataFile = 1
Open MediaTemp For Binary Access Write As DataFile
lngTotalSize = rf.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = rf.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Chunk(ChunkSize)
Chunk() = rf.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
picPhoto.Picture = LoadPicture(MediaTemp)
Kill MediaTemp
End Sub

这个是照片的！

任何文件都可以相信我没错的,哈哈.

存个电影我看看嘛