Вставьте файл PDF в базу данных SQL Server

Question

Я новичок в программировании Access и пытаюсь вставить документы .pdf и Word в базу данных, связанную с SQL Server, и у меня возникли проблемы.Мне нужно несколько советов, чтобы начать на этом.Может ли помочь.

Dim f As Object
Dim sFile As String
Dim fld_path As String
Dim fld_file As String

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim Sql As String
Dim Code As String


 FileToBlob = "C:\temp\1.pdf"

Sql = "INSERT INTO dbo_Doc (Doc) VALUES (FileToBlob)"

DoCmd.RunSQL Sql

Answer 1

Используйте эту функцию для получения байтовых данных для указанного файла:

' fPath is the path to the file
Function FileToBlob(fPath As String) As Variant
    Dim fileNum As Long
    Dim b() As Byte

    fileNum = FreeFile
    Open fPath For Binary As fileNum
        ReDim b(LOF(fileNum))
        Get fileNum, , b()
    Close fileNum

    FileToBlob = b
End Function