使用VBA通过ADODB连接SQL Server查询数据报错求助

核心错误分析 #

1. SQL语法错误（Incorrect syntax near ','）
   你的SQL查询语句缺少SELECT关键字，数据库无法识别这是合法的查询命令，直接导致Execute方法执行失败。

2. 对象未找到（Object not found）

   • 上述SQL错误导致adoDbRs未成功创建（对象为Nothing），后续访问adoDbRs.EOF自然触发报错。
   • 代码中Row.Count是拼写错误，应为Rows.Count；且Range操作未指定工作表，会默认使用当前激活工作表，可能与目标工作表"Data"不一致。
   • adCmdText是ADODB常量，若未添加ADODB引用，VBA无法识别该常量，也会导致Execute方法执行失败。

分步修复 #

• 修复SQL语句：在字段列表前添加SELECT关键字
• 修正Range操作：明确指定目标工作表，修复Rows.Count拼写错误
• 处理ADODB常量：要么添加ADODB引用，要么直接使用常量对应的数值（adCmdText对应数值为1）
• 优化工作表操作：避免不必要的Activate调用，直接通过工作表对象操作单元格
• 添加基础错误处理：防止连接或查询失败后出现后续连锁报错

修正后的完整代码 #

Private Sub Workbook_Open()
    Dim adoDBConn As ADODB.Connection
    Dim adoDbRs As ADODB.Recordset
    Dim selectCmd As ADODB.Command
    Dim ws As Worksheet
    
    ' 初始化ADODB对象
    Set adoDBConn = New ADODB.Connection
    Set selectCmd = New ADODB.Command
    Set adoDbRs = New ADODB.Recordset
    Set ws = ThisWorkbook.Worksheets("Data")
    
    On Error GoTo Cleanup ' 错误处理，跳转至资源清理步骤
    
    ' 连接SQL Server（去掉账号密码前后空格避免潜在问题）
    adoDBConn.Open "Provider=SQLOLEDB;Data Source=LAPTOP-N0CT1GQ5;Initial Catalog=Interest_Analysis;User Id=***;Password=***;"
    
    ' 设置查询命令：添加SELECT关键字修复SQL语法
    selectCmd.ActiveConnection = adoDBConn
    selectCmd.CommandText = "SELECT County, cntyvtd, Name, Votes FROM 2020_General_Election_Returns_import_to_SQL"
    ' 使用adCmdText的数值1，避免未添加引用导致的常量识别错误
    Set adoDbRs = selectCmd.Execute(, , 1)
    
    ' 清理目标数据区域：明确指定工作表，修正Rows.Count拼写
    ws.Range(ws.Cells(2, 2), ws.Cells(ws.Rows.Count, 5)).ClearContents
    
    ' 导入查询结果到工作表
    If Not adoDbRs.EOF Then
        ws.Cells(2, 2).CopyFromRecordset adoDbRs
    End If
    
    ' 设置表头
    ws.Cells(1, 2) = "County"
    ws.Cells(1, 3) = "cntyvtd"
    ws.Cells(1, 4) = "Name"
    ws.Cells(1, 5) = "Votes"

Cleanup:
    ' 统一清理资源，无论是否出错都执行
    If Not adoDbRs Is Nothing Then
        adoDbRs.Close
        Set adoDbRs = Nothing
    End If
    Set selectCmd = Nothing
    If Not adoDBConn Is Nothing Then
        adoDBConn.Close
        Set adoDBConn = Nothing
    End If
    Set ws = Nothing
    
    ' 若有错误则弹窗提示详情
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbCritical
    End If
End Sub

额外注意事项 #

• 添加ADODB引用：若想使用adCmdText而非数值1，需打开VBA编辑器 → 工具 → 引用 → 勾选"Microsoft ActiveX Data Objects x.x Library"（建议选最新版本）
• 数据范围优化：清理范围调整到第5列（对应4个查询字段），避免清理不必要的单元格区域

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