Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2021, 03:04   #1
SlavaPetrov
Новичок
Джуниор
 
Регистрация: 07.11.2021
Сообщений: 1
По умолчанию вставка картинок

Есть таблица в базе Access на основании данных из "Поле1" нужно вставить картинку в поле "Вложение". Картинки лежат в отдельной папке, имена картинок такие же как данные в "Поле1". Можно было бы вставить и вручную, но строк в таблице примерно 6000.
Изображения
Тип файла: jpg 001.jpg (58.5 Кб, 6 просмотров)
SlavaPetrov вне форума Ответить с цитированием
Старый 08.11.2021, 10:17   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub DoSmth()
Dim rsPictures As Recordset
With CurrentDb.OpenRecordset("Таблица1", dbOpenDynaset)
    If Not (.BOF And .EOF) Then
            .MoveFirst
            Do While Not .EOF
                .Edit
                Set rsPictures = .Fields(2).Value
                rsPictures.AddNew
                rsPictures.Fields("FileData").LoadFromFile "D:\ПАПКА_С_ФОТО\" & .Fields(1).Value
                rsPictures.Update
                .Update
                .MoveNext
            Loop
        End If
        .Close
End With

End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка картинок, вытянутых из Базы Данных Apoka5555 Базы данных (ADO.NET, LinqToSql, ORM Entity Framework, NHibernate) 0 04.10.2013 21:47
StringGrid: вставка картинок Grass-snake Общие вопросы Delphi 2 25.10.2011 15:00
Вставка картинок в текстовый документ PONKA Общие вопросы Delphi 0 04.02.2009 12:54