'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile "D:\test.doc"
End With
' 打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe .Open " SELECT * FROM OfficeFile ", iConcStr, 1,3
.AddNew '新增一条记录
.Fields("office") = iStm.Read
' .Update
End With
' 完成后关闭对象
' iRe.Close
iStm.Close
End Sub
总是在OPEN的地方出错:不能更新查询,因为它不含可用作键的搜索列.网上有个转载很广的例子<很多单位尤其是制造业、设计院,计算机应用开展的较早。>,我试了也不行,不懂要怎么用 ------解决方案-------------------- 你的意思是要把文件存储到sql server的表中吗?