ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отобразить на Picture1 значение из базы данных mdb
1 сообщений из 1, страница 1 из 1
Отобразить на Picture1 значение из базы данных mdb
    #36944735
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Программа работала отлично. Добавил в mdb поле типу ОЛЕ, открыл через Access таблицу T01 и вставил с буфера скопированный рисунок с обыкновенного паинта. На форме Access отображение рисунка сделать легко, а у VB пока не получается
1. Не знаю как нужно сравнить есть там что или нет
2. Не получается присвоить изображение
Мне условие IF нужно чтоб Picture1 когда есть рисунок Visible принимал True/False

Pole_Rubrika = Zm_Tabl_TxtPovidoml.Fields("Rubrika").value
Pole_TxtPovid = Zm_Tabl_TxtPovidoml.Fields("TxtPovid").value
If IsNull(Zm_Tabl_TxtPovidoml.Fields("foto").value) = True Then
frmBassTest.Picture1.Picture = Zm_Tabl_TxtPovidoml.Fields("foto").value
End If

Поле "foto" типу ОЛЕ.
Предварительно открыто через запрос
 
Zm_Tabl_TxtPovidoml.Open "SELECT Rubrika.Rubrika, Rubrika.Kod, T01.k, T01.DataPoch, T01.DataKin, T01.TimePoch, T01.TimeKin, T01.OkremaShema, T01.TxtPovid, T01.Zatrimka, T01.foto FROM T01 INNER JOIN Rubrika ON T01.Rubrika = Rubrika.id WHERE (((T01.DataPoch)<=Date()) AND ((T01.DataKin)>=Date()) AND ((T01.TimePoch) Is Null) AND ((T01.TimeKin) Is Null)) OR (((T01.DataPoch) Is Null) AND ((T01.DataKin) Is Null) AND ((T01.TimePoch)<=Time()) AND ((T01.TimeKin)>=Time())) OR (((T01.DataPoch)<=Date()) AND ((T01.DataKin)>=Date()) AND ((T01.TimePoch)<=Time()) AND ((T01.TimeKin)>=Time())) OR (((T01.DataPoch) Is Null) AND ((T01.DataKin) Is Null) AND ((T01.TimePoch) Is Null) AND ((T01.TimeKin) Is Null)) ORDER BY Rubrika.Kod, T01.k;", Zm_Osn_BD

Базу так открываю
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub PVidkritiBD()
 If Zm_BD_StatusVidkritta = False Then
  Zm_BD_StatusVidkritta = True
  Set Zm_Osn_BD = New ADODB.Connection
  Zm_Osn_BD.ConnectionString = "DBQ=BD.mdb;UID=admin;PWD=adgjmptw28234;DRIVER={Microsoft Access Driver (*.mdb)};DefaultDir=" + OsnSysDisk + "\Studio\BD;"
  Zm_Osn_BD.Open
 End If
End Sub


с уважением Андрей
...
Рейтинг: 0 / 0
09.11.2010, 13:29
| Ответить | Цитировать | Написать  
1 сообщений из 1, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отобразить на Picture1 значение из базы данных mdb
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]