求助：如何在MSAccess表单/报表中显示SQL Server的OLEDB图片？

方法一：VBA加载二进制图片到图像控件（推荐） #

因为Access的图像控件默认不直接支持绑定SQL Server的原始二进制JPG数据，需要通过VBA将二进制数据转成临时图片文件再加载：

1. 在表单或报表上添加一个图像控件，命名为imgPersonPhoto（可自定义名称）。
2. 打开表单/报表的代码视图，添加对应事件的VBA代码：
   • 表单切换记录时加载（Form_Current事件）：

     Private Sub Form_Current()
         Dim photoData As Variant
         
         ' 检查当前记录的photo字段是否为空
         If Not IsNull(Me!photo) Then
             photoData = Me!photo
             ' 将二进制数据写入系统临时文件夹的临时JPG文件
             Open Environ("TEMP") & "\temp_photo.jpg" For Binary Access Write As #1
                 Put #1, , photoData
             Close #1
             ' 把临时文件加载到图像控件
             Me.imgPersonPhoto.Picture = Environ("TEMP") & "\temp_photo.jpg"
         Else
             ' 字段为空时清空图像控件
             Me.imgPersonPhoto.Picture = ""
         End If
     End Sub
     

   • 报表打印/预览时加载（Detail_Format事件）：

     Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
         Dim photoData As Variant
         
         If Not IsNull(Me!photo) Then
             photoData = Me!photo
             Open Environ("TEMP") & "\temp_photo.jpg" For Binary Access Write As #1
                 Put #1, , photoData
             Close #1
             Me.imgPersonPhoto.Picture = Environ("TEMP") & "\temp_photo.jpg"
         Else
             Me.imgPersonPhoto.Picture = ""
         End If
     End Sub
     

3. 注意事项：
   • 确保Access有系统临时文件夹的读写权限，Environ("TEMP")指向的路径一般默认有权限。
   • 切换记录或报表刷新时，旧的临时文件会被自动覆盖，无需手动清理。

方法二：改用SQL Server IMAGE字段（兼容旧OLE逻辑） #

如果不需要遵循SQL Server最新规范，可以把varbinary(max)字段改成IMAGE类型（微软已标记为过时，但Access对其兼容性更好），之后直接将图像控件的ControlSource绑定到该字段，就能直接显示图片。不过这个方法仅适合临时过渡，不推荐长期使用。

方法三：绑定对象框（仅适用于OLE格式图片） #

如果拖放图片到SQL Server字段时，Access自动将其转成了OLE格式（而非原始JPG二进制），可以直接添加绑定对象框控件，把它的ControlSource绑定到photo字段，就能直接显示。但如果是原始二进制JPG，此方法无效。

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