如何解决多用户操作同一条记录的问题

Question

首先请允许俺先对“Tiger_Zhao”兄台说声感谢！程序的数据库是ACCESS。程序在局域网中被共享着。当1－3人同时打开程序且同时一一在『浏览、或者修改、又或者删除』同一条数据时。“俺的意思是当小A、小B这两个人同时在浏览编号为“1”的数据。  这时刚好小B删除了编号为“1”的数据，而小A则数据了窗体上的数据后想保存，但出错了）
请教下“Tiger_Zhao”兄台！当这样的多用户操作同一条记录时所遇到的错误，我们该如何去解决呢？再次谢谢“Tiger_Zhao”兄台！

Answer 1

'刚忘记发下修改后保存的代码了'这是修改的代码
SQL = "select 序号,类别,名称,单位 from 资料表 where 序号=" & SID
rs.Open SQL, cn, 3, 3
rs!类别 = Me.Text1.Text
rs!名称 = Me.Text2.Text
rs!单位 = Me.Text3.Text
rs.Update

Answer 2

编辑数据之前最好先查询数据是否存在再进行编辑或查看。对于多人修改同一条数据记录，可以这样考虑：
第一种方法：
谁先编辑那条数据库记录就谁对那条数据记录进行锁定，别人不能操作。
当别人打开改纪录时会出错，可以通过 On Error Resume Next 来捕获错误。第二种方法：
在数据记录中加三个字段，1个是状态，1个是用户编号，还有一个是操作时间
   状态可为数字，0表示没有人操作，1表示有人正在编辑不允许查看，2表示有人正在编辑允许查看。
   1、如果状态为0，那么任何人都可以编辑该纪录信息，第一个编辑该纪录信息的人需要向字段的：状态、用户编号、操作时间
      写入信息，以便其他用户编辑或查看时提供相关操作信息，而且每隔20秒更新一次时间纪录，防止意外退出造成数据记录被
      锁死的情况。
   2、如果状态为1，那么其他用户可以判断操作时间的纪录值，如果当前时间-操作时间大于20秒，表示原来操作该纪录的用户
      程序可能意外退出没有更新状态信息，这时这个用户可以将自己设为主要操作人，更新状态、用户编号、操作时间等信息。
      如果当前时间-操作时间小于等于20秒，那么可以提示要编辑纪录的用户，谁（用户编号）正在编辑该信息，只允许查看该
      数据记录内容，然后询问用户是否查看或直接以查看方式打开数据记录。
   3、如果状态为2，大致同2的处理，只是最后提示时提示谁（用户编号）正在编辑该信息,不允许用户查看。对于删除同一条数据记录：
   最好使用 Conn.Execute "Delete From 表 Where ID=" & 字段ID
   这样删除不会有错误提示，即使条件不符也不会出错。

Answer 3

首先要确定业务规则——假定是按照覆盖模式来做，那么效果就是
1)B 先删除，A 再更新，结果就是 A 的数据。
2)A 先保存，B 再删除，结果被删除。
3)B 先更新，A 再更新，结果就是 A 的数据。
4)B 先插入，A 在插入，结果就是 A 的数据。
其次，多用户环境下要用 Connection.Execute 来进行数据操作，RecordSet 在 Open 和 Update 之间可能数据库会被他人改变，处理更复杂。Private cn As ConnectionPrivate Sub cmdDelete_Click() '删除
    Dim SQL As String
    SQL = "DELETE FROM 资料表 WHERE 序号=" & SID
    cn.Execute SQL '无论记录是否存在，都不会出错
End SubPrivate Sub Form_Load() '新增/更新
    Dim SQL As String, lRows As Long
    Dim bAddNew As Boolean
    
    On Error GoTo E
    
    bAddNew =  '如果可区分新增/更新，分别设置 True/False
               '否则始终用 True —— 会降低效率
ReTry:
    If bAddNew Then
        SQL = "INSERT INTO 资料表 (序号,类别,名称,单位)" & _
             " VALUES (" & SID & _
                     ", '" & Text1.Text & "'" & _
                     ", '" & Text2.Text & "'" & _
                     ", '" & Text3.Text & "')"
        On Error Resume Next
        cn.Execute SQL, lRows, adCmdText 'lRows 返回插入的行数
        If Err.Number <> 记录已删除的错误号 Then
            MsgBox Err.Description, vbCritical
            Exit Sub
        End If
        On Error GoTo E
    End If
    
    If lRows = 0 Then '没做插入或插入不成功（记录已存在）
        SQL = "UPDATE 资料表" & _
                " SET 类别='" & Text1.Text & "'" & _
                   ", 名称='" & Text2.Text & "'" & _
                   ", 单位='" & Text3.Text & "'" & _
              " WHERE 序号=" & SID
        cn.Execute SQL, lRows, adCmdText 'lRows 返回更新的行数
        If lRows = 0 Then '记录已删除
            bAddNew = True
            GoTo ReTry
        End If
    End If    Exit Sub
E:
    MsgBox Err.Description, vbCritical
End Sub