Access VBA:如何将OLE字段内容转储为字节

Function DumpOLEFieldAsBytes(tableName As String, fieldName As String, recordID As Long) As Byte()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim field As DAO.Field
    Dim bytes() As Byte
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(tableName)
    
    rs.FindFirst "ID = " & recordID ' 假设ID是记录的唯一标识字段
    
    If Not rs.NoMatch Then
        Set field = rs.Fields(fieldName)
        
        If Not field.Value Is Null Then
            bytes = field.Value
        End If
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    DumpOLEFieldAsBytes = bytes
End Function

Private Sub btnDumpOLEField_Click()
    Dim bytes() As Byte
    Dim filePath As String
    
    bytes = DumpOLEFieldAsBytes("YourTableName", "YourFieldName", 1) ' 假设记录ID为1
    
    If Not IsEmpty(bytes) Then
        filePath = "C:\Path\To\Save\File.bin" ' 替换为你想保存文件的路径
        
        Open filePath For Binary Access Write As #1
        Put #1, , bytes
        Close #1
        
        MsgBox "OLE字段内容已成功转储为字节并保存到文件中。"
    Else
        MsgBox "找不到指定的记录或字段值为空。"
    End If
End Sub