使用Excel VBA通过MSOLEDBSQL连接SQL Server Express时遇错误-2147217887

我正在尝试连接SQL Server 16.0.1000 Express数据库，通过BAT脚本和SSMS都能成功建立连接，但VBA始终失败。

SSMS中使用的数据源名称：

Data Source=James-desktop\SQLEXPRESS.History

我尝试了以下所有连接字符串，均触发相同错误（仅连接字符串内容不同，错误信息一致）：

connectionStr = "Provider=MSOLEDBSQL;Data Source=James-desktop\SQLEXPRESS;Initial Catalog=History;Integrated Security=True;Connect Timeout=30"
connectionStr = "Provider=SQLOLEDB;Data Source=James-desktop\SQLEXPRESS;Initial Catalog=History;Integrated Security=True;Connect Timeout=30"
connectionStr = "Provider=MSOLEDBSQL;Data Source=James-desktop\SQLEXPRESS;Initial Catalog=History;Integrated Security=True;Connect Timeout=30"
connectionStr = "Provider=SQLOLEDB;Data Source=(LocalDb)\v16.0;Initial Catalog=History;Integrated Security=True;Connect Timeout=30"
connectionStr = "Provider=MSOLEDBSQL;Data Source=James-desktop\SQLEXPRESS;AttachDbFilename=" & _
    dbFilePath & ";Integrated Security=True;Connect Timeout=30"

错误信息：

尝试建立数据库连接... 连接字符串: Provider=MSOLEDBSQL;Data Source=James-desktop\SQLEXPRESS;Initial Catalog=History;Integrated Security=True;Connect Timeout=30 错误代码: -2147217887 错误描述: 多步OLE DB操作产生错误。请检查每个可用的OLE DB状态值。未执行任何操作。数据库连接建立失败。连接失败！

测试用VBA代码 #

Sub TestDatabaseConnection()
    Dim dbFilePath As String
    Dim connectionStr As String
    Dim conn As Object
    
    ' 设置数据库文件路径和连接字符串
    dbFilePath = "C:\Beaker\Market Data\Database\History.mdf"

    connectionStr = "Provider=MSOLEDBSQL;Data Source=James-desktop\SQLEXPRESS;AttachDbFilename=" & _
        dbFilePath & ";Integrated Security=True;Connect Timeout=30"
    
    ' 将连接字符串打印到立即窗口用于调试
    Debug.Print "Attempting to establish connection to the database..."
    Debug.Print "Connection String: " & connectionStr
    
    ' 打开连接
    Set conn = CreateObject("ADODB.Connection")
    On Error Resume Next ' 发生错误时继续执行
    conn.Open connectionStr
    If Err.Number <> 0 Then
        ' 将错误详情打印到立即窗口
        Debug.Print "Error Number: " & Err.Number
        Debug.Print "Error Description: " & Err.Description
        Debug.Print "Failed to establish connection to the database."
    End If
    On Error GoTo 0 ' 将错误处理重置为默认行为
    
    ' 检查连接是否成功
    If conn.State = 1 Then
        Debug.Print "Connection successful!"
        ' 关闭连接
        conn.Close
    Else
        Debug.Print "Connection failed!"
    End If
    
    ' 清理资源
    Set conn = Nothing
End Sub

可正常连接的BAT脚本 #

set server=James-desktop\SQLEXPRESS
set database=History

rem 使用Windows身份验证通过sqlcmd测试连接
sqlcmd -S %server% -d %database% -E -Q "SELECT 1" 

rem 检查errorlevel判断是否成功
if %errorlevel% equ 0 (
    echo Connection successful!
) else (
    echo Connection failed!
)

已确认Windows身份验证（Integrated Security）可正常工作，防火墙等限制也已排除，恳请提供解决思路。

解决建议 #

1. 确认OLE DB驱动版本兼容性
   SQL Server 16.0对应2022版本，需确保安装适配的MSOLEDBSQL 19.x驱动（而非旧版本）。旧驱动可能无法兼容新SQL Server的加密协议或身份验证机制。

2. 修正连接字符串格式
   SSMS中的数据源James-desktop\SQLEXPRESS.History是实例名+数据库名的写法，VBA连接时需明确拆分，同时使用标准参数：

   connectionStr = "Provider=MSOLEDBSQL;Data Source=James-desktop\SQLEXPRESS;Initial Catalog=History;Integrated Security=SSPI;Encrypt=Optional;Connect Timeout=30"
   

   • 用Integrated Security=SSPI替代True，这是ADODB更标准的Windows身份验证写法
   • 添加Encrypt=Optional，避免因SQL Server 2022默认加密设置导致的连接失败

3. 检查VBA运行权限
   确保运行VBA的Office程序以管理员身份启动，普通权限可能无法访问SQL Server实例的命名管道或TCP/IP端口。

4. 验证SQL Server实例协议设置
   在SQL Server配置管理器中，确认SQLEXPRESS实例的TCP/IP和命名管道协议已启用，端口设置正确（默认1433或动态端口）。

5. 避免混用AttachDbFilename和Initial Catalog
   当数据库已附加到SQL Server实例时，无需使用AttachDbFilename，直接用Initial Catalog=History即可，否则可能引发冲突。

内容的提问来源于stack exchange，提问作者S. Jagermanjensen