Delphi sql avg

[asees]

Приветствую! В бд access лежит таблица с полем mark, по которому нужно посчитать среднее значение
Вот код:
ADOQuery1.Active := false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select avg(Mark) as sr from Certificate');
ADOQuery1.Active := true;
Хотелось бы записать данное среднее значение в edit , не мог бы кто-нибудь подсказать, как? Ошибок вроде не выдает, но есть сомнения, что среднее значение вообще не считает...
Заранее спасибо, сильно не пинайте

[Sciv]

Edit1.Text := ADOQuery1.FieldByName('sr').AsString

[asees]

Не работает... Нет у adoquery свойства fieldbyname

[Аватар]

Есть

[asees]

Если присваивать значение из sr в переменную или edit ,то там Почему то нет fieldbyname

[asees]

Вот полный код:
With Form1 do
Begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ('Select avg (Mark) as sr from Certificate');
Edit1.Text := ADOQuery1.FieldByName ('sr').AsString;
ADOQuery1.ExecSQL;
End;

Где то косяк видимо

[Sciv]

Полным кодом это трудно назвать. Конкретный пример:

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

With Form1 do

Откуда происходит обращение к Form1? Если из её собственной функции - то тут этот with Form1 лишний. Если из другой формы - проверьте, доступна ли Form1? Подключена ли к этой форме?

А вообще - программа хотя бы запускается? Если нет - что говорит компилятор?

Правильно будет работать, если вместо ExecSQL (который вообще-то применяется для запуска команд - INSERT, DELETE, UPDATE - но никак не для селектов) использовать Open. И вызывать его нужно раньше, чем обращаетесь к полю:

With Form1 do
Begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add ('Select avg (Mark) as sr from Certificate');
  ADOQuery1.Open;
  Edit1.Text := ADOQuery1.FieldByName ('sr').AsString;
End;

[asees]

Программа запускается, выдает ошибку is not a valid integer value , учел ваши поправки на счет open, но итог тот же. При выборе в adoquery1 fieldbyname его просто нет в открывающейся подсказке.

[Serge_Bliznykov]

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

Программа запускается, выдает ошибку is not a valid integer value

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

Edit1.Text := ADOQuery1.FieldByName ('sr').AsString;

и уже откройте для себя отладчик (поставьте точку останова, посмотрите, что там происходит, пройдитесь пошагово, найдите проблемную строчку с StrToInt() и т.д.).

[kropotkina-alice]

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

При выборе в adoquery1 fieldbyname его просто нет в открывающейся подсказке.

И не будет.
Для этого случая используйте вот это:

Edit1.Text:=ADOQuery1.Fields[0].AsString;