一、MSSQL中可以用sp_who 获取连接的用户名信息,
二、Oracle也有类似的系统函数
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;重启数据库 #修改连接 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:
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 Jet 4.0 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, _ 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 ' ******************** Code End ************************** 四、MySql mysql> show processlist;
或 ./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
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/downmoon/archive/2009/01/06/3712313.aspx
|
|