ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите новичку(access и vb)
11 сообщений из 11, страница 1 из 1
помогите новичку(access и vb)
    #35319716
trok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trok
Гость
Есть программа и в ней призводиться расчёт, результат выводиться в textbox. По нажатию кнопы должен присходить поиск ближайшего меньшего значения из базы данных(т.е. в textbox 20.53, а из базы должно выбираться 19.6) и вывод записи на форму. Помогите, как организовать поиск, я с базами данных дела не имел.
...
Рейтинг: 0 / 0
19.05.2008, 01:09
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35320229
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
сюда обязательно загляните -> Microsoft Access
Код: plaintext
SELECT TOP  1  value1 FROM Таблица1 WHERE value1 < Forms!Форма1!Поле1 ORDER BY value1 DESC
...
Рейтинг: 0 / 0
19.05.2008, 12:06
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35321781
trok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trok
Гость
Попробовал сделать вот так:
Option Explicit
Dim DB As dao.Database
Dim RS As dao.Recordset

Private Sub Command1_Click()
Set DB = OpenDatabase(App.Path & "\db2.mdb")
Set RS = DB.OpenRecordset("SELECT TOP 1 tabl.q From tabl Where (((tabl.q) < Forms!form2!text13))_ ORDER BY tabl.q DESC;")
Set Data1.Recordset = RS
End Sub

Но вываливается ошибка: Too few parametrs. Excpected 1. Какой ещё параметр ему может потребоватся?
...
Рейтинг: 0 / 0
19.05.2008, 19:40
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35321790
Фотография ДмиДми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДмиДми
Участник
trokSet RS = DB.OpenRecordset("SELECT TOP 1 tabl.q From tabl Where (((tabl.q) < Forms!form2!text13))_ ORDER BY tabl.q DESC;")Не вникая: что-то подозрительное с синтаксисом.

Может быть, вместо
Код: plaintext
< Forms!form2!text13))_ ORDER BY
должно быть
Код: plaintext
1.
< Forms!form2!text13))" _
& " ORDER BY

?
...
Рейтинг: 0 / 0
19.05.2008, 19:47
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35321891
trok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trok
Гость
Попробовал, никакого результата:_(
...
Рейтинг: 0 / 0
19.05.2008, 21:19
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35321973
trok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trok
Гость
переделал:
Set RS = DB.OpenRecordset("SELECT TOP 1 * From tabl Where q <=" & Val(Me!Text13))

но, он выдаёт все записи которые меньше, но начиная с первой, а если меняю < на >, то выдаётся одна запись которая которая больше, т.е. работает, но не в ту сторону. Чувствую, ведь осталась одна мелочь, но...
...
Рейтинг: 0 / 0
19.05.2008, 22:44
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35322020
Фотография ДмиДми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДмиДми
Участник
trokосталась одна мелочьSic!
ORDER BY
...
Рейтинг: 0 / 0
19.05.2008, 23:34
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35322023
Фотография ДмиДми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДмиДми
Участник
То есть осталась в первом же предложенном варианте :))
...
Рейтинг: 0 / 0
19.05.2008, 23:36
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35322038
trok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trok
Гость
я понимаю, что именно это и надо, но при попытке прописать это потом, basic ругается, то требует list seporator, то ещё чего-нибудь, как его туда правильно присобачить?
...
Рейтинг: 0 / 0
19.05.2008, 23:51
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35322496
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
это вариант на VB6, без обработки ошибок т.е. (если записей не оказалось)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
sSQL = "SELECT TOP 1 q FROM tabl WHERE q < " & Me.Text13 & " ORDER BY q DESC"

Dim file_mdb As String:         file_mdb = App.Path & "\db2.mdb"
Dim conn As ADODB.Connection:   Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open file_mdb

Me.Text2 = conn.Execute(sSQL).Fields( 0 )

conn.Close:   Set conn = Nothing
...
Рейтинг: 0 / 0
20.05.2008, 10:46
| Ответить | Цитировать | Написать  
помогите новичку(access и vb)
    #35324647
trok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
trok
Гость
Заработало!!!!!!!!!!!!!!! Всем спасибо
...
Рейтинг: 0 / 0
20.05.2008, 22:40
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите новичку(access и vb)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35321973&tid=2162275]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 136ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 236ms
total:  483ms
созд. / загр.: 483ms
x
x
Закрыть


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