...
      Dim buffer() As Byte
      ReDim buffer(FileLen(Path))
      hFile = FreeFile
      Open Path For Binary Access Read As #hFile
      Get hFile, , buffer()
      Close hFile
      rs.AddNew
      rs!PIC = buffer()
      rs.Update
      ...

Public Sub InsertImageToDatabase()
    Dim rst As ADODB.recordset
    Dim stm As ADODB.Stream
    
    Set rst = New ADODB.recordset
    Set stm = New ADODB.Stream

    rst.Open "Table1", CurrentProject.Connection, _
      adOpenKeyset, adLockOptimistic

    stm.Type = adTypeBinary
    stm.Open
    stm.LoadFromFile "D:\Temp\Img.JPG"

    rst.AddNew
    rst.Fields("Img") = stm.Read
    rst.Update
    
    rst.Close
    Set rst = Nothing
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы