此博客介绍了如何使用ADODB库在VBScript中通过SQL Server连接锁定整张表进行操作。在示例中，通过设置IsolationLevel为adXactSerializable开始一个事务，然后打开Recordset时使用with(tablockx)锁定ShangYaoGuFenBuyTable，并进行悲观锁（adLockPessimistic）确保数据一致性。在事务完成后，释放锁允许其他用户访问。
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
oConn.ConnectionTimeout = 15 oConn.Open "Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=***;Initial Catalog=XSSystem;Data Source=10.108.0.1"
oConn.CommandTimeout = 15
oConn.IsolationLevel = adXactSerializable
oConn.BeginTrans
oRs.CursorLocation = adUseClient
oRs.Open "SELECT * FROM ShangYaoGuFenBuyTable with(tablockx) where ID='123' ", oConn, adOpenKeyset, adLockPessimistic
If oRs.RecordCount > 0 Then
MsgBox "已经有一条记录了"
Else
oRs.AddNew
oRs("id") = "123"
oRs.Update
End If
oRs.Close
oConn.CommitTrans '在此步骤之前，ShangYaoGuFenBuyTable整张表会被锁住，其他用户不能进行任何访问
oConn.Close
Set oConn = Nothing
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
