采用二进制流方式更新OLE字段出现的问题(mdb数据库)，高手请进。

2007-11-27 02:22:05 110 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++Builder实战：从源码到精通，手把手构建桌面应用在桌面应用开发领域，快速应用开发（RAD）是一种通过可视化工具和组件库高效构建软件的方法论。其核心原理在于将界面设计、业务逻辑与底层代码解耦，通过事件驱动模型和组件复用，大幅提升开发效率。这种模式的技术价值在于让开发者能聚焦业务实现，而非底层细节，尤其适合需要快速迭代的Windows平台工具、数据库管理系统和企业内部应用。C++Builder作为经典的RAD工具，结合了C++的性能优势与VCL组件的丰富性，是学习这一开发范式的理想平台。通过源码驱动的实战学习，开发者可以深入理解从数据库操作到界面绑定的完整流阅读详情

'保存文件到数据库中(MyYbTxt表:字段包含Ymd和Hpdj)
Sub s_SaveFile(sYmd, svFile)
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim cSql As String
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile svFile
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
cSql = "Select ymd from MyYbTxt Where ymd=#" & sYmd & "#"
iRe.Open cSql, iConc, adOpenKeyset, adLockOptimistic
If iRe.RecordCount <= 0 Then
iRe.Close
With iRe
.Open "MyYbTxt", iConc, adOpenKeyset, adLockOptimistic
.AddNew '新增一条记录
.Fields("Ymd") = sYmd
.Fields("Hpdj") = iStm.Read
.Update
.Close
End With
Else
iConc.Execute ("Update MyYbTxt set Hpdj=" & iStm.Read & " Where Ymd=#" & sYmd & "#")
End If
'完成后关闭对象
iStm.Close
iConc.Close
End Sub
问题出在红色行，提示“UPDATE 语句的语法错误”，我检查不出来，是不是出在iStm.Read 这里，请高手指点。

...全文