AVG Среднее значение

[nastena_r_v]

Всем здравствуйте. Имеется БД, данные в которую выводятся через дбгрид, компоненты АДО. Название которой берется из эдита. Вопрос такой, как сделать вычисление среднего значения по двум последним столбцам из таблицы?



Если кто хочет помочь разобраться, на 3 форме, есть кнопка "среднее значение", в ней обработчик, но он выводит ошибку, почему на пойму.

в обработчике написала:

DataModule2.AdoQuery1.SQL.Text :=('SELECT AVG(idY) AS SredZnach1 FROM'+ Form1.ComboBox1.Text);

ошибка, или так:

 DataModule2.ADOQuery1.SQL.Add('select avg(idy) from' + Form1.ComboBox1.Items.Strings[Form1.ComboBox1.ItemIndex]) ;

тоже ничего не вычисляет, помогите разобраться в чем причина

[artemavd]

Видимо текст ошибки мы должны сами придумать, да? Ошибка (не знаю какая, а гадать не собираюсь) может возникать хотя бы, например, даже из-за того, что нет пробела между словом From и именем таблицы, которое подставляется в запрос из ComboBox1.
Далее. Самое простое это использовать компоненты Ehlib. Там все это можно сделать в итоговой строке, установив всего лишь одно свойство.

[Yurk@]

в первую очередь нужно "угадать" имена 2х последних столбцов в таблице
напр так:

var
  f1, f2 : string;
begin
  f1:=ADOTable.Fields[ADOTable.FieldsCount-1].FieldName;
  f2:=ADOTable.Fields[ADOTable.FieldsCount-2].FieldName;
...
  DataModule2.AdoQuery1.SQL.Text :='SELECT '+f1+', '+f2+', AVG('+f1+'), AVG('+f2+') FROM '+Edit1.Text;
end;

(мож чуток с запросом переборщил, но принцып такой)

[nastena_r_v]

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

Видимо текст ошибки мы должны сами придумать, да? Ошибка (не знаю какая, а гадать не собираюсь) может возникать хотя бы, например, даже из-за того, что нет пробела между словом From и именем таблицы, которое подставляется в запрос из ComboBox1.
Далее. Самое простое это использовать компоненты Ehlib. Там все это можно сделать в итоговой строке, установив всего лишь одно свойство.

Ошибки при компиляции никакой нет, и угадывать я не прошу. На счет пробела, то он там есть. Спасибо, что откликнулся, хоть и с недовольством.

Сообщение от Yurk@

в первую очередь нужно "угадать" имена 2х последних столбцов в таблице
напр так:

var
  f1, f2 : string;
begin
  f1:=ADOTable.Fields[ADOTable.FieldsCount-1].FieldName;
  f2:=ADOTable.Fields[ADOTable.FieldsCount-2].FieldName;
...
  DataModule2.AdoQuery1.SQL.Text :='SELECT '+f1+', '+f2+', AVG('+f1+'), AVG('+f2+') FROM '+Edit1.Text;
end;

(мож чуток с запросом переборщил, но принцып такой)

В запросе столбец, который мне нужен, я указала. =) Но спасибо, проверю

[artemavd]

Спасибо, что откликнулся, хоть и с недовольством

Да почему с недовольством? Я нормально отреагировал