解决问题可以得到100M的网络硬盘。。。快来看呀

[workboy]

各位老大：小弟遇到一个难题：在我的一个用vb6(sqp4)开发的系统中，后台数据库为nt40+sql70有一个公用信息表，很多用户都需要访问它，近两天出现了很奇怪的问题，在更新这个表时出现上面的提示错误，系统以前运行正常，用户大概有20个，分布在4个子系统中。
代码如下：
;;;;
rs.open "select * from zyyl where blh='"+blh+"'",conn,3,4
rs("zyf")=300
rs("ylf")=300
....
rs.updatebatch
;;;;;
ERR:..concurrency check failed....outside of this cursor当执行到update时频繁出错！！！
敬请各位高手尽快出手！！！！！

[SeeSunSet]

不要这样修改，用sql语句修改。最好进行事务处理。要不然被其他用户打开，肯定会出错的。

[printer]

采用SQL
Update Table
Set zyf = 300...
Where blh='"+blh+"'"

[heyijpn]

Private Sub TxtToRec()
On Error GoTo errTrap
cn.BeginTrans
strsql="update zyyl" & _
" Set zyf=300,ylf=300" & _
" Where blh='"&blh &"'"
cn.Execute strSql, adExecuteNoRecords, adCmdText
cn.CommitTrans
Exit Sub
errTrap:
cn.RollbackTrans '回滚事务
MsgBox Err.Description, vbCritical, msgTitle
On Error GoTo 0
End Sub

[happybeyond]

真的可以吗?