Excel VBA连接SQL Server报错及参数化查询方案咨询

一、VBA是否为合适工具及更优方案 #

VBA完全适配你的需求：它可以读取单元格里的参数、执行带参数的SQL查询、自动填充结果到指定区域，而且能把整个逻辑封装成按钮操作，用户只需要输入参数点击按钮，完全碰不到SQL语句。

更优方案可以考虑Excel Power Query+参数功能，对非IT用户更友好：

• 先通过「数据->获取数据」创建基础SQL查询，把查询里的条件替换成关联Excel单元格的参数
• 用户只需修改单元格里的参数，点击「刷新」就能拿到最新数据，全程不需要写代码
• 这个方案操作直观，后期维护也比VBA简单

二、修复「Data source name not found」报错的方法 #

报错原因是你的连接字符串没指定ODBC驱动，ADODB连接SQL Server必须明确驱动名称，以下是具体解决方法：

1. 修改连接字符串（核心修复步骤） #

根据你已安装的驱动，选择对应格式的连接字符串：

• 推荐用SQL Server Native Client 11.0（适配SQL Server 2012，稳定性更佳）：

ConnectionString = "Driver={SQL Server Native Client 11.0};Server=00.00.00.00;Database=MyDatabase;Uid=MyName;Pwd=MyPassword;"

• 也可以用旧版SQL Server驱动：

ConnectionString = "Driver={SQL Server};Server=00.00.00.00;Database=MyDatabase;Uid=MyName;Pwd=MyPassword;"

2. 无需额外安装驱动或更换VBA库 #

你已经安装的SQL Server Native Client 11.0完全适配SQL Server 2012，不需要再装新驱动；当前添加的Microsoft ActiveX Data Objects 6.1 Library也能正常配合这些驱动使用，无需更换。

完整示例代码（带参数读取+结果填充） #

Sub Compute()
    Dim ConnectionString As String
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sqlStr As String
    Dim paramValue As String ' 根据参数实际类型调整，比如数字用Integer
    
    ' 从Sheet1的A1单元格读取参数
    paramValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 配置带驱动的连接字符串
    ConnectionString = "Driver={SQL Server Native Client 11.0};Server=00.00.00.00;Database=MyDatabase;Uid=MyName;Pwd=MyPassword;"
    
    ' 带参数占位符的SQL查询（避免SQL注入风险）
    sqlStr = "SELECT * FROM YourTargetTable WHERE FilterColumn = ?"
    
    Set conn = New ADODB.Connection
    conn.Open ConnectionString
    
    Set rs = New ADODB.Recordset
    ' 绑定参数并执行查询
    rs.Open sqlStr, conn, adOpenStatic, adLockReadOnly, adCmdText
    rs.Parameters(0).Value = paramValue
    
    ' 将查询结果填充到Sheet1的A3起始位置
    ThisWorkbook.Sheets("Sheet1").Range("A3").CopyFromRecordset rs
    
    ' 释放资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

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