Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary ´二进制模式
.Open
.LoadFromFile \"c:\\test.doc\"
End With
´打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open \"表\", iConc, adOpenKeyset, adLockOptimistic
.Fields(\"保存文件内容的字段\") = iStm.Read
.Update
End With
以上代码保存文件到数据库中时出现“记录集不接受更新”的错误,如何解决?
另:如果iRe记录集中有很多个记录时,这个文件保存到哪一条记录中?
With iStm
.Type = adTypeBinary ´二进制模式
.Open
.LoadFromFile \"c:\\test.doc\"
End With
´打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open \"表\", iConc, adOpenKeyset, adLockOptimistic
.Fields(\"保存文件内容的字段\") = iStm.Read
.Update
End With
以上代码保存文件到数据库中时出现“记录集不接受更新”的错误,如何解决?
另:如果iRe记录集中有很多个记录时,这个文件保存到哪一条记录中?
VB里有二进制文件存取的功能的。
叫什么 appendchunk?
自己再找找。