• 欢迎访问搞代码网站，推荐使用最新版火狐浏览器和Chrome浏览器访问本网站！
  • 如果您觉得本站非常有看点，那么赶紧使用Ctrl+D 收藏搞代码吧
> 数据库 > access > 如何确定有多少人登陆数据库？_access

如何确定有多少人登陆数据库？_access

access 搞代码 7年前 (2018-06-17) 202次浏览 已收录 0个评论

Sub ShowUserRosterMultipleUsers()
    Dim cn As New ADODB.Connection
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long

    cn.Provider = “Microsoft.Jet.OLEDB.4.0”
    cn.Open “Data Source=c:/Northwind.mdb”

    cn2.Open “Provider=Microsoft.Jet.OLEDB.4.0;” _

http://www.gaodaima.com/38441.html如何确定有多少人登陆数据库？_access

    & “Data Source=c:/Northwind.mdb”

    ‘ The user roster is exposed as a provider-specific schema rowset
    ‘ in the Jet 4 OLE DB provider.  You have to use a GUID to
    ‘ reference the schema, as provider-specific schemas are not
    ‘ listed in ADO’s type library for schema rowsets

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , “{947bb102-5d43-11d1-bdbf-00c04fb92675}”)

    ‘Output the list of all users in the current database.

    Debug.Print rs.Fields(0).Name, “”, rs.Fields(1).Name, _
    “”, rs.Fields(2).Name, rs.Fields(3).Name

    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), _
        rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend

End Sub

相关阅读
  • 数据库字段复用的基本原理与示例(2011-07-04 02:12:27)
  • 数据库安全应用 使用mysql的23个注…(2011-06-24 14:16:26)
  • 数据库设计范式深入浅出(2011-06-21 23:48:41)
  • 数据库之：Mysql数据库服务器安装与…(2011-06-21 23:37:30)
  • 数据库备份 sqlserver的备份和灾难…(2010-07-22 12:21:14)
  • 数据库中经常用到的操作和管理数据…(2010-06-26 01:39:42)
  • 数据库疑难讲解：改善SQL Server内…(2009-10-27 11:00:35)
  • 数据缓存简易原理示例(2009-08-05 20:21:11)
会员评论所有会员评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi，您需要填写昵称和邮箱！

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址