Поиск по БД - БД в Delphi

TaYgA · 19.09.2010, 13:17

Здравствуйте, мне требуется реализовать в моей базе данных поиск по определённому столбцу. Пишу так:

Код:

if Length(Edit.Text)>0 then
  DataModule1.ADOTable.Filtered:=True
    else DataModule1.ADOTable.Filtered:=False;
  DataModule1.ADOTable.Filter:=ComboBox.Text+'>'''+Edit.Text+'''';

Программа запускается без ошибок, но когда в поле Edit вводишь текст Delphi ругается на строчку:

Код:

  DataModule1.ADOTable.Filter:=ComboBox.Text+'>'''+Edit.Text+'''';

ComboBox - выбор по какому столбцу искать;
Edit - текст поиска;
Надеюсь на вашу помощь!!!

Sparky · 19.09.2010, 13:28

уж сколько раз твердили миру: учите SQL и параметрические запросы

Stilet · 19.09.2010, 14:09

Цитата:

уж сколько раз твердили миру:

... и приводите текст ошибки. (типа дописано)

Grag · 19.09.2010, 14:39

TaYgA, попробуй вот так:

Код:

DataModule1.ADOTable.Filtered:=false;
DataModule1.ADOTable.Filter:='['+''''+ComboBox.Text+''''+']='+''''+Edit.Text+'''';
DataModule1.ADOTable.Filtered:=true;

И вообще, читай какие события наступают при установке и снятии ADOTable.Filtered... И как правильно работать с этими свойствами...

TaYgA · 19.09.2010, 17:30

Grag, спасибо! Работает...
Литературу по базам данных в Delphi читаю, но до какие события наступают при установке и снятии ADOTable.Filtered и до SQL ещё не дошёл, а проект нужно закончить в кратчайшие сроки... Учту все ваши замечания! Ещё раз спасибо за помощь!!!

19.09.2010, 13:17	#1
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	Поиск по БД Здравствуйте, мне требуется реализовать в моей базе данных поиск по определённому столбцу. Пишу так: Код: `if Length(Edit.Text)>0 then DataModule1.ADOTable.Filtered:=True else DataModule1.ADOTable.Filtered:=False; DataModule1.ADOTable.Filter:=ComboBox.Text+'>'''+Edit.Text+'''';` Программа запускается без ошибок, но когда в поле Edit вводишь текст Delphi ругается на строчку: Код: `DataModule1.ADOTable.Filter:=ComboBox.Text+'>'''+Edit.Text+'''';` ComboBox - выбор по какому столбцу искать; Edit - текст поиска; Надеюсь на вашу помощь!!!

19.09.2010, 13:28	#2
Sparky Участник клуба Регистрация: 15.05.2009 Сообщений: 1,222	уж сколько раз твердили миру: учите SQL и параметрические запросы Единственное, что ограничивает полет мысли программиста-компилятор

19.09.2010, 14:39	#4
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	TaYgA, попробуй вот так: Код: `DataModule1.ADOTable.Filtered:=false; DataModule1.ADOTable.Filter:='['+''''+ComboBox.Text+''''+']='+''''+Edit.Text+''''; DataModule1.ADOTable.Filtered:=true;` И вообще, читай какие события наступают при установке и снятии ADOTable.Filtered... И как правильно работать с этими свойствами... Перемешивай дело с бездельем и не сойдешь с ума... Последний раз редактировалось Grag; 19.09.2010 в 14:42.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск в БД	Lomka	БД в Delphi	1	24.11.2009 23:18
Поиск БД	Михаил Юрьевич	БД в Delphi	5	17.08.2009 15:33
поиск - ?	Evgenii	БД в Delphi	11	22.07.2009 19:41
Поиск В бД	Старик_Романыч	БД в Delphi	5	29.04.2008 21:12
Поиск	Volkogriz	Общие вопросы Delphi	5	22.04.2008 10:59

19.09.2010, 17:30	#5
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	Grag, спасибо! Работает... Литературу по базам данных в Delphi читаю, но до какие события наступают при установке и снятии ADOTable.Filtered и до SQL ещё не дошёл, а проект нужно закончить в кратчайшие сроки... Учту все ваши замечания! Ещё раз спасибо за помощь!!!