如何找出当前正在使用ms访问数据库的用户

Question

我想知道是否有办法找出与我共享数据库的人的用户名。

我知道我可以使用environ（“UserName”）调用来获取我自己的用户名，但我想知道数据库中还有谁。

Answer 1

此示例sub使用特定于提供程序的架构，将列出用户。您需要传递有效的连接，例如：

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