Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / adodc и picture / 9 сообщений из 9, страница 1 из 1
16.01.2007, 13:11
    #34258489
linsa
linsa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
Такая проблема: есть два элемента 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
| Ответить | Цитировать | Написать  
16.01.2007, 13:19
    #34258543
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
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
| Ответить | Цитировать | Написать  
16.01.2007, 13:23
    #34258572
linsa
linsa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
Код: plaintext
If IsNull(Adodc4.Recordset.Fields( 4 ).Value) then

так тоже пробовала, не помогает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2007, 13:29
    #34258603
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
А так?
Код: 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
| Ответить | Цитировать | Написать  
16.01.2007, 13:30
    #34258607
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
Может так?
Код: plaintext
If Adodc4.Recordset.Fields( 4 ) = Null then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2007, 13:36
    #34258637
linsa
linsa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
Так тоже не работает((((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2007, 14:34
    #34258876
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
linsa
Код: plaintext
If IsNull(Adodc4.Recordset.Fields( 4 ).Value) then
так тоже пробовала, не помогает.

что не помогает?
как это выражено?
привидите код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2007, 16:22
    #34259290
linsa
linsa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
Все заработало после проверки на Eof. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2007, 06:34
    #34260331
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
adodc и picture
linsaВсе заработало после проверки на Eof. Спасибо.

linsaЕсли же к записи нет картинки, то вылетает сообщение, что нет текущей записи.
говорит само за себя
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / adodc и picture / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 485ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164686]:
 0ms
get settings:
 11ms
get forum list:
 23ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 168ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 211ms
total:  485ms
x
x
Закрыть


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