使用MS Access VBA添加/查看对象

基于是否有一种方法可以以相同的方式进行操作，但这次是针对OLEObjects？我们如何替换

AddAttachment

方法？

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

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方法。复习