查看连接到SQL Server数据库的用户信息-红尘如烟专栏

在数据库应用系统中，查看当前连接到数据库的用户信息是一个比较常用的功能，本文讲述了以SQL Server作为后台数据库，Access作为前台客户端时，如何在Access中查询当前数据库连接用户信息。此功能添加到你开发的Access客户端程序中，也可以作为一个单独的管理工具来用。下面就具体说一下如何在mdb中如何实现。

首先进入SQL Server的企业管理器，在数据库中新建一个存储过程，这个查询功能主要是通过这个存储过程来实现的，在客户端只是调用而已，将下面的代码复制粘贴到图1 的输入框中，然后点确定保存，这样存储过程就创建完成了。

Create PROCEDURE GetConnectionsInfo
@DatabaseName sysname=NULL, --参数1：要查询的数据库名称，默认查询所有数据库的连接信息
@ShowIPAddress bit=0 --参数2：是否显示IP地址,默认为否（查询IP地址比较费时）
AS

DECLARE @DatabaseID int
SET @DatabaseID=db_id(@DatabaseName)

Create TABLE #tblTemp(ID int identity(1,1),
                                                  DatabaseName sysname,
                                                  HostName nchar(128),
                                                  UserName nchar(128),
                                                  MACAddress nchar(12),
                                                  IPAddress nchar(15),
                                                  Application nchar(128))

Insert INTO #tblTemp(HostName,DatabaseName,MACAddress,UserName,Application)
Select DISTINCT hostname,db_name(dbid),net_address,loginame,program_name
FROM master..sysprocesses
Where hostname<>'' AND (@DatabaseID IS NULL or dbid=@DatabaseID)

IF @ShowIPAddress=0 GOTO Tag_ShowIPAddress

DECLARE @SQLStatement varchar(500),@HostName nchar(128),@ID int
Create TABLE #tblIP(HostName nchar(128),
TempString varchar(200))
DECLARE tblTemp CURSOR LOCAL FOR Select DISTINCT HostName FROM #tblTemp
OPEN tblTemp
FETCH NEXT FROM tblTemp INTO @HostName
WHILE @@FETCH_STATUS=0

BEGIN
SET @SQLStatement='ping '+@HostName+' -a -n 1 -l 1'
Insert #tblIP(TempString) EXEC master..xp_cmdshell @SQLStatement
Update #tblIP SET HostName=@HostName Where HostName IS NULL
FETCH NEXT FROM tblTemp INTO @HostName
END

Update #tblTemp SET IPAddress=LEFT(TempString,PATINDEX('%:%',TempString)-1)
FROM #tblTemp X INNER JOIN ( Select HostName,TempString=SUBSTRING(TempString,PATINDEX('ping statistics for %:%',TempString)+20,20)
                                                            FROM #tblIP
                                                             Where TempString LIKE'ping statistics for %:%') Y
                                  ON X.HostName=Y.HostName

Tag_ShowIPAddress:
Select 序号=ID,数据库名称=DatabaseName,客户机名称=RTRIM(HostName),用户名=RTRIM(UserName),
MAC地址=MACAddress,IP地址=IPAddress,应用程序名称=RTRIM(Application)
FROM #tblTemp
GO

（图1）创建存储过程

（图2）更改查询类型

（图3）修改连接字串及SQL语句

（图4）最终效果