База данных. ADOQuery SQL

[Zohei]

Добрый день)

Есть некая бд..
В столбец дата записываются даты посещения..
Необходимо подсчитать количество посещений в течении года...
Через год счетчик посещений обнуляется и считается заново...

Помогите разобраться в составлении корректных sql запросов..

 ///////////////вычисляю дату первого посещения тупо перебором в масиве... как это реализовать на sql ?

datemin := TStringList.Create;         
  for i:=0 to ADOQuery1.RecordCount-1 do
    begin
      datemin.Add(ADOQuery1.Fields.Fields[1].AsString);   /// записываю все ячейки в массив
      ADOQuery1.Next;
    end;
    min := datemin[0];
    for i := 0 to datemin.Count-1 do
      if (StrToDate(datemin[i]) - StrToDate(min) < 0) then
        min := datemin[i];                ///////вычислил дату первого посещения

//////// проверяю прошел ли год...

    if (Date - StrToDate(min)>=365) then  
      begin
        ADOQuery1.Active := false;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('SELECT Auto, Date, Time');
        ADOQuery1.SQL.Add('FROM TableMain');
        ADOQuery1.SQL.Add('WHERE Date > ''' + ???? + '''') ////??????????  

        ADOQuery1.Active := true;
      end;

  Label4.Caption:=IntToStr(ADOQuery1.RecordCount); //  кол-во посещений

[Stilet]

Как-то так:

Select Count(*)
FROM TableMain
group by YEAR(Date)

Через год счетчик посещений обнуляется и считается заново...

Wow... А зачем? Этого совершенно не нужно делать.

[Zohei]

угу. спасибо.
сделал так:
так нахожу временной интервал:

  
  ADOQuery1.Active := false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text :=
    'SELECT * FROM TableMain WHERE Auto LIKE ''' +
      Edit2FindAuto.Text + ''' AND (Date>=:date1) AND (Date<=:date2)';
  ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, True);
  ADOQuery1.Parameters.ParamByName('date1').Value := StrToDate(date1);
  ADOQuery1.Parameters.ParamByName('date2').Value := StrToDate(date2);

а счетчик так

  while not(ADOQuery1.Eof) do begin
  m:=m+ADOQuery1.fieldbyname('Sum').AsInteger;
  ADOQuery1.Next;        end;
  LabelSumOnYear.Caption:=IntToStr(m)

такой вот вопрос еще...
у меня есть куча вычислений.. для каждого отдельное обращение к adoquery...
вот например:

  ADOQuery1.Active := false;                 /// вычисление общей суммы за день
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT SUM(Sum) FROM TableMain WHERE Date LIKE '''+DateToStr(Date)+'''');
  ADOQuery1.Active := True;
  LabelSum.Caption := ADOQuery1.Fields.Fields[0].AsString;

  ADOQuery1.Active := false;                 /// вычисление кол-ва машин за день
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT Auto FROM TableMain WHERE Date LIKE '''+DateToStr(Date)+'''');
  ADOQuery1.Active := True;
  LabelAutoOnDay.Caption := IntToStr(ADOQuery1.RecordCount);

собственно, как это по нормальному сделать, объеденить в одно обращение к базе?