VBNet - Форум - Быстрый поиск

Вопрос: Быстрый поиск Добавлено: 31.10.03 13:16

Автор вопроса: Starik | Web-сайт: нет

Привет всем!
Этот форум третий, на двух предыдущих тишина. Думал, что мне помогут быстро, а оказалось, что нет, ждал несколько дней. Решил обратиться сюда. Вот такая у меня проблема: имеется DBCombo и DBList, в настоящее время очень сильно разрослась база данных и встаёт вопрос о быстром поиске данных в DBList. Например, набираешь слово в TextBox и по первым буквам оно высвечивается в DBList.
С текстовыми файлами, с базами данных в XL - понятно как искать, а при работе с Access у меня не получается (работаю впервые с Access ). Когда данные прописываются в коде, всё понятно и работает, а когда грузится из Access-ничего не получается. Кто знает - помогите справится с этой задачей, и в чём будет разница, если буду использовать ComboBox и ListBox.

Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #1	Добавлено: 31.10.03 13:22
	Раньше, ИМХО, похожий код был в разделе "Хитрости" на vbrussian.com. Ответить

Номер ответа: 2 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #2	Добавлено: 31.10.03 13:25
	Вот он: Хочу предложить поиск в DBCombo по первым введенным буквам. Автор: Васильев Виктор Теперь корректно обрабатывает BackSpace и Del, чего раньше, к сожалению, не было. Ну и работает с ADO-DataCombo. Dim n% Select Case KeyCode Case Is >= 48 DataCombo1.SelStart = Len(DataCombo1.Text) - DataCombo1.SelLength + 1 n = DataCombo1.SelStart Adodc1.Recordset.Find "[Фамилия] LIKE '" & DataCombo1.Text & "*'" If Adodc1.Recordset.EOF Then MsgBox "Записи не найдены", vbExclamation + vbOKOnly, "ОШИБКА" ' По желанию Adodc1.Recordset.MoveFirst End If DataCombo1.SelStart = n DataCombo1.SelLength = Len(DataCombo1.Text) - n End Select Ответить

Номер ответа: 3
Автор ответа:

Starik

Вопросов: 24
Ответов: 53

Web-сайт: нет
Профиль | | #3

Добавлено: 31.10.03 16:42

Павел, огромное спасибо, нужно было сразу сюда, а то столько время потерял. Я искал везде, но на vbrussian.com по моему не заходил. (на некоторые узлы не смог зайти)
Попробую организовать поиск в DBCombo, интересно, как работает код. Только у меня там мало записей, около 10-15. Выбрав одну в DBCombo, вся информация сливается в DBList, а ее там 30-100. Вот бы где организовать быстрый поиск. Но сегодня пятница и вечер, пора домой, жаль, что не смогу сейчас попробовать.

Еще раз спасибо тебе. До понедельника.

Ответить

Номер ответа: 4
Автор ответа:

Slay

Вопросов: 27
Ответов: 150

Web-сайт: www.slaysoft.stormway.ru
Профиль | | #4

Добавлено: 31.10.03 17:29

могу намылить тебе свой примерчик (когда-то делал для кого-то из этого форума) как раз то что тебе нужно... (

правда данные не в dblist а в data bound grid 5.0 (из комплекта vb5)

Ответить

Номер ответа: 5
Автор ответа:

Born

ICQ: 178155071

Вопросов: 21
Ответов: 52

Профиль | | #5

Добавлено: 03.11.03 06:21

Slay мне тоже намыль, буду очень признателен

Ответить

Номер ответа: 6
Автор ответа:

Starik

Вопросов: 24
Ответов: 53

Web-сайт: нет
Профиль | | #6

Добавлено: 03.11.03 09:02

Привет, сегодня понедельник.

Slay, буду признателен, если пришлешь пример.

Ответить

Номер ответа: 7
Автор ответа:

Starik

Вопросов: 24
Ответов: 53

Web-сайт: нет
Профиль | | #7

Добавлено: 03.11.03 09:23

Привет, сегодня понедельник.

Slay, буду признателен, если пришлешь пример.

Ответить

Номер ответа: 8
Автор ответа:

Slay

Вопросов: 27
Ответов: 150

Web-сайт: www.slaysoft.stormway.ru
Профиль | | #8

Добавлено: 03.11.03 19:45

хм... а мыло в профиле включить?

ладно...

http://www.slaysoft.narod.ru/sample/dbfind.rar

http://www.slaysoft.narod.ru/sample/foruser.rar

Ответить

Номер ответа: 9 Автор ответа: Starik Вопросов: 24 Ответов: 53	Web-сайт: нет Профиль \| \| #9	Добавлено: 04.11.03 09:19
	Slay, спасибо, все получил. Ответить

Страница: 1 |