LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
01. Данный пример показывает вам, как можно загрузить все рисунки из каталога в базу данных. Обратите внимание на Dir("\*.bmp", vbNormal) - таким простейшим и древним способом можно получить все файлы из каталога. Рекомендации для хранения рисунков. Лучше использовать отдельные файлы, хотя в некоторых случаях это может пригодится.
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\02 Графика\la_graphics.mdb
 Язык интерфейса: Русский

   

'    Загрузить рисунки из файла в таблицу
'    (Для работы программы в папке должны быть файлы *.bmp)
'
Private Sub butExecute_Click()
Dim myBmp As String, myDir As String
On Error GoTo 999
    ' Папка для поиска
    myDir = Application.CurrentProject.Path
    ' Находим файл с расширением bmp
    myBmp = Dir(myDir & "\*.bmp", vbNormal)
    Do While Len(myBmp) <> 0 'Проверяем файл
        Me.Файл = myBmp  'Файл bmp
        Me.Папка = myDir 'Каталог
        Me.Рисунок.OLETypeAllowed = acOLEEmbedded 'Назначаем режим вставки
        Me.Рисунок.SourceDoc = Me.Папка & "\" & Me.Файл 'Путь файла
        Me.Рисунок.Action = acOLECreateEmbed 'Вставляем объект в таблицу
        'Переход к новой записи
        myBmp = Dir  'Новый файл bmp
        DoCmd.RunCommand acCmdRecordsGoToNew ' Переходим на новую запись
    Loop
    DoCmd.RunCommand acCmdRecordsGoToFirst 'Начало записей
    MsgBox "Рисунки загружены!", vbExclamation, "Графика"
    Exit Sub
999:
    MsgBox Err.Description  'Ошибка
    Err.Clear
End Sub


Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access