Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отобразить на Picture1 значение из базы данных mdb / 1 сообщений из 1, страница 1 из 1
09.11.2010, 13:29
    #36944735
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить на Picture1 значение из базы данных mdb
Программа работала отлично. Добавил в 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Отобразить на Picture1 значение из базы данных mdb / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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