Сумма столбца DBGrid

[Plato]

Пытаюсь вывести сумму столбца в label7.
БД SQLite

Код: Выделить всё

procedure TForm1.Button4Click(Sender: TObject);
begin
SQLQuery3.Close;
SQLQuery3.SQL.Clear;
SQLQuery3.SQL.Add('SELECT SUM(Unit_price) FROM ORDERS;');
SQLQuery3.Open;
Label7.Caption:=SQLQuery3.Fields[0].AsString;
end;

Выдаёт ошибку : Missing (compatible) underlying dataset, cannot open.

Добавлено спустя 4 минуты 14 секунд:
Так тоже не работает :

Код: Выделить всё

procedure TForm1.Button4Click(Sender: TObject);
begin
SQLQuery3.Close;
SQLQuery3.SQL.Clear;
SQLQuery3.SQL.Add('SELECT SUM(Unit_price) AS KOL FROM ORDERS ;');
SQLQuery3.Open;
Label7.Caption:=SQLQuer3.FieldByName('KOL').AsString;
end;   

[Vapaamies]

Точка с запятой в запросе разве не лишняя?

[Plato]

Точка с запятой в запросе разве не лишняя?

Удаление ";" никак не повлияло.
Да и в других запросах(удаление и добавление) они есть и всё работает.

[Vapaamies]

А лишних FieldDef-ов в свойствах запроса не затесалось? Или TField-ов?

[Снег Север]

В моем проекте подобный запрос работает прекрасно. А ошибка намекает, что не установлено или потеряно соединение с БД.

[Plato]

Так работает:

Код: Выделить всё

procedure TForm1.DataSource3DataChange(Sender: TObject; Field: TField);
begin
  with TSQLQuery.Create(nil) do
  try
    DataBase := SQLite3connection1;
    Close;
    SQL.Text :=('SELECT SUM(Quantity) AS KOLVO FROM ORDERS;');
    Open;
    Label7.Caption :='Всего: '+FieldByName('KOLVO').AsString;
  finally
    Free;
  end;
end;

Добавлено спустя 15 минут 6 секунд:
Как посчитать сумму вычисляемого столбца?

[Padre_Mortius]

Plato, вам же компилятор написал, что отсутствует Dataset. Проверьте правильность настроек компонента SQLQuery3.

P.S. В запросах ошибок нет.