ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставка результата запроса в текстбокс
6 сообщений из 6, страница 1 из 1
Вставка результата запроса в текстбокс
    #32561954
Omar_K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Omar_K
Участник
Private Sub Text0_BeforeUpdate(Cancel As Integer)
StrSQL = "Select elev from results where elev=1"
Set rs.Source = CurrentProject.OpenRecordSet(StrSQL)

End Sub

как теперь вставить значение рекордсета в конторл Text0
...
Рейтинг: 0 / 0
15.06.2004, 16:01
| Ответить | Цитировать | Написать  
Вставка результата запроса в текстбокс
    #32561965
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
ИМХО - то что вы написали работать не будет :(

А может проще воспользоваться функцией DLookUP, а не мучаться с rs?
...
Рейтинг: 0 / 0
15.06.2004, 16:05
| Ответить | Цитировать | Написать  
Вставка результата запроса в текстбокс
    #32561968
Фотография маяк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
маяк
Участник
Omar_KPrivate Sub Text0_BeforeUpdate(Cancel As Integer)
StrSQL = "Select elev from results where elev=1"
Set rs.Source = CurrentProject.OpenRecordSet(StrSQL)

End Sub

как теперь вставить значение рекордсета в конторл Text0text0.value="ну чего ты хочешь?".

Вообще-то результат выполнения запроса - это рекордсет. А текстбокс - это контейнер для данных типа стринг. Домашнее задание: вставляем событие OnLoad в чекбокс.
...
Рейтинг: 0 / 0
15.06.2004, 16:05
| Ответить | Цитировать | Написать  
Вставка результата запроса в текстбокс
    #32561973
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Dim strSQL as string
strSQL="blablabla"
With CurrentPoject.Execute(strSQL)
Me!Text0=.Fields(0)
End With
...
Рейтинг: 0 / 0
15.06.2004, 16:07
| Ответить | Цитировать | Написать  
Вставка результата запроса в текстбокс
    #32561977
Фотография маяк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
маяк
Участник
Omar_KPrivate Sub Text0_BeforeUpdate(Cancel As Integer)
StrSQL = "Select elev from results where elev=1"
Set rs.Source = CurrentProject.OpenRecordSet(StrSQL)

End Sub

как теперь вставить значение рекордсета в конторл Text0Ах да, ещё мелочь затерялась. Даже если ты напишешь

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Text0_BeforeUpdate(Cancel As Integer)
...
text0.value="чушь"
...
end sub
то у тебя всё равно чушь не возникнет в этом текстбоксе - он же как раз меняется после отработки твоего замечательного события. Или возникнет, но будет глючить. Впрочем, какая разница?..
...
Рейтинг: 0 / 0
15.06.2004, 16:07
| Ответить | Цитировать | Написать  
Вставка результата запроса в текстбокс
    #32561980
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
И никаких мук:-)
...
Рейтинг: 0 / 0
15.06.2004, 16:07
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставка результата запроса в текстбокс
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1611&tid=1673843]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 55ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 193ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


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