Загрузить файл из БД MS Access 2007 (VB.net)

Question

Привет! Я создаю приложение для Windows, используя VB.net, и я хотел бы знать, как я могу создать кнопку загрузки, чтобы, когда пользователь щелкает по ней, он мог загрузить конкретное вложение из столбца вложения вбаза данных.

Я пытался узнать, как мне это сделать, но, к сожалению, я так и не смог найти этот ответ.Я ценю, если кто-то, имеющий опыт в этом, может помочь мне в процессе кодирования этой функции.

Answer 1

Используйте DAO (добавьте ссылку на Microsoft.Office.Interop.Access.Dao.DLL), чтобы прочитать поле вложения из базы данных Ms-Access.

Пример кода:

Imports Microsoft.Office.Interop.Access
Public Class Form1
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim FileName = "c:\WindowsApplication1\Database1.accdb"

        'Directory location where attachment files will be stored.
        Dim Path = "c:\WindowsApplication1\"

        Dim engine As New Dao.DBEngine
        Dim database As Dao.Database = engine.OpenDatabase(FileName)

        Dim rs As Dao.Recordset = database.OpenRecordset("select MyAttachmentField from  TableName")
        While Not rs.EOF
            Dim rs1 As Dao.Recordset2 = rs.Fields("MyAttachmentField").Value
            While Not rs1.EOF
                Dim fName As String = Path & rs1("FileName").Value
                Dim fld As Dao.Field2 = rs1("FileData")
                'Delete a file if same named file exists
                System.IO.File.Delete(fName)
                fld.SaveToFile(fName)
                rs1.MoveNext()
            End While
         rs.MoveNext()
        End While
    End Sub
End Class