посчитать записи по дате.

[фЁдОр]

приветствую. проблема казалось бы элементарна, но что-то определенно не так. нужно посчитать количество записей в таблице за указанную дату. вот как я это делаю

var
 i: shortint;
begin
 i:=0;
 form1.ADOQuery1.First;
 while not form1.ADOQuery1.Eof do
 begin
  if form1.ADOQuery1.FieldValues['Date']='09.04.2009' then
  begin
   i:=i+1;
   edit3.Text:=IntToStr(i);
  end
  else
   edit3.Text:='0';
  form1.ADOQuery1.Next;
 end;

казалось бы, все как часы должны работать, но... вот как оно работает: бд в аксессе, тип поля Date-Дата/Время, если я в условии указываю 09.04.2009, т.е. текущию дату, то количество записей считается, но стоит указать другу дату, то выводит ноль, хотя в таблице точно есть даты, указанные в условии. пробовал рзличные варианты и тип поля менял, но результата так пока и не добился.

[Dark_Spirit]

а не проще так:

adoQuery.sql.text:=<ваш_запрос_с_нужной_датой>;
adoquery.open
i:=adoquery.recordcount-1;

[Minotavr_x86]

Если хотите пользоваться таким экзотическим способом, то вот правильный код

var
 i: shortint;
begin
 i:=0;
 form1.ADOQuery1.First;
 while not form1.ADOQuery1.Eof do
 begin
  if form1.ADOQuery1.FieldValues['Date']='09.04.2009' then
     i:=i+1;   
  edit3.Text:=IntToStr(i);
  form1.ADOQuery1.Next;
 end;

А так Dark_Spirit прав только "-1" я считаю лишним.

[soleil@mmc]

а не проще ли сделать временный запрос по типу

select count(*)
from table
where trunc(date) = :p0

уж точно быстрее отработает (RecordCount все равно фетчит все данные запроса)

[Антон Ю.Б.]

edit3.Text:=IntToStr(i); всяко лучше ставить после цикла (поверьте, что даже отрисовочка простого TEdit на большой таблице со значительным совпадением дат неплохо загрузит основной поток приложения).

Насчет же остального - совершенно верно сказано про отдельный запрос для такой задачи. В отношении же подхода от перебора данных руками стоит обратить внимание на тип данных проверяемого поля. Возможно правильней было бы что-то типа сравнения с DateOf(form1.ADOQuery1.FieldByName( 'Date').AsDateTime)

[фЁдОр]

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