Как узнать самое большое число в столбце?

[Dux]

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

[Lesha]

ADOTable.Sort

или на худой конец через AdoQuery c SELECT MAX

[Dux]

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

ADOTable.Sort

или на худой конец через AdoQuery c SELECT MAX

Как может помочь ADOTable.Sort?

AdoQuery c SELECT MAX - тоже не подходит, т.к. в этом случае в DBGrid образится строка с максимальным значением, а мне необходимо выполнить это скрыто, чтобы содержимое DBGrid не изменялось.

[Dux]

Все, разобрался.

Кому интересно:

procedure TForm1.Button10Click(Sender: TObject);
var max_num,i:integer;
begin
max_num:=0;
i:=AdoTable1.RecNo;
AdoTable1.DisableControls;
AdoTable1.First;
while not(AdoTable1.Eof) do
  begin
    if AdoTable1.FieldByName('File').AsInteger>max_num then
    max_num:= AdoTable1.FieldByName('File').AsInteger;

    AdoTable1.Next;
  end;
AdoTable1.RecNo:=i;
AdoTable1.EnableControls;
showmessage(FloatToStr(max_num));
end;

[Lesha]

DBGrid образится строка с максимальным значением,

а с чего вы взяли что DBGrid ваще нужен? Берите значение поля напрямую через

ADOQuery.FieldByName('Field1').value

ADOQuery будет сам по себе, а AdoTable/Query из которых DbGrid отбражает данные само по себе.

[Stilet]

AdoQuery c SELECT MAX - тоже не подходит, т.к. в этом случае в DBGrid

Это если ты будешь использовать тот же компонент который используешь и для вывода, но можно ведь в процедуре создать свой ADOQuery, и поматросив его, освободить

P.S. Кстати стоит в базе вьюшку сделать для этой задачи.

[Dux]

Спасибо, разобрался!

[Gulik]

Не лучший пример для обучения, но работает на 100%
Поле MaxNum можно просто удалить из DBGrid

SELECT
 T.ID,
 T.TicketNum,
 T.ID_PersonalAccount,
 T.ChargeMonth,
 T.WorkMonth,
 T.PayDate,
 T.PackNum,
 T.AssertDate,
 T.ID_Employee,
 T.ID_PayPoint,
 T.FromMonth,
 T.ToMonth,
 (SELECT Max(TicketNum) FROM Ticket) as MaxNum
FROM
 Ticket T
ORDER BY
 T.TicketNum