如何检测SQL数据库是否已有连接?

Fanks 2002-01-31 05:50:17
...全文
323 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
liudp2002 2002-02-02
  • 打赏
  • 举报
回复
谁知道用delphi的检测方法?
linazhu 2002-02-01
  • 打赏
  • 举报
回复
gzgz
liudp2002 2002-02-01
  • 打赏
  • 举报
回复
只能看进程了!
panther_totem 2002-02-01
  • 打赏
  • 举报
回复
net_steven 2002-02-01
  • 打赏
  • 举报
回复
right,sky_blue(蓝天).其他的客户端只须查看sp_who返回的信息就一目了然了。
蓝天 2002-01-31
  • 打赏
  • 举报
回复
mssql:
sp_who
Fanks 2002-01-31
  • 打赏
  • 举报
回复
对不起,我没说清楚,我是指,假如有一个客户端已经连接到SQL的AAA数据库上,其他的客户端有无办法判断AAA已有他人使用。
sonicdater 2002-01-31
  • 打赏
  • 举报
回复
Public adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command '定义 SQL 命令
Public Function OpenConnection() As String '打开数据库
On Error GoTo SQLConErr
With adoCN
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = cNtServerName
.Properties("Initial Catalog").Value = cDatabaseName
.Properties("User ID") = cSQLUserName
.Properties("Password") = cSQLPassword
.Properties("prompt") = adPromptNever
.ConnectionTimeout = 15
.Open

If .State = adStateOpen Then
adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
cServertime = Mid(adoDateTime(0), 10)
Else
MsgBox "数据库连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End If
End With

SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
Exit Function
SQLConErr:
Select Case Err.Number
Case -2147467259
MsgBox "找不到指定的SQL Server服务器或者数据库不存在,请重新设置!", vbExclamation
F_SetSystem.Show 1
Case -2147217843
MsgBox "指定的SQL Server数据库用户不存在或口令错误,请重新设置!", vbExclamation
F_SetSystem.Show 1
Case Else
MsgBox "数据环境连接失败,请找系统管理员进行检查 !", 16, cProgramName
End Select
OpenConnection
End Function
qkaizhou 2002-01-31
  • 打赏
  • 举报
回复
Connection.state=1 '连接
Connection.state=0 '未连接

34,838

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧