Cannot modify a read-only dataset(таблицу сохранять не нужно)

[ayPinki]

Сообщение от Аватар

Та умножьте в запросе amount на то что нужно, константа ведь и нечего городить то, что не в состоянии реализовать. И вычисляемое поле можно в кверике сделать, как выше подсказывают.Ребят и на фиг там всякие ExecSQL?

прямо в Query ввести эту S? а как это?

[Аватар]

Вариант 1. Сделайте в запросе SELECT amount*5 AS amount,...
5 условно, замените на свое
Вариант 2. Добавьте вычисляемое поле в ReportQuery... Нет, не буду, а то целую лекцию прочитать придется

[Stilet]

ReportQuery.Open;
ReportQuery.ExecSQL;

Это две взаимоисключающие операции.

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
s:= strtoint(LabeledEdit1.text);
ReportQuery.Open;
ReportQuery.First;
while  not  ReportQuery.Eof do
begin
 ReportQuery.FieldValues['amount']:=ReportQuery.FieldValues['amount']*s    ;
ReportQuery.next;
end;
ReportQuery.Close;
end;

[Аватар]

Ну и получит Cannot modify a read-only dataset

[ayPinki]

Сообщение от Аватар

Ну и получит Cannot modify a read-only dataset

да да, я об этом догадывался.
ReportQuery.Edit; - не помогает.

так как , в Query пишу по вашему, он пишет invalid field name S

[Аватар]

Параметризированные запросы, поиск и внимательное изучение

[ayPinki]

Сообщение от Аватар

Параметризированные запросы, поиск и внимательное изучение

я вас понял. изучил.

pprocedure TForm6.BitBtn2Click(Sender: TObject);
begin
s:= strtoint(LabeledEdit1.text);
ReportQuery.Open;
ReportQuery.First;
while  not  ReportQuery.Eof do
begin
ReportQuery.ParamByName('val').AsInteger:= ReportQuery.FieldValues['Amount']*s;
ReportQuery.next;
end;
end;

в Query добавил

Where Composition.amount > :val

в настройках параметра ftinteger и ptinput.
запускается, вроде что то делает.
но как выдачу сделать? чтобы этот val выводился в нужный столбец
поправьте плз((

[eval]

либо зафигачить выдачу в мемо- поле

совсем плох пациент
после таких заяв надежды на внимательное изучение нету

[Stilet]

но как выдачу сделать?

with ReportQuery do begin
Open; 
 while  not  Eof do begin
  Memo.Lines.Append(FieldByName('поле').AsString;
  next;
 end;
end;

Идея ясна?

[Аватар]

  ReportQuery.SQL.Text:='SELECT :p1*amount AS amount,... FROM ... WHERE ...';
  ReportQuery.ParamByName('p1').Value:=StrToIntDef(LabeledEdit1.text,0);
  ReportQuery.Open;

Надеюсь догадаетесь вместо многоточий в запросе ваши данные поставить