在SQL Server中建立一个表 State,字段State,赋一行值 然后用一个函数尝试连接: Private Function GetServerState() as boolean on error goto Errdeal
Dim strSql As String Dim rsDrivePass As New ADODB.Recordset
strSql = "select top 1 * from State" rsDrivePass.CursorType = adOpenStatic rsDrivePass.LockType = adLockOptimistic rsDrivePass.Open strSql, 数据库连接名称 If rsDrivePass.State <> 0 Then rsDrivePass.Close End If Set rsDrivePass = Nothing
GetServerState = True Exit Function ErrDeal: GetServerState = False End Function 用该函数获取连接状态是可以的. 建议你不要试图老是打开数据库连接,应为连接断开的时候一般都是比较长的时间, 你尝试连接的时候计算机响应会变得很慢,你的程序几乎没有响应. 建议间隔20-60分钟尝试连接一次,
Private Function GetServerState() as boolean
on error goto Errdeal
Dim strSql As String
Dim rsDrivePass As New ADODB.Recordset
strSql = "select top 1 * from State"
rsDrivePass.CursorType = adOpenStatic
rsDrivePass.LockType = adLockOptimistic
rsDrivePass.Open strSql, 数据库连接名称 If rsDrivePass.State <> 0 Then
rsDrivePass.Close
End If
Set rsDrivePass = Nothing
GetServerState = True
Exit Function
ErrDeal:
GetServerState = False
End Function 用该函数获取连接状态是可以的.
建议你不要试图老是打开数据库连接,应为连接断开的时候一般都是比较长的时间,
你尝试连接的时候计算机响应会变得很慢,你的程序几乎没有响应.
建议间隔20-60分钟尝试连接一次,
那只能用错误号来判断了