如何判断其他人是否正在使用数据库？

Question

我怀疑这是一个容易的问题，我不知道答案。 我有一个Access 2010数据库，由许多不同的人使用，通常在同一时间。 我想用VBA来查明是否有其他人在使用数据库。 关于如何做到这一点的任何想法？

Answer 1

此示例子部分使用提供程序特定的模式将列出用户。你需要通过一个有效的连接，例如：

ADOUserList Currentproject.Connection 

    Public Sub ADOUserList(oConn As ADODB.Connection) 
    Dim rs As ADODB.Recordset 
     Set rs = oConn.OpenSchema(adSchemaProviderSpecific, , _ 
      "{947bb102-5d43-11d1-bdbf-00c04fb92675}") 
     Debug.Print rs.GetString 
     rs.Close 
    End Sub 

返回的字段有：

COMPUTER_NAME 
LOGIN_NAME 
CONNECTED 
SUSPECT_STATE 

请注意使用CurrentProject.Connection是让用户列表不锁定数据库的唯一途径。这种技术仍然有缺陷，通常Access会以LOGIN_NAME管理员身份打开。我一直必须将COMPUTER_NAME与登录表匹配以获取Windows用户名 - 这是Access的缺点。