 |
|
|
 
|
|
поиск данных из Edit 
| INeo |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 18.3.2011 Репутация: нет Всего: нет |
Всем привет. Помогите разобраться с поиском значений которые будут вводится в edit. Нужно по средствам запроса брать значения из таблицы, которые будут вводится в edit. И по ходу дела с фильтрацией помогите. Как это реализовать в компоненте adotable знаю, а вот с компонентом adoquery сложновато дается. Ниже предоставляю само приложение в котором все это хочу реализовать. Пжл, помогите.
Присоединённый файл ( Кол-во скачиваний: 6 ) 
TrenirovochnayaDB.zip 437,83 Kb |
|||
|
||||
Дата 22.3.2011, 12:02 (
Загрузка ...
| superVad |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 735 Регистрация: 6.4.2006 Где: Черкассы, Украина Репутация: 3 Всего: 15 |
Попробуй еще раз сформулировать.
|
|||
|
||||
| Данкинг |
|
||||||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Сам понял, что написал?
Делай запрос с условием "where...".
Я, кажется, догадался: надо выбирать из таблицы строки, где значение какого-то поля равно значению Edit? -------------------- There's nothing left but silent epitaphs. |
||||||
|
|||||||
| INeo |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 18.3.2011 Репутация: нет Всего: нет |
=) я понимаю вам смешно =) Я просто в панике щас. В общем нужно реализовать такое дело. Пользователь будет набирать в edit например, инвентарный номер компа, далее жмет по кнопке найти и комп с указанным номером должен отобразится
Добавлено через 2 минуты и 5 секунд
Вот то, что я имею ввиду =) |
|||
|
||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Ну, используй locate в простейшем случае.
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| INeo |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 18.3.2011 Репутация: нет Всего: нет |
Хотелось бы узнать как сделать с запросом Добавлено через 2 минуты и 26 секунд Я пробывал так procedure TfMain.Button1Click(Sender: TObject); begin fDM.QMainComp.Active := false; fDM.QMainComp.SQL.Clear; fDM.QMainComp.SQL.Add('SELECT *'); fDM.QMainComp.SQL.Add('FROM MainComp'); fDM.QMainComp.SQL.Add('WHERE InvNum LIKE'''+'%'+Edit1.text+'%'''); fDM.QMainComp.Active := true Жмешь найти и не чего не происходит. Даже ошибку не выдает |
|||
|
||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
А если * вместо % ? -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| INeo |
|
||||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 18.3.2011 Репутация: нет Всего: нет |
пробывал *, но тоже безрезультатно. еще вот так попробывал procedure TfMain.Button1Click(Sender: TObject); begin with fdm.QMainComp do begin close; sql.Clear; sql.Add('SELECT * FROM MainComp WHERE InvNum=:pInvNum'); Parameters.ParamByName('pInvNum').Value := Edit1.Text; open; end; тот же эффект что и в первый раз. Жмешь НАйти и не чего, 0 внимания. |
||||
|
|||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Во-первых, попробуй выполнить запрос в самом Access'е. Во-вторых, попробуй trim(Edit1.Text) взять.
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Antimol |
|
|||
 Шустрый Профиль Группа: Участник Сообщений: 118 Регистрация: 28.7.2007 Где: Украина, Киев Репутация: 4 Всего: 4 |
может DBGrid не связан с fdm.QMainComp
 Так и есть у тебя связь: DBGrid1 -> fDM.DSQMainComp -> TMainComp при изменении данных в Edit1 выполняется запрос в QMainComp просто измени источник данных в DBGrid1 на DSQMainComp И код можно проще написать на событие onChange для Edit1
Это сообщение отредактировал(а) Antimol - 22.3.2011, 18:33 --------------------
Лучшее спасибо это "+" к репутации. Мой блог: ИНФОРМАТИЗАЦИЯ, и mirsovetov.net. Написание программ, исправление ошибок, статьи.... |
|||
|
||||
| INeo |
|
||||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 18.3.2011 Репутация: нет Всего: нет |
Antimol, огромнейшее тебе СПАСИБО!!! Все работает отлично!!! Ура!!!Конечно Всем кто отвечал спасибо! Как хорошо что есть такие профессионалы и хорошие люди как Antimol! Все разжевал и четко объяснил, профессионально! Еще раз спасибо!!! Очень благодарен! =) |
||||
|
|||||
Дата 22.3.2011, 20:00 (| Antimol |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 118 Регистрация: 28.7.2007 Где: Украина, Киев Репутация: 4 Всего: 4 |
Пожалуйста. Старался
 --------------------
Лучшее спасибо это "+" к репутации. Мой блог: ИНФОРМАТИЗАЦИЯ, и mirsovetov.net. Написание программ, исправление ошибок, статьи.... |
|||
|
||||
|
|
| Правила форума "Delphi: Базы данных и репортинг" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Обязательно указание: 1. Базы данных (Paradox, Oracle и т.п.) 2. Способа доступа (ADO, BDE и т.д.)
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема » |
[ Время генерации скрипта: 0.0554 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |