Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.12.2010, 11:39
Новичок

Отправить личное сообщение для Цири Посмотреть профиль Найти все сообщения от Цири
 
Регистрация: 14.12.2010
Сообщений: 2

Поиск по символу или названию целиком (VB6)
у меня база данных библиотеки. помогите сделать поиск по слову или неточный поиск
по номеру у меня получилось, а по названию нет.

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Введите название"
Else
bb.datPrimaryRS.Recordset.MoveFirst
bb.datPrimaryRS.Recordset.Find "Инвентарный_номер_книги= " & Text1.Text
Unload Me
End If
End Sub

работающий код по поиску номера книги

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "Введите название"
Else
bb.datPrimaryRS.Recordset.MoveFirst
bb.datPrimaryRS.Recordset.Find "Название=" & Text1.Text
Unload Me
End If
End Sub

неработающий код по поиску названия книги

помогите пожалуйста)
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра