如何在MSSQL连接失败或调用Open后15秒时终止连接？

当然可以实现这个需求，下面提供两种实用方案：

方法1：通过连接字符串直接设置超时 #

SqlConnection的连接字符串支持Connect Timeout参数，直接指定15秒即可。当调用Open()后，如果15秒内无法建立连接，会自动抛出超时异常并终止连接尝试；首次连接失败（比如网络不通、账号错误）也会直接触发异常。

修改后的代码如下：

Dim conn As New SqlClient.SqlConnection
' 给连接字符串添加超时参数
conn.ConnectionString = $"{connstr};Connect Timeout=15"
Try
    conn.Open()
    ' 连接成功后执行你的业务逻辑
Catch ex As Exception
    MsgBox($"连接出错：{ex.Message}")
Finally
    ' 无论成功失败，确保连接被关闭
    If conn.State = ConnectionState.Open Then
        conn.Close()
    End If
End Try

注：Connect Timeout的默认值就是15秒，显式设置只是让逻辑更清晰，避免后续维护时混淆。

方法2：异步操作实现自定义超时控制 #

如果需要更灵活地处理超时（比如单独区分超时和其他连接错误），可以结合异步方法和任务超时机制：

Async Sub HandleSqlConnection()
    Dim conn As New SqlClient.SqlConnection(connstr)
    Try
        ' 同时启动连接任务和15秒延迟任务
        Dim connectTask = conn.OpenAsync()
        Dim timeoutTask = Task.Delay(15000)
        
        Dim completedTask = Await Task.WhenAny(connectTask, timeoutTask)
        
        If completedTask Is timeoutTask Then
            ' 超时触发，主动关闭连接
            conn.Close()
            MsgBox("连接超时，已终止尝试")
        Else
            ' 等待连接任务完成，捕获可能的连接异常
            Await connectTask
            MsgBox("连接成功")
            ' 执行连接后的业务逻辑
        End If
    Catch ex As Exception
        MsgBox($"连接失败：{ex.Message}")
    Finally
        ' 确保连接资源被释放
        If conn.State = ConnectionState.Open Then
            conn.Close()
        End If
    End Try
End Sub

关键注意点 #

• 务必在Finally块中关闭连接，避免数据库连接资源泄漏。
• 首次连接失败会直接进入Catch块，无需额外处理。

内容的提问来源于stack exchange，提问作者Soraiah