一、MSSQL中可以用sp_who
获取连接的用户名信息,
二、Oracle也有类似的系统函数
-
SQL>selectcount(*)fromv
$session
-
SQL>Selectcount(*)fromv
$session
wherestatus=
'ACTIVE'
-
SQL>showparameterprocesses
-
SQL>altersystemsetprocesses=valuescope=spfile;重启数据库
<!-- {cps..0}-->SQL
>
select
count
(
*
)
from
v$session#连接数
SQL
>
Select
count
(
*
)
from
v$session
where
status
=
'
ACTIVE
'
#并发连接数
SQL
>
showparameterprocesses#最大连接
SQL
>
alter
system
set
processes
=
valuescope
=
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
-
-
-
-
-
Set
rs=cn.OpenSchema(adSchemaProviderSpecific,_
-
,
"{947bb102-5d43-11d1-bdbf-00c04fb92675}"
)
-
-
Debug.Printrs.Fields(0).Name,
""
,rs.Fields(1).Name,_
-
While
Not
rs.EOF
-
Debug.Printrs.Fields(0),rs.Fields(1),_
-
rs.Fields(2),rs.Fields(3)
-
rs.MoveNext
-
Wend
-
End
Sub
Access Web:
-
-
-
-
-
-
-
-
-
-
Private
Declare
Function
apiGetUserName
Lib
"advapi32.dll"
Alias
_
-
Function
fOSUserName()
As
String
-
-
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
-
<!-- {cps..2}-->'
ThiscodewasoriginallywrittenbyDevAshish.
'
Itisnottobealteredordistributed,
'
exceptaspartofanapplication.
'
Youarefreetouseitinanyapplication,
'
providedthecopyrightnoticeisleftunchanged.
'
'
CodeCourtesyof
'
DevAshish
'
Private
Declare
Function
apiGetUserNameLib
"
advapi32.dll
"
Alias_
Function
fOSUserName()
As
String
'
Returnsthenetworkloginname
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
EndFunction
'
********************CodeEnd**************************
四、MySql
<!-- {cps..3}-->
或
.
/
mysqladminprocesslist
例:
C:/Documents and Settings/administrator>mysqladmin processlist
更详细的,查看当前所有连接的详细资料:
./mysqladmin-uadmin-p-h10.140.1.1processlist
只查看当前连接数(Threads就是连接数.):
./mysqladmin-uadmin-p-h10.140.1.1status
分享到:
相关推荐
通用分页控件c#源码(downmoon收集) 采用工厂模式,提供标准化接口!支持 DataGrid 及 Repeater分页使用方法:新建两个解决方案 一为Pager,一为webtest 下载后请将两个解决方案合并一下,即新的解决方案包括两个...
在某种程度上,有了它,我们再也不用为不能全面及时检测众多浏览器和五花八门的js/css不兼容性而痛不欲生了。...http://blog.csdn.net/downmoon/archive/2010/10/17/5946465.aspx 欢迎联系邀月 3w@live.cn
获取远程网页的内容之一(downmoon原创) 一、本机直接上网时: 获取指定远程网页内容#region 获取指定远程网页内容 代码如下: /**//// /// 获取指定远程网页内容 /// </summary> /// ”strUrl”>所要查找...
获取远程网页的内容之一(downmoon原创) 一、本机直接上网时: 获取指定远程网页内容#region 获取指定远程网页内容 代码如下: /**//// /// 获取指定远程网页内容 /// </summary> /// ”strUrl”>所要...
Winform下的分页控件。3w@live.cn。详细说明,请看文章:http://blog.csdn.net/downmoon/archive/2011/02/10/6177224.aspx
获取远程网页的内容之二(downmoon原创)
asp.net下获取远程网页的内容之二(downmoon原创)
在IE中调用javascript打开Excel的代码(downmoon原作)
由于微软在vs2005 vsts团队开发版中集成了sql 2005 express,而在SQL 2005中又集成了vs2005 Express,,所以当很多用户同时安装vs2005团队开发?...sql 2005企业版(downmoon)时,就会出现数据库连接失败的case
sqlserver 存储过程中的top+变量使用分析(downmoon) ,需要的朋友可以参考下。
此源码有问题,请下载downmoon提供的修正版!非常抱歉! http://download.csdn.net/source/2434932
在使用vs.php+ sourcesafe管理代码时,发现有时候并不能从vs.net IDE中正确获取phpproj文件下的所有文件。但从sourcesafe IDE下却可以。
WinForm中默认的MessageBox默认的弹出位置在屏幕的center,而且没有属性可以修改它,所以在当前活动窗体不在中央时,将会出现,弹出的MessageBox的错位。本代码实现MessageBox在当前窗体中央显示。
本文主要列举了省市三级联动的DropDownList+Ajax的三种框架(aspnet/Jquery/ExtJs)示例。前段时间需要作一个的Web前端应用,需要用多个框架,一个典型的应用场景... namespace Downmoon.Framework.Model { #region Popul