ADO锁定整张表

最新推荐文章于 2022-01-13 00:36:02 发布

原创最新推荐文章于 2022-01-13 00:36:02 发布 · 755 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#security

此博客介绍了如何使用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