VBNet - Форум - Поиск по неполным данным

Вопрос: Поиск по неполным данным Добавлено: 09.09.02 22:54

Автор вопроса: Mister U | Web-сайт: stihi.h12.ru | ICQ: 809526

Господа, вопрос!

Есть база MDB, управление через элемент data. И есть форма поиска. На ней расположены:

text - текстовое поле для ввода искомой информации

Command - подача запроса

ListBox - результат

Как сделать так, чтобы по неполным введенным данным в список ListBox добавлялись все найденные похожие записи?

А при клике по нужной записи в главном окне программы DATA выбирал выбранную в ListBox запись?

Иными словами, я прошу подсказать мне, как осуществить поиск аналогичный поиску в программе сайта VBNet - VBNet Forum

Заранее благодарен!

Ответить

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

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

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #1

Добавлено: 09.09.02 23:19

Просто когда ищешь данные по базе, в Строку писка вводи LIKE

To есть типа:

Select * from Employees

where name Like (%aba ili (Jo

Знак % дает любой симбол после рядом с указанными.

Ответить

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

Mister U

ICQ: 809526

Вопросов: 49
Ответов: 63

Web-сайт: stihi.h12.ru
Профиль | | #2

Добавлено: 10.09.02 07:55

А если в базе несколько похожих записей, как добавить все найденные в ListBox?

И при выроре нужной записи в ListBox'e элемент Data на основной форме должен переключать именно на выбранную запись

Ответить

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

Satrapp

ICQ: 75556561

Вопросов: 8
Ответов: 80

Профиль | | #3

Добавлено: 10.09.02 09:48

      sKeyWord = InputBox("Ключевое слово:", "Поиск по ключевому слову")
   If sKeyWord = "" Then Exit Sub
sSQL = "SELECT BookNo,Title FROM Books WHERE Title LIKE '%" & _
            sKeyWord & "%' ORDER BY Books.Title"
   Set rsMy = cnMy.Execute(sSQL) ' cnMy - adodb.connection
   If rsMy.EOF Then
      MsgBox "По данному запросу ничего не найдено!", vbExclamation, "Внимание!"   :    Exit Sub

End If

rsMy.MoveFirst
   Do Until rsMy.EOF
      lstResults.AddItem rsMy("Title")
      rsMy.MoveNext
   Loop
   If Not lstResults.ListCount = 0 Then lstResults.ListIndex = 0

А выбор соответствующей записи делаешь уже в lstResult_Click()

Что-нить типа (не уверен, надо проверить...)

data1.Recordset.AbsolutPosition = lstResults.ListIndex

Если чё не так - пиши...

Ответить

Страница: 1 |