[dimon4iknik]

Код:

procedure TForm5.btn1Click(Sender: TObject);
begin
 qry1.Active:=False;
 qry1.SQL.Text:='INSERT INTO [Решение для первой смены] ( количество_диванов, Название_дивана, Наименование_товара, расход_товара_на_каркас, расход_товара_на_сборку, расход_за_день, смена )' +
 'SELECT :param2 AS количество_диванов, [Название дивана].Название_дивана, [Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, ' +
 '(([расход_товара_на_каркас]+[расход_товара_на_сборку])* количество_диванов ) AS расход_за_день, :param3 AS Смена FROM Смена, [Наименование товара] INNER JOIN ([Название дивана]' +
 ' INNER JOIN БД ON [Название дивана].Название_дивана = БД.Название_дивана) ON [Наименование товара].Наименование_товара = БД.Наименование_товара GROUP BY :param2, [Название дивана].Название_дивана,' +
 '[Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, [Смена] HAVING ((([Название дивана].Название_дивана) Like :param1));';
 qry1.Parameters.ParamByName('param1').Value:=dblkcbb1.Text;
 qry1.Parameters.ParamByName('param2').Value.StrToInt:=Edt1.Text;
 qry1.Parameters.ParamByName('param3').Value:=dblkcbb2.Text;
  qry1.ExecSQL;
end;

И вот какая ошибка...

И выделяет вот эту строку...

Код:

 qry1.Parameters.ParamByName('param2').Value.strtoint:=Edt1.Text;

подскажите в чем ошибка?

[NumLock]

Value это свойство типа Variant. если бы он содержал интерфейс, то можно было бы присвоить его свойству strtoint какое-то значение. но в данном случае это скорее всего тип Integer или String. а StrToInt и IntToStr это как раз функции, но не факт, что они тут пригодятся. сам запрос я не смотрел, но что-то подсказывает что там тоже не все гладко.

[dimon4iknik]

Код:

qry1.Parameters.ParamByName('param2').value.Integer:=Edt1.Text;

Та же ошибка.

[NumLock]

Сообщение от dimon4iknik

Код:

qry1.Parameters.ParamByName('param2').value.Integer:=Edt1.Text;

Та же ошибка.

естественно, потому что свойства Integer тоже нет. может так:

Код:

.Parameters.ParamByName('param2').Value:=Edit1.Text;

[dimon4iknik]

а так пишет "неверно определен обьект Parametr"

[Ildar-tsr]

Сообщение от dimon4iknik

а так пишет "неверно определен обьект Parametr"

Код:

qry1.Parameters.ParamByName('param2').DataType:= ftString;
qry1.Parameters.ParamByName('param2').Value:=Edt1.Text;