2021中国心血管内科专家50强
全世界各行各业联合起来,internet一定要实现!

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

2004-02-11 eNet&Ciweek

  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), _

   rs.Fields(2), rs.Fields(3)

   rs.MoveNext

   Wend

    End Sub

相关频道: eNews

您对本文或本站有任何意见,请在下方提交,谢谢!

投稿信箱:tougao@enet16.com