vb data ado ole
最近编些一个录音、放音程序,碰到点麻烦。    先是data控件和access绑定,然后ole调用一个录音机程序录制语音后以ole对象存入数据库中;
然后用ADO.STREAM 读取ole对象,放在临时文件中,可是播放时说不支持该格式。下面是代码:
Set myStream = New ADODB.Stream 
myStream.Type = adTypeBinar
myStream.Open
Dim TempFileName As String
    TempFileName = App.Path & "\text.wav"
   myStream.Write rs.Fields("luyinwenjian").GetChunk(rs.Fields("luyinwenjian").ActualSize)
  myStream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName, vbNormal + vbHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)