[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;

[dimon4iknik]

Таже ошибка. Только строку не выделяет... Может это пишет про другой параметр?

[dimon4iknik]

Попробовал так же сделать для всех параметров... И ничего.. Ошибка таже...

[Страдалецъ]

Насколько я помню, параметры можно передавать для формирования ограничения, но не для имен полей запроса. В этом случае вам лучше формировать текст запроса иначе:

Код:

qry1.SQL.Text:=Format('INSERT INTO [Решение для первой смены] ( количество_диванов, Название_дивана, Наименование_товара, расход_товара_на_каркас, расход_товара_на_сборку, расход_за_день, смена )' +
 'SELECT %s AS количество_диванов, [Название дивана].Название_дивана, [Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, ' +
 '(([расход_товара_на_каркас]+[расход_товара_на_сборку])* количество_диванов ) AS расход_за_день, %s AS Смена FROM Смена, [Наименование товара] INNER JOIN ([Название дивана]' +
 ' INNER JOIN БД ON [Название дивана].Название_дивана = БД.Название_дивана) ON [Наименование товара].Наименование_товара = БД.Наименование_товара GROUP BY %s, [Название дивана].Название_дивана,' +
 '[Наименование товара].Наименование_товара, БД.расход_товара_на_каркас, БД.расход_товара_на_сборку, [Смена] HAVING ((([Название дивана].Название_дивана) Like ''%s''));',[Edt1.Text,dblkcbb2.Text,Edt1.Text,dblkcbb1.Text]);

[NumLock]

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

Попробовал так же сделать для всех параметров... И ничего.. Ошибка таже...

а я предупреждал:

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

сам запрос я не смотрел, но что-то подсказывает что там тоже не все гладко.

[dimon4iknik]

Ошибка такова

(([расход_товара_на_каркас]+[расход_товара_на_сборку])* количество_диванов )
http://imagepost.ru/?v=456_13.png

Если я убераю эту строку то запрос срабатывает. Но от этого подсчета зависит другой запрос..

[Страдалецъ]

Есть очень простое правило формирования БД. Если значение можно расчитать, то хранить результат расчета не надо. Поэтому расчет чего-либо в контексте вставки в БД - это грубая ошибка проектирования.

[dimon4iknik]

Сообщение от Страдалецъ

Есть очень простое правило формирования БД. Если значение можно расчитать, то хранить результат расчета не надо. Поэтому расчет чего-либо в контексте вставки в БД - это грубая ошибка проектирования.

Ну мне нужно что б этот результат был.. Что мне тогда делать?

[Ildar-tsr]

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

...Что мне тогда делать?

А попробуй-ка ты количество_диванов вставить в [] - [количество_диванов]

[dimon4iknik]

Спасибо всем огромное) всё получилось. Я просто эту часть запроса перенёс в другой запрос... Так даже логичнее получилось)