Vb+sql2000 怎么能把声音文件（wav）存到数据库里，然后读取出来并播放

Question

放弃吧，这样会响应很长的时间的，对于一个系统来说，没有多大意思的。
最好能够设置一个启动 播放器的按钮，可能会比较好。
private sub button_click()
   vbrun.XXXXXXXX
end sub
就ok了

Answer 1

如下。如果在本地，不会浪费太多时间。最好存为压缩率比较大的声音格式。
 Dim adoConnection As New ADODB.Connection
 Dim adoRecordset As New ADODB.Recordset
 adoConnection.Open "Provider=sqloledb;Data Source=192.168.0.1;Initial Catalog=test;User ID=sino;Password=sino;Auto Translate=false;"
 adoRecordset.Open "SELECT * FROM test", adoConnection, adOpenKeyset, adLockOptimistic
 adoRecordset.AddNew
 Dim adoStream As New ADODB.Stream
 adoStream.Type = adTypeBinary
 adoStream.Open
 adoStream.LoadFromFile "c:\homenaje.WAV"
 '将二进制文件写入大字段:
 adoRecordset.Fields.Item(5).AppendChunk adoStream.Read
 adoRecordset.Update
' 从大字段读取二进制数据:
 Dim TempFileName As String
 TempFileName = "c:\Temphomenaje.WAV"
 adoStream.Write adoRecordset.Fields.Item(5).GetChunkadoRecordset.Fields.Item(5).ActualSize)
  adoStream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName, vbNormal + vbHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)