请教：如何取得ACCESS数据库的连接用户数

lizheng_e

在实际工作中有时候需要知道有几个用户正在使用某个数据库，请问有什么函数或方法能够得到这个数吗？

lizheng_e

多谢！！！！！！！！！！！

szhtszx

版主，你好！

能否再次指教下

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

究竟是什么意思，我该在什么事件中调用，还是用命令直接调用。又在哪里看结果呢？多谢！

szhtszx

太感谢版主了，俺都不好意思再问了，可是还不会啊。我在立即窗口是看到结果了。可是怎样让结果显示在窗体上啊？还请版主你指点下如何实现。多谢！！

[此贴子已经被作者于2004-12-24 13:05:37编辑过]

szhtszx

版主能否再指点下呀？ 多谢！

cg1

上述为 SUB ，在任何事件中调用，可以将人数打印到立即窗口，你自己修改一下用于统计人数

cg1

关于此主题请参考： 如何确定当前有多少人登陆数据库？《ADO/DAO》 http://access911.net/index.asp?u1=a&u2=76FABF1E11DC