Программирование
Веб программирование

Visual Basic базы данных. Поиск в записях

 
 

Т.к. базы нужны в основном для фирм (туда имена, адреса... вносят, что не видел на рынках ими торгуют?), то когда накапливается очень много имен, то поиск может занять несколько часов, и для этого иногда программеры делают кнопочку поиск, вот и мы щас такую сделаем.
Представьте себе, что тебе нужно найти конкретное имя автора из тысяч других... WOW!!! :-)) Представили? Ну, так вот листать - вроде совсем не интересно... Нужно воспользоваться одним из способов нахождения: FindFirst, FindLast, FindNext или FindPrevious. В этой таблице представлены их значения:

Метод Пояснение
FindFirst Ищет первую запись в БД
FindLast Ищет последнюю запись в БД
FindNext Ищет каждую следующую запись в БД
FindPrevious Ищет предыдущую запись в БД
Private Sub cmdFind_Click() 
'у пользователя запрашивается имя а потом происходит 
'поиск его в БД 
Data1.Recordset.FindFirst "Author = '" _ 
& Trim(InputBox("Введите имя ")) & "'" 
'если запись не найдена появляется следующая надпись: 
If Data1.Recordset.NoMatch Then MsgBox "Имя не найдено" 
End Sub

Есть вопросы? Спроси на нашем форуме!!
евгений [15.10.2011 17:31]

как сделать поиск по нескольким полям?

Искандар [22.12.2011 10:58]

У меня В базе на первый ряд стоит "№" (1,2,3,4...50) Как сделать чтобы программа нашел на пример 27ю? очень прошу помочь. За ранее СПС!

алексей [22.12.2011 16:56]

набиши вот так
Data1.Recordset.FindFirst "№ = " _
& (InputBox("Введите № ")
или так
Data1.Recordset.FindFirst "№ = " & 27
вот так нельзя
Data1.Recordset.FindFirst "№ = '" & 27 & "'"
Потому что поле числовое

Искандар [23.12.2011 10:54]

Большое спасибо Алексей попробую

алексей [23.12.2011 11:09]

да не за что
Искандар ну что получилось ?

Искандар [27.12.2011 09:28]

Извините Алексей у меня не получилось можно ваш email адрес. Я вам отправлю может что та я нето сделаю

алексей [27.12.2011 18:19]

не лучше по скайпу alex76sh1
если скайпа нет вот e-mail alex13sh@aport.ru

алексей [27.12.2011 18:19]

но лучше по скайпу

Искандар [28.12.2011 11:15]

Алексей спасибо!

алексей [28.12.2011 13:58]

Искандар , ну чё получилось??

алексей [28.12.2011 14:00]

Искандар, так шо за ошибка была???

Искандар [28.12.2011 14:03]

В место Data1.Recordset.Filter = "[Номер] ' " & Text1.Text & "'"
Я Data1.Recordset.Filter = "[Номер] ' " & Text1.Text & " ' "
Розница "'" и " ' "

алексей [28.12.2011 14:07]

извени что сразу не помог. я просто редко почту проверяю лучше бы в скайп написал

алексей [28.12.2011 14:09]

ты же говорил :
У меня В базе на первый ряд стоит "№" (1,2,3,4...50)
числа без ковычек а денежный я не знаю

Искандар [28.12.2011 14:19]

Да все ок. Просто я лишние пробели поставил. Да потом я изменил базу. Посмотрите на сайте "Статьи на модерации" там я положил свою базу но уже рабочую. Может кому то понадобится

Давид [18.02.2012 07:34]

Здрасте я уэиз еревана может и мне памагите решать вот такой же вапрос я не магу зделать поиск в базе данных как написать праграму обясните пожалуйста

Искандар [20.02.2012 16:59]

Давид напиши I.mails@mail.ru если могу помогу

BBB44 [05.03.2012 21:09]

У меня не получается.
Объясните - Зачем менять имя кнопки на cmdFind ?

алексей [05.03.2012 21:25]

BBB44, пофиг какие имена кнопки главное чтоб тебе легче было запомнить кнопки

BBB44 [07.03.2012 22:33]

У меня не работает код "Author = '"
Работает код "[Поле1]like '"

алексей [07.03.2012 22:43]

а у тебя в базе данных какие поля
если поле1 и поле2 то автор не как не получится

BBB44 [08.03.2012 23:31]

Если не работает - в учебнике база данных с именем поля "Поле1",
а программа для базы данных с именем поля "Author"

phantom667710 [15.08.2014 09:10]

Здравствуйте,
Нужна помощь я создал программу словарь на 4 языках хочу подключить словарь т.е. БД но никак не получается кто сможет помочь. если кто сможет дайте мыло я вам отправлю исходник.
Админ поставьте сюда в комментарии возможность и скрины отправлять

pjp07190 [18.08.2014 10:37]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command2_Click()
Set cn = New ADODB.Connection
‘"c:Progdb2.mdb" - путь к файлу базы данных
‘Открытие базы данных
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" & "c:Progdb2.mdb"
……..
cn.Close
End sub

phantom667710 [25.08.2014 14:54]

Спасибо я уже соединил с помощью DATA функции он работает а вот с поиском не получается вот ОПИСАНИЕ: Программа служит для запоминания иностранных слов. Принцип работы: при запуске есть 4 Textbox (Uzbek, russia, english, deutsch) они подключены к БД на Аксесе. Макет БД в папке DB. Когда пользователь вводит в поле Russia должно выходить все 4 значения запроса т.е. на англ. на нем. и на узбекском языках. В какое поле не вводил бы запрос с базы должен выходить перевод на 3 остальных языках сразу, чтоб пользователь сразу знал 4 языка.
В кратце ВСЕ. Программа очень простая, но для новичка и это не по силу пожалуйста помогите уже месяц не могу соединить буду очень благодарен



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.