Фильтрация данных

[Savin]

Здравствуйте !
Подскажите как сделать фильтрацию с помощью свойства "Filter" ADOTable, по полям: "Kod" - формат integer, "data" - формат date.
По полю "Data" нужно фильтровать только по году, без учета дней и месяцев. Год задается с помощью "ComboBox" в формате integer.
Я использовал строки для фильтра:

   Form1.ADOTable2.Filtered:=False;
   Form1.ADOTable2.Filter:='(kod = ''' + IntToStr(kodfam) + ''') and (' + copy(DateToStr(Form1.ADOTable2priem.Value),7,4) +' = ' + Form1.ComboBox2.Text + ')';
   Form1.ADOTable2.Filtered:=True;

Программа выдает сообщение о не соответствии данных или не правильном формате данных.

[Stilet]

DateToStr

Она не дает правильное преобразование. Пользуй FormatDateTime где укажешь нужный формат даты в твоей базе

Вообще ты совсем неверно запрос поставил тебе в фильтр нужно что-то типа
and(YEAR(Date)='+ComboBox1.Text+')' ;

[vovk]

and(YEAR(Date)='+ComboBox1.Text+')' ;

так в фильтре по моему нельзя, там только логические операции, сравнение, и арифметические можно.

так

and (' + copy(DateToStr(Form1.ADOTable2priem .Value),7,4) +' = ' + Form1.ComboBox2.Text + ')';

смысла нет
Значение текущей строки при фильтрации можно только в onFilterrecord использовать,
а тут какоето извращение типа этого подойдёт

' priem >= 01.01.'+Form1.ComboBox2.Text +' and priem < 01.01.'+inttostr(StrToInt(Form1.ComboBox2.Text)+1)

может проще можно, подумать надо. Это на счёт даты.

На счёт числового поля, кавычки это лишнее надо просто

'(kod =' + IntToStr(kodfam)+')'

,

тоесть вместе

Form1.ADOTable2.Filter:='(kod = ' + IntToStr(kodfam) + ') and ( priem >= 01.01.'+Form1.ComboBox2.Text +' and priem < 01.01.'+inttostr(StrToInt(Form1.ComboBox2.Text)+1)+ ')';

[Grag]

В своих программах я делаю так:

fltCity:='([Город]='+''''+CityListBoxInp.Items[Citycnt]+''''+')'; 
fltSpc:='([Область специализации]='+''''+
                                SpcListBoxInp.Items[Spccnt]+''''+')';
fltSlg:='([Уровень сложности]='+''''+
                                            SlgName[Slgcnt]+''''+')';
fltKda:='([Шифр анкеты]='+''''+
                                KdaListBoxInp.Items[Kdacnt]+''''+')';
stFilter:=fltKda+' and '+fltSpc+' and '+fltSlg+
                                                     ' and '+fltCity;
ADOTableDatas.Filtered:=false;
ADOTableDatas.Filter:=stFilter;
ADOTableDatas.Filtered:=true;