使用DAO代码从Access上传文件至SQL Server时遇Object Required错误

你遇到的Object Required错误，核心原因是那篇MSDN文档是针对Access本地数据库的Attachment字段设计的，但你操作的是SQL Server的varbinary(MAX)列——这两种字段类型的处理逻辑完全不同，DAO的Attachment对象只适用于Access本地的附件字段，放到SQL Server的字段上自然会找不到对应对象，报错也就不奇怪了。

针对SQL Server的varbinary(MAX)列，我们需要用ADODB（ActiveX Data Objects）来实现文件上传，步骤如下：

1. 准备工作（可选但推荐） #

在Access VBA编辑器里，先引用ADODB库：

• 打开VBA编辑器（Alt+F11）
• 点击「工具」→「引用」
• 勾选「Microsoft ActiveX Data Objects 6.1 Library」（版本选最新的即可）

如果不想用早绑定，也可以用晚绑定（无需引用），代码里的对象定义改成Object类型即可。

2. 完整VBA代码示例 #

Sub UploadFileToSQLServer()
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim fileBytes() As Byte
    Dim filePath As String
    Dim sql As String
    
    ' 1. 设置要上传的文件路径和SQL Server连接字符串
    filePath = "C:\YourFilePath\test.pdf" ' 替换成你的文件路径
    Dim connStr As String
    connStr = "Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;Initial Catalog=YourDatabaseName;Integrated Security=SSPI;"
    ' 注：如果是SQL身份验证，改成：
    ' connStr = "Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword;"
    
    ' 2. 读取文件到字节数组
    On Error Resume Next
    Open filePath For Binary Access Read As #1
    If Err.Number <> 0 Then
        MsgBox "文件不存在或无法读取：" & Err.Description
        Exit Sub
    End If
    On Error GoTo 0
    
    ReDim fileBytes(LOF(1) - 1)
    Get #1, , fileBytes
    Close #1
    
    ' 3. 连接SQL Server并执行插入/更新
    Set conn = New ADODB.Connection
    conn.Open connStr
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandType = adCmdText
    
    ' 示例：插入新记录（如果是更新，改成UPDATE语句）
    sql = "INSERT INTO WATER_FILES (Binary_File, OtherColumn) VALUES (?, ?)"
    cmd.CommandText = sql
    
    ' 添加参数：第一个参数对应Binary_File列
    cmd.Parameters.Append cmd.CreateParameter("FileData", adVarBinary, adParamInput, adLongVarBinary, fileBytes)
    ' 添加其他参数（如果需要，比如其他字段的值）
    cmd.Parameters.Append cmd.CreateParameter("OtherValue", adVarChar, adParamInput, 50, "测试文件")
    
    ' 执行命令
    cmd.Execute
    
    ' 清理资源
    cmd.Close
    conn.Close
    Set cmd = Nothing
    Set conn = Nothing
    
    MsgBox "文件上传成功！"
End Sub

关键注意事项 #

• 参数化查询：一定要用参数化方式传递字节数组，绝对不要直接把文件内容拼接到SQL语句里——不仅会有SQL注入风险，大文件也根本无法拼接。
• 连接字符串：根据你的SQL Server实例名称、认证方式（Windows集成/ SQL身份验证）调整连接字符串。
• 文件读取：用Open语句读取二进制文件是最稳定的方式，避免用FileSystemObject处理大文件时的性能问题。
• 错误处理：代码里加了基础的文件读取错误处理，你可以根据需求扩展更多异常捕获逻辑。

为什么原来的DAO代码不行？ #

Access本地的Attachment字段是一种特殊的复合字段，包含了文件名、文件类型、二进制内容等元数据，DAO专门提供了Attachment对象来操作它；但SQL Server的varbinary(MAX)只是单纯存储二进制字节流，没有这些元数据，所以DAO的Attachment对象在这里完全不适用，自然会抛出Object Required错误。

内容的提问来源于stack exchange，提问作者Kevin R. M.