如何在VBA/Access中仅锁定当前ADODB.Recordset而不是整个页面(或表格)
我只想锁定在VBA/Access中开发的多用户系统的当前ADODB记录集(而不是页面或整个表),以便打开同一记录集的任何其他用户都无法编辑其他用户计算机中已处于编辑模式的一个记录集位置。我希望避免多2个用户编辑同一记录位置(例如:多个用户编辑同一员工的注册) 我测试了以下代码,但未成功:如何在VBA/Access中仅锁定当前ADODB.Recordset而不是整个页面(或表格),vba,ms-access,adodb,recordset,Vba,Ms Access,Adodb,Recordset,我只想锁定在VBA/Access中开发的多用户系统的当前ADODB记录集(而不是页面或整个表),以便打开同一记录集的任何其他用户都无法编辑其他用户计算机中已处于编辑模式的一个记录集位置。我希望避免多2个用户编辑同一记录位置(例如:多个用户编辑同一员工的注册) 我测试了以下代码,但未成功: Private Sub Form_Load() Dim dbcon As ADODB.Connection Dim recrdst As ADODB.Recordset Set rec
Private Sub Form_Load()
Dim dbcon As ADODB.Connection
Dim recrdst As ADODB.Recordset
Set recrdst = New ADODB.Recordset
recrdst.CursorType = adOpenKeyset
recrdst.LockType = adLockPessimistic
Set dbcon = New ADODB.Connection
dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Família\Alex Borges\Companies\Imobiliária Halex Tiago\Estudos\Sistema Multi-Usuário\Servidor.mdb;"
recrdst.Open "SELECT * FROM tblDependentes", dbcon
Set Me.Recordset = recrdst
Set recrdst = Nothing
Set dbcon = Nothing
End Sub
我还测试了以下代码:
Private Sub Form_Load()
Dim dbcon As ADODB.Connection
Dim recrdst As ADODB.Recordset
Set dbcon = New ADODB.Connection
dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Família\Alex Borges\Companies\Imobiliária Halex Tiago\Estudos\Sistema Multi-Usuário\Servidor.mdb;"
Set recrdst = New ADODB.Recordset
recrdst.ActiveConnection = dbcon
recrdst.CursorType = adOpenKeyset
recrdst.LockType = adLockPessimistic
recrdst.CursorLocation = adUseServer
recrdst.Open "SELECT * FROM tblDependentes", dbcon
Set Me.Recordset = recrdst
Set recrdst = Nothing
Set dbcon = Nothing
End Sub
我的访问版本是2007。在Access/Options/Advanced上,我将默认记录锁定更改为“编辑的记录”
提前谢谢