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

Question

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

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

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