Результат запроса sql в переменную

[dll32]

Здравствуйте,
Люди как можно поместить результат запроса SQL в переменную?
например:

begin
datamodule1.QProduct.Close;
datamodule1.QProduct.SQL.Clear;
datamodule1.QProduct.SQL.Add('SELECT SUM money FROM Product');
datamodule1.QProduct.Open;
end;

покажет в таблице сумму, но мне неадо эту сумму поместить прямо в переменную. скажем есть переменная m:integer, и туда и поместить результат запроса "SELECT SUM money FROM Product'"
Прошу помочь чайнику

[soleil@mmc]

еще ничего не успел сделать, а уже 3 ошибки в коде налабал

это

datamodule1.QProduct.SQL.Add('SELECT SUM money FROM Product');

заменяем на это

datamodule1.QProduct.SQL.Add('SELECT SUM(money) f1 FROM Product');

так объявляем сумму (это же деньги, а они обычно не целочисленные)

m: double;
//либо еще можно так m: currency;

так присваиваем переменной

m:=datamodule1.QProduct.FieldByName('f1').AsFloat;
//m:=datamodule1.QProduct.FieldByName('f1').AsCurrency;

[dll32]

spasibo ogromnoe, delo ne v tom tam money ili prosto kakoi nibud string prosto primer eto
spasibooooo
kak ia ponial f1 eto nesushestvuiushee pole? ono avtomaticheski sozdaetsa?
prostite chto latinskimi nabiraiu, na ruskom do utra nabiral bi

[Serge_Bliznykov]

SQL запрос
SELECT SUM(money) f1 FROM Product
эквивалентен записи:
SELECT SUM(money) As f1 FROM Product

это означает, что первому полю (в данном случае - сумме) мы присваиваем (назначаем) имя f1
т.е. в результате запроса у нас в выборке будет одно поле и это поле будет с именем f1

[dll32]

Спасибо спасибоооооо огромноееее
вы мне очень помогли

[dll32]

У меня еще один вопросик по Paradox
вот код:

datamodule1.TProduct.IndexName := 'pfood_n';
datamodule1.TProduct.Active:=true;
datamodule1.TProduct.SetKey;
datamodule1.TProduct.FieldByName('Pfood').AsString := EFood.text;
datamodule1.TProduct.GotoKey;

if EFood.Text=datamodule1.TProductPfood.AsString
   then
    begin
    datamodule1.TProduct.Edit;
    datamodule1.TProduct.FieldByName('Pgr').AsFloat := (datamodule1.TProduct.FieldByName('Pgr').AsFloat) + (strtofloat(egr.Text));
    datamodule1.TProduct.FieldByName('Pcnt').AsInteger := (datamodule1.TProduct.FieldByName('Pcnt').AsInteger)+(strtoint(ecnt.Text));
    datamodule1.TProduct.Post;
    end
    else
       begin
       datamodule1.TProduct.Insert;
       datamodule1.TProduct.FieldByName('PFood').AsString :=efood.Text;
       datamodule1.TProduct.FieldByName('Pgr').AsFloat :=strtofloat(egr.Text);
       datamodule1.TProduct.FieldByName('Pcnt').AsInteger :=strtoint(ecnt.Text);
       datamodule1.TProduct.Post;
       end;

Как вы видите я использую вторычный индекс для пойска. Если сушествует такая запись то редактируем данные, если нет то добавляем новую запись.
все прекрасно работает, но я боюсь будет ли она нормально работать и не зависать если база будет очень большой?
Влияют ли на пройзводительность вторычные индексы?
Спасибо заранее

[Stilet]

Влияют ли на пройзводительность вторычные индексы?

Вообще-то они ускорять должны работу...

[dll32]

Значит мне не надо беспокоится?

[dll32]

Опять проблемма

datamodule1.QProduct.SQL.Add('SELECT SUM(money) f1 FROM Product');

Выдает ошибку:
Invalid use of keyword.
Token Money).
Line Number:1.

дело в том что если делаю запрос:

datamodule1.QProduct.SQL.Add('SELECT SUM(cnt) f1 FROM Product');

то все работает.
Тип "cnt" - NUMBER, а тип "money" - $(Money)
Как я понял дело в типе, но как решть проблему?

[dll32]

Решил все
Дело было в самом имени поля, изменил имя поля money на mny и все заработало