如何在 Microsoft Access 2007 的附件字段中存储文件？答案

【问题标题】：How to store files in an attachment field in Microsoft Access 2007?如何在 Microsoft Access 2007 的附件字段中存储文件？
【发布时间】：2014-04-21 11:05:23
【问题描述】：

所以我尝试寻找解决方案，我经常找到 DAO 作为解决方案，但我不知道如何使用它，我的意思是要导入什么或者它需要 dll 吗？

【问题讨论】：

stackoverflow.com/a/3398696/242520

标签： vb.net visual-studio vba ms-access visual-studio-2008

【解决方案1】：

以下 VB.NET 代码使用 DAO 将名为“Sample.pdf”的文件添加到名为 [MyTable] 的表中名为 [AttachmentsField] 的字段中：

Imports Microsoft.Office.Interop.Access.Dao

Module Module1

    Sub Main()
        ' this code requires that your project have the following COM Reference:
        '     Microsoft Office 14.0 Access Database Engine Object Library
        Dim dbe As New DBEngine
        Dim db As Database = dbe.OpenDatabase("C:\Users\Public\Database1.accdb")
        Dim rstRecord As Recordset = db.OpenRecordset( _
                "SELECT * FROM MyTable WHERE ID=1", _
                RecordsetTypeEnum.dbOpenDynaset)
        rstRecord.Edit()
        Dim rstAttachments As Recordset2 = rstRecord.Fields("AttachmentsField").Value
        rstAttachments.AddNew()
        Dim AttachmentData As Field2 = rstAttachments.Fields("FileData")
        AttachmentData.LoadFromFile("C:\Users\Gord\Desktop\Sample.pdf")
        rstAttachments.Update()
        rstAttachments.Close()
        rstRecord.Update()
        rstRecord.Close()
        db.Close()
    End Sub

End Module

【讨论】：