使用MS Access VBA添加/查看OLEObjects

Question

基于Add/view attachments using MS Access VBA有没有办法以相同的方式行事，但这次对于OLEObjects？我们如何替换AddAttachment方法？

Answer 1

查看此引用以获取导入OLEObject Import OLEObject的方法。涉及相当多的代码。下载示例数据库并开始查看此proc：

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。查看Manage OLEObject