Добрый день,
Имеется код VBA отправляющий данные из формы Excel в БД Access в соответствующие поля, в БД имеется поле "File" с типом "вложение" позволяющее сохранить файлы к соответствующей записи. Подскажите процедуру для загрузки файла, при условии, что известен путь расположения файла (например C:\File.pdf), данный файл так же создается через Excel, путем печати необходимых листов книги.
Код VBA
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub InsertFromExcel()
Const strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Temp\REConclusion.accdb;Persist Security Info=True;Jet OLEDB:Database Password=123"
Dim sSQL As String
Dim pConn As New ADODB.Connection, pSheet As Worksheet, lRow As Long
Set pSheet = ThisWorkbook.Worksheets("Пример")
lRow = pSheet.Cells(pSheet.Rows.Count, 2).End(xlUp).Row
sSQL = "Insert Into Test (DateBD, NumberBD, TextMoreThan510, Quantity, CheckEmptyData) Select [Поле менее 510 знаков в ячейке (Дата)]"
sSQL = sSQL & ",[Поле менее 510 знаков в ячейке (Число)],[Поле более 510 знаков в ячейке (Текст)]"
sSQL = sSQL & ",[Количество знаков ячеек в столбце E],[Проверка если данных в ячееке нет] From "
sSQL = sSQL & "[Excel 12.0;Database=" & ThisWorkbook.FullName & ";HDR=Yes].[Пример$B2:G" & lRow & "] Where [Проверка если данных в ячееке нет] Is Not Null;"
pConn.Open strConn
pConn.Execute sSQL
pConn.Close
End Sub
В справке Microsoft нашел статью не отменяющую необходимый функционал:
Вложение файлов и изображений в записи базы данных
Вложение файловВложение файлов в записи путем программирования
Access позволяет использовать модель объектов и интерфейсы программирования для вложения файлов в записи программным путем с помощью кода VBA (Visual Basic для приложений). Дополнительные сведения см. в статьях "LoadFromFile" и "SaveToFile" на веб-сайте MSDN
https://msdn.microsoft.com.
Я знаю про ограничения размера базы в 2 Гб и ограничения загружаемого файла в 256 Мб, просто есть определённая специфика, согласно которой необходимо небольшого размера файл сохранять именно в генерируемой через Excel строке БД Access. Текущих знаний SQL мне явно не хватит на реализацию собственными силами.
