powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / adodc и picture
9 сообщений из 9, страница 1 из 1
adodc и picture
    #34258489
linsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такая проблема: есть два элемента Datalist и picture. При переходе по записям datalist, происходит отображение картинки (данные хранятся в 2-х таблицах). Если же к записи нет картинки, то вылетает сообщение, что нет текущей записи. А как это можно проверить? Подскажите, пожалуйста.
quer = "Select * from pict where p3= " & _
DataList1.BoundText
With Adodc4
.RecordSource = quer
.Refresh
End With
With Picture1
.Refresh
If Adodc4.Recordset.Fields(4).Value = " " Then
Else
.Picture = LoadPicture
.Picture = LoadPicture(Adodc4.Recordset.Fields(4).Value)
End If
End With
...
Рейтинг: 0 / 0
adodc и picture
    #34258543
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ye проверять не так
Код: plaintext
If Adodc4.Recordset.Fields( 4 ).Value = " " 

а так
Код: plaintext
If IsNull(Adodc4.Recordset.Fields( 4 ).Value) then


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
adodc и picture
    #34258572
linsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
If IsNull(Adodc4.Recordset.Fields( 4 ).Value) then

так тоже пробовала, не помогает.
...
Рейтинг: 0 / 0
adodc и picture
    #34258603
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так?
Код: plaintext
1.
2.
3.
4.
5.
If Adodc4.Recordset.EOF Then
Else
    .Picture = LoadPicture
    .Picture = LoadPicture(Adodc4.Recordset.Fields( 4 ).Value)
End If

P.S. Форматируйте свой код, а?!
...
Рейтинг: 0 / 0
adodc и picture
    #34258607
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может так?
Код: plaintext
If Adodc4.Recordset.Fields( 4 ) = Null then
...
Рейтинг: 0 / 0
adodc и picture
    #34258637
linsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так тоже не работает((((
...
Рейтинг: 0 / 0
adodc и picture
    #34258876
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
linsa
Код: plaintext
If IsNull(Adodc4.Recordset.Fields( 4 ).Value) then
так тоже пробовала, не помогает.

что не помогает?
как это выражено?
привидите код
...
Рейтинг: 0 / 0
adodc и picture
    #34259290
linsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все заработало после проверки на Eof. Спасибо.
...
Рейтинг: 0 / 0
adodc и picture
    #34260331
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
linsaВсе заработало после проверки на Eof. Спасибо.

linsaЕсли же к записи нет картинки, то вылетает сообщение, что нет текущей записи.
говорит само за себя
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / adodc и picture
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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