访问权限为

时间:2017-05-31 11:07:19

标签: excel-vba vba excel

我是微软访问的新手,并且对于提出任何不正确的问题道歉。

我有一个与Access连接的Excel VBA工具。我只是想知道如果多用户更新相同的记录集如何处理这种情况。我们可以暂停/等待记录集被其他用户关闭,而不会让用户知道后台活动。

我正在使用以下编码。

Dim Acon As New ADODB.Connection
Dim Rs As New ADODB.Recordset

    With Acon
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" + myFileNameDir
        .Open
    End With

With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .ActiveConnection = Acon
    .Source = "Select * from Sheet1"
     .Open
End With

With Rs
  Rs.MoveFirst
  While Not Rs.EOF
    .Fields![status] = "Refresher"
    .Fields![Reason for Refresh Training] = "Refresher-" & myValuec
    Rs.MoveNext
  Wend
End With

0 个答案:

没有答案