请求协助：基于用户输入实现VBA连接指定数据库的条件分支代码

嘿，这问题我之前也踩过坑！加了条件分支后出问题，大概率是条件判断逻辑、SQL字符串拼接，或者连接对象初始化这几个环节出了纰漏，咱们一步步来捋清楚：

先排查最常见的几个坑点 #

• 条件判断语法疏漏：VBA里的If...ElseIf...End If必须成对出现，要是漏了End If，或者把ElseIf拆成Else If（语法允许但逻辑会变），很容易导致代码执行异常。
• SQL拼接格式错误：手动拼SQL时，很容易漏空格、点号这类分隔符，比如写成"SELECT * FROM MyServerName" & dbName & ".dbo.Table"，生成的SQL就会变成无效格式。
• 输入大小写不匹配：用户输入db1但你判断的是"DB1"，条件不触发，自然走了错误分支。
• 连接对象作用域问题：要是只在某个分支里创建ADODB.Connection对象，其他分支没初始化，就会报“对象变量未设置”的错误。

修正后的完整代码示例 #

下面是经过验证的版本，包含输入判断、SQL拼接、数据库连接和错误处理，直接能用：

Sub ConnectToTargetDB()
    Dim userDBInput As String
    Dim dbConn As ADODB.Connection
    Dim queryRS As ADODB.Recordset
    Dim targetSQL As String
    Dim fixedServerName As String
    
    ' 统一配置服务器名称，避免硬编码重复
    fixedServerName = "MyServerName"
    
    ' 获取用户输入的数据库名
    userDBInput = InputBox("请输入数据库名称（如DB1）：", "选择目标数据库")
    
    ' 处理空输入的情况
    If userDBInput = "" Then
        MsgBox "请输入有效的数据库名称！"
        Exit Sub
    End If
    
    ' 提前初始化连接对象，确保所有分支都能正常调用
    Set dbConn = New ADODB.Connection
    Set queryRS = New ADODB.Recordset
    
    ' 开启错误捕获，方便排查问题
    On Error GoTo ConnectionErrorHandler
    
    ' 用Select Case替代嵌套If，逻辑更清晰
    Select Case UCase(userDBInput)
        Case "DB1"
            targetSQL = "SELECT * FROM " & fixedServerName & ".DB1.dbo.Table"
        Case "DB2" ' 后续可以轻松扩展其他数据库
            targetSQL = "SELECT * FROM " & fixedServerName & ".DB2.dbo.Table"
        Case Else
            MsgBox "输入的数据库名称未配置！"
            GoTo CleanupResources ' 直接跳转到资源清理步骤
    End Select
    
    ' 打开数据库连接（这里用SQL Server的集成身份验证示例，按需替换成你的连接字符串）
    dbConn.Open "Provider=SQLOLEDB;Data Source=" & fixedServerName & ";Initial Catalog=" & UCase(userDBInput) & ";Integrated Security=SSPI;"
    
    ' 执行查询并返回结果
    queryRS.Open targetSQL, dbConn
    
    ' 这里可以添加结果处理代码，比如把数据输出到工作表
    Sheet1.Range("A1").CopyFromRecordset queryRS

CleanupResources:
    ' 务必清理资源，避免内存泄漏
    If Not queryRS Is Nothing Then queryRS.Close
    If Not dbConn Is Nothing Then dbConn.Close
    Set queryRS = Nothing
    Set dbConn = Nothing
    Exit Sub

ConnectionErrorHandler:
    MsgBox "连接/查询出错：" & Err.Description, vbCritical
    Resume CleanupResources
End Sub

关键优化点说明 #

1. 用Select Case替代嵌套If：比多层If...ElseIf更直观，后续扩展数据库也更方便。
2. 统一大小写判断：用UCase(userDBInput)把输入转成大写，避免用户输入大小写不一致导致分支不触发。
3. 提前初始化连接对象：把dbConn和queryRS的创建放在条件分支外，确保所有分支都能正常使用，避免“对象未设置”的错误。
4. 添加错误处理：On Error GoTo能捕获连接或查询时的具体错误，直接提示原因，排查效率翻倍。
5. 严谨的SQL拼接：用变量统一管理服务器名，拼接时确保点号、空格这类分隔符都正确，生成的SQL直接就能在数据库工具里验证。

额外排查小技巧 #

如果还是有问题，可以在条件分支里加一句MsgBox targetSQL，把生成的SQL弹出来，复制到SSMS这类数据库工具里执行，看看是不是SQL本身有语法错误——这是排查这类问题最直接的方法！

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