FreePascal.ru

Так работает:
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 :='Всего ...

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

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

Пытаюсь вывести сумму столбца в 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 ...

У Вас первичный ключ есть в запросе?
Если нет, тогда исправьте.
Если запрос и операции обновления не по первичному ключу, тогда укажите ключ вручную в настройках датасета.
Иногда стандарный query глючит и ему, при наличии первичного ключа, все равно приходится его прописывать.
В самой бд(sqlite ...

Пытаюсь изменить запись в DBGrid.А они добавляются (и правильно делают ).
Я так понимаю надо перед добавлением удалить ту запись которую я выбрал? Что-то у меня не получается.

Form1(удаление и обновление):
procedure TForm1.Button2Click(Sender: TObject);
var st:string;
begin
st&#58 ...

Требуется вывести название книги(книг) пользующиеся наибольшей популярностью в январе 2005года.
Популярность=sum(проданных экземпляров).

Возможно это сделать без представления?

sign писал(а):Ну, а кто за вас будет преобразовывать тип - aText := IntToStr(...)?

Хм. Я то подумал, что намёка достаточно. Оказывается, нет.

В результате всё осталось как и было. Количество всегда умножается на 4.

Почему не пользуетесь вычисляемым полем и его OnGetText(Sender: TField; var aText: string; DisplayText: Boolean);
Получите правильный результат:
КОД: ВЫДЕЛИТЬ ВСЁ
procedure TDM.SQLQuery1r2_1GetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
aText := SQLQuery3LongintField ...

Есть 2 таблицы DBGrid.
Каждая расположена на отдельном TabSheet.
Вычисляемое прописываю так:
procedure TForm1.SQLQuery3CalcFields(DataSet: TDataSet);
begin
SQLQuery3Summa1.AsInteger:=SQLQuery3LongintField.AsInteger*SQLQuery2LongintField.AsInteger;
end;
Проблема в том, что ...

Нужно чтобы при и изменении данных в одной таблице, они автоматом изменялись в другой.

Добавлено спустя 2 часа 55 минут 53 секунды:
ССылочная целостность и возможность обновления данных одной таблицы по данным другой - это разные вещи.
Ссылочная целостность определяется при создании таблицы ...

Никак не получается установить ссылочную целостность между таблицами в бд SQLite.
Бд.
3 таблицы.
1 таблица(Имя клиента, Адрес)
2 таблица (Наименование товара, Цена за штуку)
3 таблица (Дата,Наименование товара,Имя клиента,Количество)

Требуется согласовать данные. т.е. в 3й таблице "Наименование ...

Вызвал штатного телепата.
Он посмотрел, сообщил в чём проблема.
Я её решил и передал решение телепату для передачи автору топика.
Plato , вызывайте своего телепата, ответ готов!
Спасибо. Проблема решена.Мой телепат принял сообщение и передал его мне.
procedure TForm1.FormClose(Sender&#58 ...

Изменённые данные в DBGrid не сохраняются в бд.
В качестве бд использую SQlite