Access中ole字段，如何写更新语句，我这样尝试都未通过，高手进来指点，谢谢！

2007-12-05 05:09:52 133 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在access窗体中加图片_如何在Access窗体中显示指定路径的图片在Access中，如果把图形对象以OLE格式的字段保存，那么在窗体中可以直接显示出图片来。但是这样做有以下不足：一、需要将图片逐一插入到表中，工作量太大。二、使数据库文件变得庞大。三、相同的图片文件，如果在不同数据库中都要引用，就需要重复插入，非常浪费。因此，可以把图片文件按照一定的路径储存起来，在窗体中通过这个路径找到相应的图片，并显示出来。这样可以大大节省操作时间、储存空间，而且便于图片文件在... 阅读详情

'保存文件到数据库中 iConc已正常连接 Hpdj为需要更新的字段；Ymd为更新记录点;以下尝试1、尝试2是分别进行调试的，都未通过，请高手指点
Private Sub s_SaveFile(sYmd, svFile)
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim cSql As String
'读取文件到iStm
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile svFile
End With

'打开保存文件的表
Set iRe = New ADODB.Recordset
iRe.CursorLocation = adUseClient
cSql = "Select ymd from MyTable Where ymd=#" & sYmd & "#"
iRe.Open cSql, iConc, adOpenKeyset, adLockOptimistic
If iRe.RecordCount <= 0 Then
'新增一条记录
Else
''更新尝试1---------------------------------
With iRe
.Close
.Open "MyTable", iConc, adOpenStatic, adLockOptimistic ', adCmdText
.Find "Ymd=#" & sYmd & "#", 1, adSearchForward
If .EOF Then .Fields("Hpdj") = iStm.Read: .Update
.Close
End With
''-------------------------------------
''更新尝试2---------------------------------
iRe.Close
cSql = "Update MyTable set Hpdj=" & iStm.Read & " Where ymd=#" & sYmd & "#"
iConc.Execute ("Update MyTable set Hpdj=" & iStm.Read & " Where Ymd=#" & sYmd & "#")
''-------------------------------------
End If
'完成后关闭对象
iStm.Close
iConc.Close
End Sub

...全文