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)
最近编些一个录音、放音程序,碰到点麻烦。 先是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)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货