Поиск по базе данных Access

  • Автор темы Guest_
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest_

#1
Товарищи программисты, помогите плиз, как сделать поиск в vb6 по базе данных, где критерий поиска задаётся из строки.
Например, по телефонному справочнику. Чтоб я вводил Ива, а он мне выдавал все такие фамилии типа Иванов, Иванченко, Иварян и т.д.

Data1.RecordSource = "SELECT * FROM Телефоны WHERE [Фамилия] _ LIKE 'Ива*'"

или как здесь задавать вместо Ива* из строки ввода
 
B

Barmutik

#2
Систаксис запроса указан правильно. Единственное что за знак "_" ?

При всех остальных выполненных условиях, запрос должен работать ....
 
G

Guest_

#3
Не, "_" это у меня просто не влезло - это как продолжение строчки...
Мне надо, чтоб можно было задавать это Ива* из программы непосредственно, как переменную.
Подскажите плз как это сделать этим методом, или укажите другой :lol:
буду сильно благодарен... :)
 
B

Barmutik

#4
Ну так задfвайте это где-то в Edit-е в программе ... а на момент выполнения запроса просто подставляйте в нужное место и добавляйте знак '*'
 
X

Xeonic

#5
Извините, а можно поподробнее ,я в vb новичек....
 
B

Barmutik

#6
Ну у вас есть форма где пользователель вводит требуемые ему параметры поиска. Вы их оттуда вычитываете и на основании их формируете ему строку запроса .. с помощью которую потом получаете данные...
 
X

Xeonic

#7
Извините Barmutik, что к вам в аську ломился, просто был в отчаянье(завтра сдавать уже надо)...
А насчёт кода кое-как допёр(при помощи MSDN), так что привожу его далее(может кому понадобится)


Private Sub Command1_Click()
Dim nam As Variant
Dim x As Variant
x = "SELECT * FROM Телефоны WHERE [Фамилия] LIKE '#$%*'"
nam = Text1.Text
Data1.RecordSource = Replace(x, "#$%", nam)
Data1.Refresh
End Sub

корявенько конечно, но может кому пригодится...
 
B

Barmutik

#8
Можно было написать немного проще:

Код:
....
Data1.RecordSource = "SELECT * FROM Телефоны WHERE [Фамилия] LIKE '" + Text1.Text + "*'"
Data1.Refresh
...
А насчёт Аськи .. я отходил просто .. не было на месте... так что вот только увидел Ваш запрос...
 
N

Nadin

#9
Здраввуйте програММисты!
При разработке приложения возникает Вдруг после вроде обычных манипуляций ошибка
Error accessing file.Network connection may been lost
И почти готовое приложение перестаёт работать!
Полный крах!!! Помогите кто знает! Заранее благодарна! :(
 
N

Nadin

#10
Здраввуйте програММисты!
При разработке приложения возникает Вдруг после вроде обычных манипуляций ошибка
Error accessing file.Network connection may been lost
И почти готовое приложение перестаёт работать!
Полный крах!!! Помогите кто знает! Заранее благодарна! :(
 
B

Barmutik

#11
Ну вполне возможно что локальная сеть сглюканула .. в чём проблема? Переоткрывайте базу и переустанаваливайте соединение ...
 
Статус
Закрыто для дальнейших ответов.