我如何找出哪些用戶當前正在使用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