Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.08;
Скачать: CL | DM;

Вниз

Как переменной присвоить значение выполненного запроса ?   Найти похожие ветки 

 
AlekseyB   (2008-05-19 08:22) [0]

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

SELECT Sum(Summa)FROM MyTabl

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


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

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


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

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

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


 
Sergey13 ©   (2008-05-19 09:18) [3]

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

Где?


 
AlekseyB   (2008-05-19 09:19) [4]


> Где?

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


 
ЮЮ ©   (2008-05-19 09:23) [5]

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

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

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


 
MsGuns ©   (2008-05-19 12:48) [6]

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;



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

Текущий архив: 2008.06.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
2-1210756124
WebSQLNeederr
2008-05-14 13:08
2008.06.08
Как сделать что бы можно было копировать ячейки СтригГрида?


10-1146725232
abasheev
2006-05-04 10:47
2008.06.08
ошибка при создании XML документа


15-1209294414
Foo Fighters
2008-04-27 15:06
2008.06.08
если в папке находится ярлык на нее же ... глюк WMP 11?


15-1208846371
shlst
2008-04-22 10:39
2008.06.08
А может пора работу менять?


15-1209124924
sql
2008-04-25 16:02
2008.06.08
MS SQL 2000