Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться с суммированием   Найти похожие ветки 

 
Sedov Vitalik   (2002-12-15 14:01) [0]

Здравствуйте
Имею таблицу Query в ней две колонки (цифры). Мне необходимо просуммировать их (по колонкам = СумКол1 и СумКол2) и выдать результат в Labelи. Щас я считываю все RecNo и суммирую их. Но я бы хотел все это сделать через SQL запрос.
Там команда SUM есть, но как с ней работать не знаю -(
Помогите разобраться с этим запросом и объясните куда передаются результаты (что это за переменные и где их прописывать)

Заранее спасибо


 
Reindeer Moss Eater   (2002-12-15 14:06) [1]

var
Var1,Var2:Double;

with TQuery.Create(nil) do
try
DatabaseName:="MyDatabaseName";
SQL.Text:="Select SUM(СумКол1), SUM(СумКол1) From MyTable";
Open;
Var1:=Fields[0].AsFloat;
Var2:=Fields[1].AsFloat;
finally
Free;
end;

Label1.Caption:=Format("переменная Var1 = %18.2f переменная Var2 = %18.2f",[Var1,Var2]);


 
Sedov Vitalik   (2002-12-15 14:20) [2]

Решил пока для одной сделать
Прописал в SQL (TStrings)
Select SUM(Sumka)
From Id_acc
затем

procedure TForm1.Button7Click(Sender: TObject);
begin
Query2.Active:=true;
Var1:=Query2.FieldByName("Sumka").AsInteger;
end;

Появляется ошибка "Неверное имя поля Sumka"


 
Reindeer Moss Eater   (2002-12-15 14:23) [3]

Дык исправь неверное имя поля на верное имя поля


 
Nikolay M.   (2002-12-15 14:23) [4]


> Select SUM(Sumka)
> From Id_acc


Select SUM(Sumka) AS Sumka From Id_acc

или

Var1:=Query2. Fields[0].AsInteger;


 
Sedov Vitalik   (2002-12-15 14:29) [5]

точно AS Sumka забыли
Спасибо всем



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.01 c
3-14914
old_mole
2002-12-12 11:52
2003.01.06
Помогите с Report`ом


1-15143
Витал
2002-12-23 14:35
2003.01.06
TActionMainMenuBar в Delphi7


1-15128
Ilg
2002-12-21 17:49
2003.01.06
ListBox со строками разных цветов


8-15178
pnp
2002-09-17 15:51
2003.01.06
Осциллограф


7-15342
soware
2002-10-08 09:10
2003.01.06
Дата BIOS в NT





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский