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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Vladimir!
Обычный пользователь
Обычный пользователь
 
Сообщения: 88
Зарегистрирован: 19.09.2005 (Пн) 21:47
Откуда: Пермь

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

Сообщение Vladimir! » 19.09.2005 (Пн) 22:01

Помогите решить проблему! Необходимо организовать поиск по базе данных (Использую ADODC) по введенным значениям. К примеру, в textbox1 ввожу "И", получаю в DataGride все Фамилии из столбца "Фамилии" БД, начинающиеся на "И" и т.д.. Запрос такого типа:
Adodc1.RecordSource = "SELECT * FROM Телефоны WHERE [Фамилия] _ LIKE '" + Text1.Text + "*'"
Adodc.Refresh
не помогает...

Vladimir!
Обычный пользователь
Обычный пользователь
 
Сообщения: 88
Зарегистрирован: 19.09.2005 (Пн) 21:47
Откуда: Пермь

Сообщение Vladimir! » 19.09.2005 (Пн) 23:49

Прошу прощения за столь наивный, как оказалось, вопрос. Все просто - вместо "*" для неполных значений (как это делается в DAO) нужно писать "%". И все.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 20.09.2005 (Вт) 7:29

Вместо "?" нужно будет указывать "_", тоже учти.
Lasciate ogni speranza, voi ch'entrate.

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 20.09.2005 (Вт) 7:35

Лучше уж пиши так:

Код: Выделить всё
Adodc1.RecordSource = "SELECT * FROM Телефоны WHERE [Фамилия] _ LIKE '" & Replace(Text1.Text, "'", "''") & "%'"
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

CodeName33
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 297
Зарегистрирован: 01.09.2004 (Ср) 13:25
Откуда: SPb

Сообщение CodeName33 » 20.09.2005 (Вт) 10:01

Andrey Fedorov Разьве так Raplace надо делать? Я думал
Код: Выделить всё
Replace(Text1.Text, "'", "\'")
Программисты не глючат - глючат компиляторы...

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 20.09.2005 (Вт) 10:03

Удваивание кавычек лучше, оно более стандартное.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11

    TopList