Ошибка ввода. Неверный тип

[Ёжик в тумане]

Доброго времени суток! При выполнении ввода в Edit2 выбивает ошибку. Подскажите как исправить.

procedure TForm2.Edit2Change(Sender: TObject);
begin
   if length(edit2.text) > 0 then Form2.ADOTable2.Filtered := true else
   Form2.ADOTable2.Filtered := false;
   Form2.ADOTable2.Filter := 'Артист=''' + edit2.Text + '''';
   Form2.ADOTable2.Filter := 'Альбом=''' + edit2.Text + '''';
   Form2.ADOTable2.Filter := 'Год выпуска=''' + edit2.Text + '''';
end;

[Serge_Bliznykov]

что за странная логика?
зачем Вы заполняете фильтр три раза подряд?!

Как Вы думаете, если написать:

  a := 1;
  a := 2;
  a := 3;

что будет в переменной a ?

так вот, в вашем случае строчка в фильтре будет толко одна, с "Год выпуска"
а ошибку фильтр выдаёт, т.к. либо тип поля"Год выпуска" не совпадает (вы его приравнимаете строковой константе, а он, например, числовой.
Кроме того, не помню, глючит ли ADO с именами полей, которые содержат пробел, вполне допускаю, что глючит. Если это так, либо переименуйте поле в таблице, либо используйте запрос, в котором полю назначается алиас (псевдоним).

p.s. Вы бы лучше рассказали, ЧТО именно Вы пытаетесь написать, возможно, Вам бы подсказали, как это лучше сделать..

[Ёжик в тумане]

Сообщение от Serge_Bliznykov

p.s. Вы бы лучше рассказали, ЧТО именно Вы пытаетесь написать, возможно, Вам бы подсказали, как это лучше сделать..

Я пытаюсь сделать поиск по DBGrid1. Используется база данных (access).
Пытаюсь сделать поиск с помощью ADOTable1. Как то так...

P.S. Было бы хорошо чтобы Вы дали конкретные примеры...

[Ёжик в тумане]

Решение найдено!

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
ADOTable1.Filter:='(Фамилия LIKE '''+edit1.Text+'%'')';
ADOTable1.Filtered:=true;
end
else
ADOTable1.Filtered:=false;
end;

end.

[Аватар]

Решение найдено!

И что будет, если Filtered уже True?

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ADOTable1.Filtered:=false;
  if edit1.text<>'' then
  begin
    ADOTable1.Filter:='Фамилия LIKE '''+edit1.Text+'%''';
    ADOTable1.Filtered:=true;
  end;
end;

[Ёжик в тумане]

Сообщение от Аватар

И что будет, если Filtered уже True?

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ADOTable1.Filtered:=false;
  if edit1.text<>'' then
  begin
    ADOTable1.Filter:='Фамилия LIKE '''+edit1.Text+'%''';
    ADOTable1.Filtered:=true;
  end;
end;

К Вам вопрос! Как можно модифицировать этот код.. так чтобы поиск был по нескольким полям например: фамилия, имя, отчество, дата рождения?
А не только по полю фамилия.

[Stilet]

ADOTable1.Filter:='Фамилия LIKE '+QuotedStr(edit1.Text+'%')
+' AND Имя LIKE '+QuotedStr(edit2.Text+'%')
+' AND Отчество LIKE '+QuotedStr(edit3.Text+'%')
;

Это для ФИО поиск

[Ёжик в тумане]

Сообщение от Stilet

ADOTable1.Filter:='Фамилия LIKE '+QuotedStr(edit1.Text+'%')
+' AND Имя LIKE '+QuotedStr(edit2.Text+'%')
+' AND Отчество LIKE '+QuotedStr(edit3.Text+'%')
;

Это для ФИО поиск

Только не чего не ищет
Компилируется только.
И выводит пустые значения в полях