有没有办法锁定Access数据库中的记录

Question

我需要找到一种在多用户环境中从 MS Access 数据库中获取唯一“验证”的方法。这是我的表格示例：

字段验证已预先填写并且永远不会更改，mID 和 getDate 由用户添加/删除（使用 VBA 脚本）。
VBA 脚本的规则是：
1.找到mID的第一个空闲行，
2. 填写当前用户名和当前日期，
3.返回对应的Verification字段

似乎很容易做到，这是我开发的代码：

Function access() As String

    Dim con As ADODB.Connection
    Dim Records As ADODB.Recordset
    Dim record As ADODB.record

    Set con = New ADODB.Connection
    Set Records = New ADODB.Recordset
    Set record = New record

    con.ConnectionString = sDBPath
    con.Open

    With Records
        .ActiveConnection = con
        .Source = "tblVerificationNr"
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
        .Open

    Do Until .EOF
        If IsNull(.Fields("mID")) Then
            access = .Fields(1)
            .Fields("mID") = "asdf"
            .Fields("getDate") = Now
            .Update
            Exit Do
        End If
        .MoveNext
    Loop

    End With

End Function

代码适用于 1 个用户，但当多个用户（几乎）同时开始查询它时，他们会收到相同的验证码。 （如果用户 2 比用户 1 晚 0.1 秒发送请求，那么他们会找到同一行 - 验证 = 3006。这将导致第一个用户 1 将输入他的 mID 和 getDate 并且将收到验证 = 3006，但用户 2 晚了 0.1 秒将覆盖此数据并接收相同的验证号）。

对此有什么解决方法？如何保证 Verification 的唯一性？是否可以“锁定”用户 1 找到的记录，使用户 2 无法找到该记录？

用 SQL 语句也试过了：

sSelectSQL = "SELECT TOP 1 tblVerificationNr.VerificationNumber, tblVerificationNr.Mid, tblVerificationNr.getDate FROM tblVerificationNr WHERE (((tblVerificationNr.[mID]) = '" & UserName() & "')) ORDER BY tblVerificationNr.getDate DESC, tblVerificationNr.ID"
sUpdateSQL = "UPDATE (SELECT TOP 1 tblVerificationNr.VerificationNumber, tblVerificationNr.Mid, tblVerificationNr.getDate FROM tblVerificationNr WHERE (((IsNull([tblVerificationNr].[mID]))<>False)) ORDER BY tblVerificationNr.VerificationNumber)  AS a SET a.mID = '" & UserName() & "', getDate = '" & Now() & "'"

这里也是同样的问题。

Answer 1

我很惊讶用户得到相同的数字。尝试adLockPessimistic，而不是拉整个表，只拉 1 条记录。

.Source = "SELECT TOP 1 * FROM tblVerificationNr WHERE mID IS NULL ORDER BY ID;"

如果您愿意，可以按 VerificationNumber 排序，但可能要确保排序字段已在表中编入索引。

然后不要循环，只设置字段的值：

If Not .EOF Then
    .Fields("mID") = "asdf"
    .Fields("getDate") = Now
    .Update
    access = .Fields(1)
End If