如果是乐观锁定呢，如果有Concurrency的错误时，它会在Update时才有错，而我们使用的方式是先CancelUpdate後再使用Resync AffectCurrent来Refresh Current Record，而後再把Update的程序再重新执行一次，如下：但要注意的是，要使用Client端的Cursor
要不然，Server端的Cursor是不支援这个Resync Method的

Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
Dim connstr As String
Dim ans As Integer, errstr As String, sql As String
Set cn = New ADODB.Connection
connstr = "Data Source=ACCOUNT;UID=sa;PWD=;Initial Catalog=NKIUAcc"
cn.Provider = "SQLOLEDB"
cn.ConnectionString = connstr
cn.Open
cn.CommandTimeout = 5

sql = "Select * from TESTTAB"
Set rs = adoOpenRecordset(cn, sql, atClient, 乐观) 要用Client端Cursor
cn.BeginTrans
If rs Is Nothing Then
cn.RollbackTrans
Else
Call UpdateRtn
End If
If Err.Number = 0 Then
cn.CommitTrans
Else
cn.RollbackTrans
End If

End Sub

Private Sub UpdateRtn()
Dim ntx As Integer
On Error Resume Next
Do While True
rs!f1 = "q"
rs.Update
If Err.Number = 0 Then
Exit Do
Else
If Err.Number = -2147217864 Then 发生Concurrency错误
If ntx $#@60; 2 Then
ntx = ntx + 1
Err.Clear
rs.CancelUpdate
rs.Resync adAffectCurrent 重新Refresh Current Record
Else
Exit Do
End If
Else
Exit Do
End If
End If
Loop
On Error GoTo 0
End Sub

上一页  [1] [2]