VB读取ACCSEE库文件问题!!!!!!!!!!!!!!!在线等!急!!!!!!!
在ACCSEE库中的一个表中,有个字段(qst_prm)类型是备注,虽然该字段的第一条记录有内容,但在表中无显示,在网上查了查,说可以把内容复制到WORD文档中
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Set iRe = New ADODB.Recordset
iRe.Open "select * from question", iConc, 1, 1
iRe.Filter = "qst_id=704"
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("qst_prm")
.SaveToFile App.Path & "\cc.doc"
End With
ole1.SourceDoc = App.Path & "\cc.doc"
ole1.Action = 1
ole1.SizeMode = vbOLESizeAuttoSize
iRe.Close
iStm.Close
End Sub
试了试不可以,报错!请指教!!!!!!!!!!!!!!!!!!!!!!!!