如何在VB.NET中无需重启应用刷新SQL Server连接字符串？

问题核心原因 #

1. 连接池复用有效连接：SQL Server默认开启连接池，之前成功建立的连接会被缓存，即使后续修改了错误凭证，系统可能直接复用池中的有效连接，导致错误凭证未被验证。
2. 连接字符串未实时更新：Module中constr是初始化时生成的静态字符串，修改文本框内容后未重新生成新的连接字符串，仍使用旧值。
3. 异常捕获类型错误：代码中捕获的是SqlConnection对象，而非SqlException异常，导致数据库错误无法被正确捕获。

修正步骤 #

1. 实时生成连接字符串，避免静态变量复用 #

不要用Module里的静态constr，每次测试连接时都从文本框实时生成最新的连接字符串：

' 替换原Module中的静态constr，改为动态生成方法
Public Function GetCurrentConnectionString() As String
    Return $"Data source='{TextBox1.Text}';database='{TextBox2.Text}';uid='{TextBox3.Text}';password='{TextBox4.Text}';connection timeout=10;Max Pool Size=32767;Pooling=True"
End Function

注：将连接超时从0改为10，避免无限等待；直接从文本框取最新输入，确保使用的是用户刚提交的凭证。

2. 修正异常捕获与连接池处理逻辑 #

捕获正确的SqlException类型，同时强制清除旧连接池，确保新凭证被验证：

Try
    ' 清除连接池中与当前连接字符串匹配的旧连接，强制使用新凭证
    SqlConnection.ClearPool(New SqlConnection(GetCurrentConnectionString()))
    
    Using connection As New SqlClient.SqlConnection(GetCurrentConnectionString())
        connection.Open()
        MsgBox("Online")
    End Using
Catch sqex As SqlClient.SqlException
    MsgBox(sqex.Message) ' 此时会正确弹出"无法打开登录请求的数据库..."之类的提示
Catch ex As Exception
    MsgBox($"其他错误：{ex.Message}")
End Try

3. 可选：同步文本框输入到My.Settings（如需持久化） #

如果需要将文本框内容保存到My.Settings，可在文本框失去焦点时更新并保存：

Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
    My.Settings.myserver = TextBox1.Text
    My.Settings.Save()
End Sub

' 其他文本框（数据库、账号、密码）重复上述逻辑即可

关键说明 #

• SqlConnection.ClearPool：强制清除连接池中与指定连接字符串匹配的所有连接，确保下次连接使用新的凭证，不会复用旧的有效连接。
• 动态生成连接字符串：每次测试都从文本框取最新值，保证使用的是用户刚输入的凭证。
• 修正异常类型：只有捕获SqlException才能获取数据库登录失败的具体错误信息。

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