VB通过ODBC注册表连接MySQL：提取ODBC.ini的IP和密码到连接字符串

你已经完成了把ODBC DSN名称加载到ComboBox的部分，接下来咱们把提取选中DSN的IP和密码、拼接MySQL连接字符串的功能补上，具体实现如下：

1. 先定义参数存储变量 #

在窗体类的顶部添加两个私有变量，用来临时保存选中DSN的服务器IP和密码：

Private selectedDsnServer As String = ""
Private selectedDsnPassword As String = ""

2. 监听ComboBox的选择变化事件 #

当用户选中ComboBox里的某个DSN时，自动读取对应注册表项里的配置信息：

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    Dim selectedDsn = ComboBox1.SelectedItem?.ToString()
    If String.IsNullOrWhiteSpace(selectedDsn) Then Return

    ' 打开对应DSN的注册表路径，用Using确保资源自动释放
    Using dsnRegKey = Registry.CurrentUser.OpenSubKey($"Software\ODBC\ODBC.INI\{selectedDsn}")
        If dsnRegKey IsNot Nothing Then
            ' 读取Server（IP地址），MySQL ODBC驱动默认用这个键名
            selectedDsnServer = dsnRegKey.GetValue("Server")?.ToString() ?? ""
            ' 读取Password，MySQL ODBC驱动默认用这个键名
            selectedDsnPassword = dsnRegKey.GetValue("Password")?.ToString() ?? ""
        End If
    End Using
End Sub

3. 修改按钮点击事件构建合法连接字符串 #

更新你的Button点击逻辑，用提取到的参数拼接标准的MySQL连接字符串：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 先做基础校验，避免未选DSN就触发操作
    If String.IsNullOrWhiteSpace(selectedDsnServer) OrElse ComboBox1.SelectedItem Is Nothing Then
        MessageBox.Show("请先选择一个有效的ODBC DSN！")
        Return
    End If

    ' 拼接符合MySQL规范的连接字符串
    Dim connString = $"Database={ComboBox1.SelectedItem};Data Source={selectedDsnServer};User Id=root;Password={selectedDsnPassword}"
    
    ' 这里可以添加连接测试代码，示例：
    ' Using conn As New MySqlConnection(connString)
    '     Try
    '         conn.Open()
    '         MessageBox.Show("数据库连接成功！")
    '     Catch ex As Exception
    '         MessageBox.Show($"连接失败：{ex.Message}")
    '     End Try
    ' End Using
End Sub

额外说明 #

• 不同ODBC驱动的注册表键名可能有差异，如果你的驱动不是用Server和Password存储信息，可以打开注册表编辑器（regedit），查看HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\你的DSN名称下的实际键名，对应修改代码里的GetValue参数即可。
• 使用Using语句管理注册表键，能自动释放系统资源，避免内存泄漏问题。

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