Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2010, 18:59   #1
MSD
Пользователь
 
Регистрация: 23.03.2009
Сообщений: 85
По умолчанию Два запроса

добрый день, помогите с запросом, есть запрос на выборку по условию и затем подсчет суммы идет по столбцу Summa, все идет нормально но сумма не считается... ошибки не выдает и чифры есть в Сумме а подсчета нет, почему так? и еще первый запрос делается из data\Baza.db а отображается в другой таблице Period3.db так вот, такое ущущение что DBGRID который относится к Period3.db просто выводит результат первого запроса а размер самой bd не меняется... Спасибо.
Код:
with Query3 do begin
           Close; 
           SQL.Clear; 
           SQL.Add(' SELECT DISTINCT Cena,Status');
           SQL.Add('FROM "data\Baza.db"');
           SQL.Add('WHERE');
           SQL.Add('D_spisanie BETWEEN "'+datetostr(DateTimePicker1.Date)+'"  AND  "'+datetostr(DateTimePicker2.Date)+'" AND Status = ''На списание''');
           SQL.Add('ORDER BY Cena,Status');
           Open;     
           if Query3.RecordCount <> 0 then
           DataSource3.DataSet:=Query3
              end;
              end;

Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('select sum(CENA) from data\period3.DB;');
Query5.Open;
itog.FieldByName('S_S').Value:=Query5.Fields[0].AsString + ' '+'руб.';

Последний раз редактировалось MSD; 05.06.2010 в 19:28.
MSD вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Два заданиями по С++ Stiffler Фриланс 15 03.12.2009 15:38
Два StringGrid'a ARXangel Общие вопросы Delphi 2 26.05.2009 12:55
два запроса, которые нужно объединить в один. andrianov123 БД в Delphi 4 16.05.2008 16:06
Два запроса - один ExecSQL EdNovice БД в Delphi 1 27.06.2007 17:33
два TMediaPlayer и два AVI-файла zeleniy Компоненты Delphi 0 01.06.2007 14:14