|
如何确定当前有多少人登陆数据库?- <SCRIPT language=javascript>
- function addtitle(){ var straddtitle = "如何确定当前有多少人登陆数据库?"; if (straddtitle.length!==0){ document.title=document.title + "《" + straddtitle + "》;专题号:76FABF1E11DC"; }}作者:未详 摘自:未详 [url=http://access911.net/admin/article_edit.asp?recordid=76FABF1E11DC]编[/url][url=http://access911.net/index.asp?u1=bbs&u2=75FAB41E13DC]辑[/url]:cg1 更新日期:2003-7-6 浏览人次: 629专题地址:http://access911.net/?kbid;76FABF1E11DC简述:阅读前需掌握:难度等级:
- <script>
复制代码 等级未评定问题:
如何确定有多少人登陆数据库?
回答:
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 "rovider=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
WendEnd Sub |
|