Срочно нужна помощь с БД в Delphi!

[Dmitrius]

В общем имеется файл.dbf в некотором Edit1 нужно отобразить сумму всех значений поля(столбца). Например поля SUMMA.

Помогите плиз, что надо спрашивайте, оч. надо...

[Dmitrius]

ап

[nipand]

Можно, например, так: добавляешь на форму компонент TQuery (вкладка BDE) и в обработчике пишешь:

  Query1.DatabaseName := '.\';
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select sum(summa) as itogo from файл');
  Query1.Open;
  Query1.First;
  edit1.text := Query1.fieldbyname('itogo').AsString

Нужно, чтобы файл лежал в папке программы. Или можно DatabaseName заменить на путь к файлу.

[Dmitrius]

Ща попробую

Добавлено спустя 17 минут 20 секунд:

Че то не хочет... Без ошибок выполняется, а в edit не пишет...

ЗЫ он у меня на груп боксе стоит

[Dmitrius]

Дело похоже в том, что SUMMA- вычисляемое поле, т.к. остальные поля суммируются,

значение поля SUMMA=KOL*CENA

[nipand]

тогда можно заменить строку:

Query1.SQL.Add('select sum(summa) as itogo from файл');

на

Query1.SQL.Add('select sum(kol*cena) as itogo from файл');

[Dmitrius]

Не хочет *26

Остальные(которые не вычисляемые) я так сделал:

Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('select sum(RASHOD) from BD3;');
Query3.Open;
Edit3.Text:=Query3.Fields[0].AsString;

[nipand]

Не хочет *26

а подробнее?

[Dmitrius]

Да все также просто не выводит туда и все.

[nipand]

где-то что-то не так*16

если поля KOL и CENA числовые, то все должно получиться

можешь загрузить куда-нибудь проект, посмотрю.

[TolkienDRR]

а что ты хочешь увидеть выполняя этот запрос?

Query3.Fields[0].AsString;

сто пудов он нулевого значения. юзай:

showmessage(Query3.Fields[0].AsString);

[Dmitrius]

TolkienDRR

Так показывает же

<_<

[TolkienDRR]

Dmitrius

йопта, вставь шоумессадж. если вылезет пустое окно, значит пустое значение. вообще привяжи бдгрид и посмотри, что у тебя получается в куери3.

[Dmitrius]

Да я имею ввиду у меня все норм с квери 3))

У меня тока с квери1 не выводит(вначале темы), щая в личку ссыль на проджект отправлю, если интересно