Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Access
Войти
Регистрация
Восстановить пароль
 
michael55
7 / 7 / 4
Регистрация: 24.09.2015
Сообщений: 42
1

Как добавить рисунок в поле Базы данных?

02.02.2016, 20:23. Просмотров 238. Ответов 2
Метки нет (Все метки)

Есть форма "Автомобили", на ней есть тип объекта "Рисунок" (Pic), Кнопка "Добавить/Изменить"(AddPic), Поле "Фотография".
Как сделать так, чтобы при нажатии на кнопку добавить/изменить появлялось диалоговое окно с выбором изображения, после чего изображение отображалось бы в поле рисунка"Pic".

Пробовал по примеру БД Борей, но ничего не получается. Заранее спасибо!

Вот пример моего кода. При нажатии ничего не происходит.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Compare Database
'********************************************************************************************************
'Отображение картинки при переходах по записям
Private Sub Form_Current()
On Error Resume Next
If Len(Nz(Me.Фотография, "")) = 0 Then
Me![Pic].Picture = ""
Else
strPath = CurrentProject.path 'Определяем текущий путь
Me![Pic].Picture = strPath & "" & "Foto" & "" & Me![Фотография] 'Отображаем картинку, Foto это папка с картинками
End If
End Sub
'********************************************************************************************************
'Выбор изображение и отображение его на форме
Private Sub AddPic_Click()
On Error Resume Next
    Dim fileName As String
    Dim result As Integer
    Dim i As Integer
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выберите изображение" 'Заголовок
        .Filters.Clear 'Очищаем фильтр
        .Filters.Add "Все файлы", "*.*"
        .Filters.Add "bmp", "*.bmp"
        .Filters.Add "gif", "*.gif"
        .Filters.Add "jpeg", "*.jpeg"
        .Filters.Add "jpg", "*.jpg"
        .FilterIndex = 1
        .AllowMultiSelect = False 'Отключаем множественный выбор
        .InitialFileName = CurrentProject.path 'Путь по умолчанию(текущая папка)
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            i = InStrRev(fileName, "") 'Высчитываем количество знаков до "" файла
              Me.Фотография.Value = Right(fileName, Len(fileName) - i) 'Название файла
            strPath = CurrentProject.path 'Определяем текущий путь
            Me![Pic].Picture = strPath & "" & "Foto" & "" & Right(fileName, Len(fileName) - i) 'Отображаем картинку
        End If
    End With
End Sub
'********************************************************************************************************
'Кнопка удалить фотографию
 
Private Sub Del_Click()
' Очищает строку имени файла для записи сотрудника
    Me![Фотография] = ""
   
End Sub
0
Вложения
Тип файла: zip Avtosalon.zip (435.2 Кб, 5 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.02.2016, 20:23
Ответы с готовыми решениями:

Как обеспечить зависимость значений для ввода в поле базы данных от значения в другом поле базы данных?
Есть 2 таблицы справочников (все факторы и все возможные значения - tblDicFactor и...

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

Как мне программно добавить поле в таблице и сделать поле ключевым
1. Как мне программно добавить поле в таблице и сделать поле ключевым? 2. Как программно...

Как обеспечить зависимость значений для ввода в поле базы данных от значения в другом поле базы данных?
В таблицу DicFactor вводятся факторы, а в связанную с ней таблицу FactorValue вводятся допустимые...

Как вставить рисунок из базы данных в DataGridViewImageColumn
Здравствуйте, не подскажите как вставить рисунок из базы данных в ячейки datagrid--можно просто...

2
michael55
7 / 7 / 4
Регистрация: 24.09.2015
Сообщений: 42
02.02.2016, 21:02  [ТС] 2
Проблема решена! Необходимо было подключить библиотеку Microsoft Office 15.0 Object Library. В редакторе кода VB ( Alt+F11) Меню: Tools->References и выбрал необходимую библиотеку.
0
alvk
Эксперт MS Access
5806 / 3690 / 202
Регистрация: 12.08.2011
Сообщений: 9,726
03.02.2016, 07:30 3
Цитата Сообщение от michael55 Посмотреть сообщение
библиотеку Microsoft Office 15.0 Object Library.
2013-й офис
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.02.2016, 07:30

Как в IF добавить проверку из базы данных?
Здравствуй форумчанин. Подскажи пожалуйста как добавить в IF проверку поля Допуск=True в таблице...

Как добавить данные в поле тип данных image
Вообщем вопрос вот в чем: создаю таблицу в sql 2000 через enterprise manager, в одном из полей...

Как добавить информацию из базы данных в country.php?
Здравствуйте. Прошу помочь. У нас на хостинге есть база данных, с информацией о странах (каждая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru