Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.12.2009, 18:58   #1
velikijmerlin
Пользователь
 
Аватар для velikijmerlin
 
Регистрация: 14.08.2009
Сообщений: 10
Вопрос поиск в Access

Доброго времени суток!!!

у меня возник вопрос, как можно оформить поиск по базе Акеса?

на форме у меня есть 4 эдита, в которых надо вписать то что ищем, и есть мемо, куда можно вывести то что нашли...

но вот как оформить сам код запроса, я не в курсе..(((

З.Ы если не трудно, объясните более подробно...
velikijmerlin вне форума Ответить с цитированием
Старый 05.12.2009, 21:36   #2
SlavaSH
Форумчанин
 
Регистрация: 12.08.2008
Сообщений: 174
По умолчанию

Элементарно. Если 4 эдита - это 4 разных поля таблицы, то делаешь такой запрос в ADOQuery:
Код:
select field1, field2, field3, field4 from Table
where (uCase(field1) like :field1) and (uCase(field2) like :field2) and (uCase(field3) like :field3) and (uCase(field4) like :field4)
в событие OnShow для формы ставишь такой код
Код:
 Query.Parameters.ParamValues['field1']:='%%';
 Query.Parameters.ParamValues['field2']:='%%';
 Query.Parameters.ParamValues['field3']:='%%';
 Query.Parameters.ParamValues['field4']:='%%';
 Query.Open;
А в событие на OnChange для эдита ставишь такой код:
Код:
 Query.Close;
 Query.Parameters.ParamValues['field1']:='%'+AnsiUpperCase(Edit1.Text)+'%';
 Query.Open;
для других эдитов аналогично
SlavaSH вне форума Ответить с цитированием
Старый 06.12.2009, 16:48   #3
velikijmerlin
Пользователь
 
Аватар для velikijmerlin
 
Регистрация: 14.08.2009
Сообщений: 10
Вопрос

SlavaSH
скопировал, но то ли я что то не доделал, толи ещё что, но не работает, выдаёт ошибки..(((
если не трудно, посмотри, что я не так делаю.. просто с базами не разу не работал... может что то и упустил...
Вложения
Тип файла: zip search test.zip (741.1 Кб, 14 просмотров)
velikijmerlin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Многоступенчатый поиск в Access Dakath Microsoft Office Access 8 17.02.2009 16:33
Поиск в бд Access... Есть проблемы! mindshaft Microsoft Office Access 1 13.02.2009 09:23
Access + ADO + Delphi = Поиск по базе vicvtor БД в Delphi 35 10.02.2009 11:00
поиск в access plaksa Microsoft Office Access 1 13.12.2008 10:11
Поиск из делфи в Access Dissonance БД в Delphi 5 08.06.2008 22:15