Access数据库要获取当前用户连接数
Access数据库要获取当前用户连接数，可以有以下几种思路：
第一：直接看ldb文件，有几行就有几个连接
格式基本上是
hostname workgroupUserId
第二：用vbscript
有两段代码可以参考：
Microsoft:
Sub ShowUserRosterMultipleUsers()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i,j As Long
Set cn=CurrentProject.Connection
' The user roster is exposed as a provider-specific schema rowset
' in the Jet4.0OLE 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,_
While Not rs.EOF
Debug.Print rs.Fields(0),rs.Fields(1),_
rs.Fields(2),rs.Fields(3)
rs.MoveNext
Wend
End Sub
Access Web:
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetUserName Lib"advapi32.dll" Alias_
Function fOSUserName()As String
' Returns the network login name
Dim lngLen As Long,lngX As Long
Dim strUserName As String
strUserName=String$(254,0)
lngLen=255
lngX=apiGetUserName(strUserName,lngLen)
If(lngX>0)Then
fOSUserName=Left$(strUserName,lngLen-1)
Else
fOSUserName=vbNullString
End If
End Function
'********************Code End**************************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetUserName Lib"advapi32.dll" Alias_
Function fOSUserName()As String
' Returns the network login name
Dim lngLen As Long,lngX As Long
Dim strUserName As String
strUserName=String$(254,0)
lngLen=255
lngX=apiGetUserName(strUserName,lngLen)
If(lngX>0)Then
fOSUserName=Left$(strUserName,lngLen-1)
Else
fOSUserName=vbNullString
End If
End Function