我试过用BINARY TEXT 都不行。。

解决方案 »

  1.   

    至于你说的使用BINARY TEXT 不行是指什么,不能存储还是不能播放?
    我能肯定存储是可以的,但播放我不太懂.
      

  2.   

    存放Mp3和图片文件没有区别的,使用image字段就可以'将任何文件从数据库中下载到本地:
    Public Function LoadFile(ByVal col As ADODB.Field, ByVal FileName As String) As Boolean '获得binary数据
        On Error GoTo myerr:
         Dim arrBytes() As Byte
         Dim FreeFileNumber As Integer
         lngsize = col.ActualSize
         arrBytes = col.GetChunk(lngsize)
         FreeFileNumber = FreeFile
         Open FileName For Binary Access Write As #FreeFileNumber
         Put #FreeFileNumber, , arrBytes
         Close #FreeFileNumber
         LoadFile = True
    myerr:
         If Err.Number <> 0 Then
         LoadFile = False
         Err.Clear
         End If
    End Function'将文件从本地上传到数据库中
    Public Function UpLoadFile(ByVal FileName, ByVal col As ADODB.Field) As Boolean
         On Error GoTo myerr:
         Dim arrBytes() As Byte
         Dim FreeFileNumber As Integer
         FreeFileNumber = FreeFile
         Open FileName For Binary As #FreeFileNumber
         n = LOF(FreeFileNumber)
         ReDim arrBytes(1 To n) As Byte
         Get #FreeFileNumber, , arrBytes
         Close #FreeFileNumber
         col.AppendChunk (arrBytes)
         UpLoadFile = True
    myerr:
         If Err.Number <> 0 Then
         UpLoadFile = False
         Err.Clear
         End If
    End Function