Как извлечь длинные двоичные данные (Pdf) из базы данных доступа и записать в файл (диск) - PullRequest
Новая
       62

Как извлечь длинные двоичные данные (Pdf) из базы данных доступа и записать в файл (диск)

0 голосов
/ 09 ноября 2019

Я пробовал этот код, файл открывается, но он пуст. Мои данные в формате PDF были сохранены как длинные двоичные данные в доступе. 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim cmd As New OleDbCommand("SELECT Pdf FROM tblBinary WHERE Identity = 'n'", cn)
    Dim dt1 As New DataTable

    'Dim fileData As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())

    Using reader As OleDbDataReader = cmd.ExecuteReader()
        While reader.Read()
            Dim fileData As Byte() = DirectCast(reader("Pdf"), Byte())

            Using fs As New FileStream("C:\Users\nelsn\Desktop\Testing1.doc", FileMode.Create, FileAccess.Write)
                fs.Write(fileData, 0, fileData.Length)
                fs.Flush()
                fs.Close()
            End Using
            System.Diagnostics.Process.Start("C:\Users\nelsn\Desktop\Testing1.doc")
        End While
    End Using
End Sub
...