VBNet - Форум - Поиск по первой букве?

Вопрос: Поиск по первой букве? Добавлено: 19.05.04 02:26

Автор вопроса: Sania | ICQ: 347442784

Как сделить поиск Data обьекте чтобыне искать по целому слову,а например по первой букве или по двум.

Как я понял метод Data1.Recordset.FindNext ищит по полному совпадению

Например таблица

Fname

Перов

Иванов

К примеру текстовое поле Text1 связано с Data1 и в нем выводятся

эти фамилии,а вполе Text2 вводим искомую фамилию. Если в вполе Text2

написать Иванов то следуещее отработает правельно если код вставить в кнопку поиска

str= "[Fname] = " + Text2.text

Data1.Recordset.FindFirst str

А как сделать поиск по первой букве, знаю что Like делает такое

например если Иванов то можно написать "[и]*" и все впорядке.

НО КАК ЭТО ИСПОЛЬЗОВАТЬ С Data1... долго мучился ничего не получилось.

Может быть есть какой другой оператор?

Нашол пример

Dim MyTable As Recordset

Set MyTable = Data1.Recordset

MyTable.Index = "AU_ID"

MyTable.Seek "=", 5

но он почемуто не фунциклирует ругаеися плохими словами всякими непонятными (Operation is not supported for this type of object)

на строчку MyTable.Index = "AU_ID" ничего не понимаю.

Спасибо всем кто не устал читать мою поэму и всетаки дачитал этого места {чето меня сегодня поперло} я буду блогодарен любой помощи.

Ответить

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

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

ole

Вопросов: 2
Ответов: 16

Профиль | | #1

Добавлено: 19.05.04 10:41

Один из вариантов поиска по любому количеству вводимых символов

Private Sub Text2_Change()
If Len(Text2.Text) <> 0 Then
Do Until Left(Data.Recordset![Искоемое поле], Len(Text2.Text)) = Text2.Text
Data.Recordset.MoveNext
If Data.Recordset.EOF Then

' можно вставлять сообщение что нет таких
Data.Recordset.MoveFirst
Exit Sub
End If
Loop
End If
End Sub
И т.к. Text1 связан с Data, то при нахождении записи ,будет отображаться соответсвующее поле

второй вариант используя запрос

Ответить

Страница: 1 |