Delphi XE4 SQL запрос на подсчет суммы

@Мусаси · Регистрация: 07.05.2013

Author24 — интернет-сервис помощи студентам

Составил запрос на подсчет суммы по критерию (Код_заказа (не ключевое)). И не могу вывести эту сумму в Edit. Вот код

Delphi

procedure TForm8.Button3Click(Sender: TObject);
var SUMM: string;
begin
 //Цена заказа
 
DataModule1.ADOQ7_CYMMA_Zakaza.Close;
DataModule1.ADOQ7_CYMMA_Zakaza.SQL.Clear;
//Выбираем сумму
SUMM:='select SUM(Цена_продажи) as SUMMA from Заказано_на_продажу) where Код_заказа='+IntToStr(DBLookupComboBox4.KeyValue);
DataModule1.ADOQ7_CYMMA_Zakaza.SQL.Add((SUMM));
 
Edit3.Text := DataModule1.ADOQ7_CYMMA_Zakaza.FieldByName('SUMMA').AsString;
DataModule1.ADOQ7_CYMMA_Zakaza.Open;
end;

Пишет, что поле SUMMA не существует. Ссылается на вот этот код

Delphi

1	Edit3.Text := DataModule1.ADOQ7_CYMMA_Zakaza.FieldByName('SUMMA').AsString;

Как исправить? Спасибо

@OlegXE · 03.05.2014, 11:16

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

Delphi

1 2	Edit3.Text := DataModule1.ADOQ7_CYMMA_Zakaza.FieldByName('SUMMA').AsString; DataModule1.ADOQ7_CYMMA_Zakaza.Open;

а надо

Delphi

1 2	DataModule1.ADOQ7_CYMMA_Zakaza.Open; Edit3.Text := DataModule1.ADOQ7_CYMMA_Zakaza.FieldByName('SUMMA').AsString;

@Мусаси · 03.05.2014, 12:31 **[ТС]**

OlegXE, на это пишет (" Ошибка синтаксиса в предложении From"). Тогда как?

@OlegXE · 03.05.2014, 12:33

Скобка у тебя там лишняя
Заказано_на_продажу) <-- убери её

@Мусаси · 03.05.2014, 20:47 **[ТС]**

А, я кажется знаю в чем ошибка. Одну минуточку....

Добавлено через 13 минут
Ошибка состоит вот в чем

Delphi

1	SUMM:='select SUM(Цена_продажи) as SUMMA from Заказано_на_продажу) where Код_заказа='+[U][B]IntToStr(DBLookupComboBox4.KeyValue[/B][/U]);

Вместо последнего значения таблицы в первом столбце я почему-то решил выбрать DBLookupComboBox4. Извините, это я недоглядел. Такой вопрос, как выбрать последнее значение в таблице я знаю

Delphi

1	+DBGrid2.Fields[0].

, только после точки что поставить?

Надо вот эту строку доработать.

Delphi

1	SUMM:='select SUM(Цена_продажи) as SUMMA from Заказано_на_продажу where Код_заказа='+DBGrid2.Fields[0].

Добавлено через 3 минуты
УРА Я РЕШИЛ

Delphi

1	DBGrid2.Fields[0].AsString;

Добавлено через 42 секунды
БОЛЬШОЕ СПАСИБО ВСЕМ, кто помогал!!!!!!!

Добавлено через 2 часа 53 минуты
Вот возник теперь такой вопрос. Вставка происходит, только не в той строчке, а создаёт как новую запись. Вот код кнопки "Подтвердить".

Delphi

procedure TForm8.Button4Click(Sender: TObject);
begin
DBGrid2.DataSource.DataSet.Last;//Выделяем последнюю строку
//Подтвердить сумму заказа
DataModule1.ADOQ7_CYMMA_Zakaza.Close;
DataModule1.ADOQ7_CYMMA_Zakaza.SQL.Clear;
DataModule1.ADOQ7_CYMMA_Zakaza.SQL.Add('insert into Заказы (Сумма_заказа) values (:Сумма_заказа)');
 
DataModule1.ADOQ7_CYMMA_Zakaza.Parameters.ParamByName('Сумма_заказа').Value:=Edit3.Text;
 
DataModule1.ADOQ7_CYMMA_Zakaza.ExecSQL;
 
ShowMessage('Сумма заказа внесена, данные сохранены');
//обновить список с заказами
DataModule1.ADOT11_Zakazi.Active:=false;
DataModule1.ADOT11_Zakazi.Active:=true;
end;

Добавлено через 5 минут
Сейчас поясню. В таблице уже есть запись, только колонка в ней пустая. Надо вставить В эту пустую колонку (она является последней) информацию из Edit3. А у меня добавляет новую запись. Как мне тогда сделать?

Добавлено через 4 часа 55 минут
Народ

подскажие ПЛЗ

Добавлено через 40 секунд
Народ

подскажие ПЛЗ

@OlegXE · 03.05.2014, 20:50

Если хочешь добавить данные в уже созданную строку, то смотри в сторону запроса UPDATE.

SQL

1
2
3

UPDATE таблица
SET новое_значение
WHERE условия_отбора;

@Мусаси · 03.05.2014, 21:10 **[ТС]**

Пишет ошибка синтаксиса в инструкции Update

@Мусаси 9 / 9 / 2 Регистрация: 07.05.2013 Сообщений: 227
	03.05.2014, 12:31 [ТС]	3
	OlegXE, на это пишет (" Ошибка синтаксиса в предложении From"). Тогда как? 0

@OlegXE 29 / 29 / 19 Регистрация: 06.12.2013 Сообщений: 154
	03.05.2014, 12:33	4
	Скобка у тебя там лишняя Заказано_на_продажу) <-- убери её 0

@Мусаси 9 / 9 / 2 Регистрация: 07.05.2013 Сообщений: 227
	03.05.2014, 21:10 [ТС]	7
	Пишет ошибка синтаксиса в инструкции Update 0