vba - 使用 MS Access VBA 添加/查看 OLEObjects

Question

基于使用 MS Access VBA 添加/查看附件，有没有办法以同样的方式行事，但这次是针对 OLEObjects？我们如何替换AddAttachment方法？

Answer 1

查看此参考以了解导入 OLEObject 的方法Import OLEObject。涉及相当多的代码。下载示例数据库并开始查看此过程：

Sub SaveFileToBlob(OLEPath, OLEName)
Dim Tbl As New ADODB.Recordset

    Set Tbl = New ADODB.Recordset
    With Tbl
        .Open "TblEmbeddedObjects", MasterDbConn, adOpenKeyset, adLockOptimistic, adCmdTable
        .AddNew
        .Fields("fldDocumentName").Value = OLEName
         FileToBlob OLEPath & OLEName, .Fields("fldDocument")
        .Fields("fldDocumentDate") = Date
        .Fields("fldDestinationPath") = Replace(OLEPath, "\\", "\")
        .Update
        .Close
    End With
    Set Tbl = Nothing

End Sub

使用 AppendChunk 和 GetChunk 方法。查看管理 OLEObject