数据库访问报错

lhh 2003-07-09 09:25:43
Set adoTempRS = New Recordset
adoTempRS.Open " select * from CZT09 where XTDWDM='" & strERPDWDM & "' and CZSCDH='" & adoGGRS.Fields("S_gcggtzd_ph").Value & "' and CZPROD='" & adoGGMXRS.Fields("S_gcggtzdmx_zj").Value & "' and SSCJDM='" & adoGGMXRS.Fields("S_gcggtzdmx_cj").Value & "' and CZRWBH='" & adoGGMXRS.Fields("S_gcggtzdmx_orwh").Value & "' and CZSEQ=" & adoGGMXRS.Fields("S_gcggtzdmx_wlxh").Value & "", HZerpcnn, adOpenDynamic, adLockOptimistic
iCount = 0
While Not adoTempRS.EOF
iCount = iCount + 1
adoTempRS.Fields("CZRNBR").Value = iCount
adoTempRS.Update
adoTempRS.MoveNext
Wend
在update 后再movenext ,有时会报错::"无法为更新行集定位:一些值可能已在最后读取后改变",但有时又不报,是在那个时候还有其他人也在访问该记录吗?请各位帮忙,歇谢!!!
...全文
5 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihh 2003-07-09
UP!!UP!!!
回复
lhh 2003-07-09
how can i do
回复
lhh 2003-07-09
你的程序在修改该数据时,该数据刚刚被别人改过,请改变打开方式或者修改前再次打开以减少错误发生,我以前也经常发现这个问题。
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告