вопрос по поиску Опции

[1147]

С помощью этого кода осуществляется поиск в БД по фамилии. Проблем здесь не возникает.

begin
dbgrid3.Visible:=true;

if Length(Edit2.text)>0 then
form4.xd.Filtered:=true
else
form4.xd.Filtered:=false;
form4.xd.Filter:='Фамилия='''+Edit2.text+'''';
end;

Кроме этого поиск должен еще осуществляться по дате и номерам. Вроде бы код должен быть аналогичным для этих параметров, но каждый раз возникает какая-то ошибка с несовпадениями типов и тд.
Подскажите пожалуйста в чем же здесь причина??

[volvo]

Строки с двух сторон отделены апострофами, а Дата - вот так у меня только что отработало:

  ADOTable1.Filter := 'DateOfBirth=#' + Edit1.Text + '#'; // Edit1.Text содержало 13/09/1984

Число передается без апострофов:

  ADOTable1.Filter := 'index=' + Edit1.Text;

[1147]

а решетка какую функцию выполняет? Имеет ли значение какими символами разделены день, месяц и год?
Дело в том что теперь аргументы имеют неверный тип ....

Сообщение отредактировано: 1147 - 19.06.2009 1:35

[volvo]

а решетка какую функцию выполняет?

Решеткой с двух сторон выделяется формат Даты (точно так же, как и апострофами - строка).

Имеет ли значение какими символами разделены день, месяц и год?

Вообще-то разделяться они должны тем символом, который хранится в переменной DateSeparator, иначе будет ошибка...

[1147]

В случае если у меня не только цифры, но еще и буквы. Например DS-183, GH356 (разделенные запятой). Тут есть какие-то особенности применения апострофов?
Тоесть в ячейках данного столбца все время находятся смешанные данные, а не только конкретно буквы или цифры. Как вообще в этом случае поступить? Можно ли подобрать какойто подходящий критерий фильтрации или стоит воспользоваться другим методом поиска?
И где можно найти DateSeparator?

[volvo]

Тут есть какие-то особенности применения апострофов?

Никаких особенностей... У тебя либо строка (поля в БД типов Text/Memo) - тогда та строка, которую ты ищешь, выделяется апострофами, либо число (поля типов Number/AutoNumber), тогда не выделяется ничем. Либо дата (поле типа DateTime) - тогда с двух сторон - решетки...

Но... Я кажется понял, что ты имеешь в виду. Вот то, что ты делаешь - оно ищет полное соответствие поля и введенного значения, ты ж делаешь "="... Тебе, наверное, надо искать поля, которые содержат введенные данные вместе с другой информацией, а это уже через LIKE (при поиске по текстовому полю):

 ADOTable1.Filter:='InfoField LIKE *' +Form1.Edit1.Text+'*';

, если в Эдите будет 'DS', то останутся все поля, содержащие
DS-234
ADS-5
DSeg
и так далее, где в любом месте в тексте присутствует "DS". Я правильно понял, или у тебя что-то другое?

И где можно найти DateSeparator?

Переменная DateSeparator описана в модуле SysUnits...

[Гость]

Спасибо за помощь! Попробовал все это сделать в новом проекте-работает без проблем, а вот в старом никак не хочет... нужно искать ошибку. чтото мешает нормальной работе...

[Гость]

А можно сделать чтобы найденные данные были выделины каким-нибудь цветом? Например в ячейке 7К-1952dsr,85s,59g (85s которую искал пользователь) была выделена зеленым цветом?

[volvo]

Надо рыть в сторону OnDrawCell, наверное, можно, чуть позже попробую, расскажу, что получилось... Посмотри пока в DRKB, там может быть что-то полезное... Ты ж TDBGrid используешь?

[1147]

Да в TDBGrid. Посмотрю..
И все равно в каких то случаях поиск осущесттвляется нормально, а в каких то прерывается и пишет что неверный тип. Не пойму в чем дело . Ну да ладно. Принцип понятен, а с остальным разберусь

Сообщение отредактировано: 1147 - 19.06.2009 18:34