Максимум в столбце DBGrid ...?

[DenProx]

Всем привет. не подскажите как найти максимальное значение в столбце,... суть вообще в том, что мне нужен Счетчик (ручной), чтобы при добавлении записи прибавлялось значение +1 от максимума...

[rockedit]

Здравствуйте. Самый простой способ использовать SQL запрос

SELECT max(<имя столбца>) AS <имя которое хотите чтоб было>
From <имя таблицы>;

Вот к примеру мой вариант, который ишет элемент с самым большим значением ключевого поля id

 with DMBase.adoquery1 do begin
     Close;
     SQL.Clear;
      SQL.Add('Select max(Accessories.id) ' +
             'FROM Accessories;');
     Open;
    ID := Fields.Fields[0].AsInteger + 1;
    end;

Id - переменная целоги тапа, в которую запишеться максимальное значение из столбца id +1
тока учтите что нужно выполнять проверки, т.к. строк в таблице может не оказаться и тогда будет ошибка при присвоении.

[DenProx]

Вроди бы работает ), не подскажите еще как полсе того как нашел ID+1 добавить запись правлено? А то, как бы я не пробывал все время ошибки.

[rockedit]

Добавление новой записи(тут толькот основные операторы т.е. не весь код)

  with DMBase do begin
   KOmTable.Insert; // добовляем новую запись
      if KomTable.Modified then // если внесены изменения
              KomTable.Post; //сохряняем изменения
      end;

Редактирование

        KomTable.Edit; // раим редактирования
       DMBase.KomTable.Fields.Fields[5].AsString := <новое значение>;
       KomTable.Post;

я думаю вы сообразите что к чему)

[DenProx]

Ну я имел в виду, как объеденить эти примеры в один, чтобы при добавлении в поле где нашли max ID, добавилось ID+1, ну и в остальные существующие поля, остальная инфа...

[rockedit]

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

[DenProx]

Я вроди так и написал ))

чтобы при добавлении записи прибавлялось значение +1 от максимума...

Если не против, я подожду ))

[DenProx]

rockedit почитал про UPDATE , но что-то не нашел ни чего путного...

[rockedit]

Допустим у вас есть таблица Table1(id, Name) вам нужно добавить в нее новую строку, при условии что в роли ключа у вас не автоинкрементное поле.
1) Если вдруг строк в таблице нет, то ваша запись будет первая
Проверяем

if Table1.RecordCount = 0 then
 Begin
   Table1.Insert;
    Table1.Fields.Fields[0].AsInteger := 1;
   ......
   Table1.Post;
 end;

Если же записи уже есть, то исчем максимальную и к ней добовляем 1
тут есть два пути. либо использовать компонент Query и выполнить данное действие с помошью запросов

 with DMBase.adoquery1 do begin
     Close;
     SQL.Clear;
      SQL.Add('Select max(Table1.id) ' +
             'FROM Table1;');
     Open;
    ID := Fields.Fields[0].AsInteger + 1;
     Close;
     SQL.Clear;
     SQL.add(format ( 'INSERT INTO TABLE1  ' +
                    '   ( id, Name ) VALUES (%s,%s) ;',[IntToStr(ID),Name]));
     ExecSQL;

end;

Сдесь ID переменная целого типа
Или же вам нужно в цикле найти максимальный элемент
пример без SQL запроса

max := Table1.Fields.Fields[0].AsInteger;
Table1.First;
 for i:=1 to Table1.RecordCount do
  Begin
     if max < Table1.Fields.Fields[0].AsInteger then
        max := Table1.Fields.Fields[0].AsInteger;
  Table1.Next;
  end;

Table1.Insert;
    Table1.Fields.Fields[0].AsInteger := max + 1;
   ......
   Table1.Post;

Примерно так)

[DenProx]

Огромное спасибо!!! ))) Все работает! ))