RT!怎么获取当前的连接状态??

解决方案 »

  1.   

    我的程序中需要时时获取数据库连接状态,如果发现连接断开就进行尝试10次连接,如果都失败就报警提示,可是我发现断开SQL服务器,状态没有改变还是1
      

  2.   

    在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分钟尝试连接一次,
      

  3.   

    state属性没用么??
    那只能用错误号来判断了