Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как переменной присвоить значение выполненного запроса ? [D7, XP]


AlekseyB ©   (2008-05-19 08:22:00) 

У меня выполняется запрос, который считает сумму

SELECT Sum(Summa)FROM MyTabl

Как мне значение выполненого запроса положить в переменную ?
Заранее спасибо


MsGuns   (2008-05-19 12:48:00) [1]

with Form2.ADOQuery1,Label1 do
 try
  if Active then Close;
  SQL.Text := 'SELECT Sum('Summa') as S FROM MyTabl';  
  Open;
  if RecordCount>0 then
     Caption := Format('%f9.2',[FieldByName('S').AsFloat]);
  Close;
 except
     Caption := 'Ошибка выборки';
 end;


ЮЮ   (2008-05-19 09:23:00) [2]

> соответсвено индексы 0 и 1

в запросе наблюдается только одно — Sum(Summa) — и совершенно не важно что там у тебя в таблице

Query.Fields[0] — 1 — е (и единственное) поле набора данны, возвращаемое subj-евым запросом


AlekseyB   (2008-05-19 09:19:00) [3]


> Где?

Ну в табличке у меня 2 поля, наименование и сумма, нужно подсчитать сумму по всем записям и положить допустим в Label


Sergey13   (2008-05-19 09:18:00) [4]

> [2] AlekseyB   (19.05.08 09:16)
> у меня всего то 2 поля

Где?


AlekseyB   (2008-05-19 09:16:00) [5]

Делаю вот так, но выдается ошибка что не нравится индекс, хотя должно работать, у меня всего то 2 поля, соответсвено индексы 0 и 1

rez := Form2.ADOQuery1.Fields[1].AsCurrency;


Savek   (2008-05-19 09:11:00) [6]

sum:=Query.Fields[0].AsCurrency;


Наверх

Титульная страница Поиск, карта сайта Написать письмо