MS Access VBAを使用してOLEオブジェクトを追加/表示する

Question

Add/view attachments using 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を使用します。レビューManage OLEObject