Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите новичку(access и vb) / 11 сообщений из 11, страница 1 из 1
19.05.2008, 01:09
    #35319716
trok
trok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
Есть программа и в ней призводиться расчёт, результат выводиться в textbox. По нажатию кнопы должен присходить поиск ближайшего меньшего значения из базы данных(т.е. в textbox 20.53, а из базы должно выбираться 19.6) и вывод записи на форму. Помогите, как организовать поиск, я с базами данных дела не имел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2008, 12:06
    #35320229
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
сюда обязательно загляните -> Microsoft Access
Код: plaintext
SELECT TOP  1  value1 FROM Таблица1 WHERE value1 < Forms!Форма1!Поле1 ORDER BY value1 DESC
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2008, 19:40
    #35321781
trok
trok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
Попробовал сделать вот так:
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:47
    #35321790
ДмиДми
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
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, 21:19
    #35321891
trok
trok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
Попробовал, никакого результата:_(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2008, 22:44
    #35321973
trok
trok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
переделал:
Set RS = DB.OpenRecordset("SELECT TOP 1 * From tabl Where q <=" & Val(Me!Text13))

но, он выдаёт все записи которые меньше, но начиная с первой, а если меняю < на >, то выдаётся одна запись которая которая больше, т.е. работает, но не в ту сторону. Чувствую, ведь осталась одна мелочь, но...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2008, 23:34
    #35322020
ДмиДми
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
trokосталась одна мелочьSic!
ORDER BY
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2008, 23:36
    #35322023
ДмиДми
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
То есть осталась в первом же предложенном варианте :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2008, 23:51
    #35322038
trok
trok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
я понимаю, что именно это и надо, но при попытке прописать это потом, basic ругается, то требует list seporator, то ещё чего-нибудь, как его туда правильно присобачить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2008, 10:46
    #35322496
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
это вариант на 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, 22:40
    #35324647
trok
trok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите новичку(access и vb)
Заработало!!!!!!!!!!!!!!! Всем спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите новичку(access и vb) / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 427ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162275]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 144ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 205ms
total:  427ms
x
x
Закрыть


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