Access/MSSQL/Oracle/MySql获取当前用户连接数

一、ＭＳＳＱＬ中可以用sp_who获取连接的用户名信息，

二、Oracle也有类似的系统函数

1. SQL> select count(*) from v$session  #连接数
2. SQL> Select count(*) from v$session where status='ACTIVE'　#并发连接数
3. SQL> show parameter processes  #最大连接
4. SQL> alter system set processes = value scope = spfile;重启数据库  #修改连接 

SQL> select count(*) from v$session  #连接数
SQL> Select count(*) from v$session where status='ACTIVE'　#并发连接数
SQL> show parameter processes  #最大连接
SQL> alter system set processes = value scope = spfile;重启数据库  #修改连接 

三、Access下有以下几种思路：

　　第一：直接看ldb文件，有几行就有几个连接
格式基本上是

　　　　hostname    workgroupUserId

　　第二： 用vbscript

　　　　有两段代码可以参考：

　　　　Microsoft:

1. Sub ShowUserRosterMultipleUsers()
2. Dim cn As New ADODB.Connection
3. Dim rs As New ADODB.Recordset
4. Dim i, j As Long
6. Set cn = CurrentProject.Connection
8. ' The user roster is exposed as a provider-specific schema rowset
9. ' in the Jet 4.0 OLE DB provider.  You have to use a GUID to
10. ' reference the schema, as provider-specific schemas are not
11. ' listed in ADO's type library for schema rowsets
13. Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
14. , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
16. 'Output the list of all users in the current database.
18. Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
20. While Not rs.EOF
21. Debug.Print rs.Fields(0), rs.Fields(1), _
22. rs.Fields (2), rs.Fields(3)
23. rs.MoveNext
24. Wend
26. End Sub

　　　Access Web:

1. ' This code was originally written by Dev Ashish.
2. ' It is not to be altered or distributed,
3. ' except as part of an application.
4. ' You are free to use it in any application,
5. ' provided the copyright notice is left unchanged.
6. '
7. ' Code Courtesy of
8. ' Dev Ashish
9. '
10. Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
12. Function fOSUserName() As String
13. ' Returns the network login name
14. Dim lngLen As Long, lngX As Long
15. Dim strUserName As String
16. strUserName = String$(254, 0)
17. lngLen = 255
18. lngX = apiGetUserName(strUserName, lngLen)
19. If (lngX > 0) Then
20. fOSUserName = Left$(strUserName, lngLen - 1)
21. Else
22. fOSUserName = vbNullString
23. End If
25. End Function
26. '******************** 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
'******************** Code End **************************

四、MySql

1. mysql>   show   processlist; 

或

1. ./mysqladmin   processlist  

 ./mysqladmin   processlist  

  例：  

  C:/Documents   and   Settings/administrator>mysqladmin   processlist  

更详细的，查看当前所有连接的详细资料:

./mysqladmin -uadmin -p -h10.140.1.1 processlist

只查看当前连接数(Threads就是连接数.):

./mysqladmin  -uadmin -p -h10.140.1.1 status