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

• 　　

  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;" _
      & "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), _
  

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 如何确定有多少人登陆Access数据库？ 相关文章：
• ·如何确定有多少人登陆Access数据库？
• 如何确定有多少人登陆Access数据库？ 相关软件

上一篇:Oracle初学者入门指南-什么是DUL?

下一篇:建站分享经验：Web 2.0 网站成功的关键

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐