Здравствуйте! Не могу разобраться с запуском запроса, возникает ошибка.
Загружаю текст запроса:
Код:
procedure TBlydo.FormCreate(Sender: TObject);
var i,j:integer;
begin
DM.KolKal.SQL.LoadFromFile('КолКал.txt');
...
Код в файле:
Код:
SELECT Рецепт.KodRecepta, Sum([(КалорииВБлюде)].Калории) AS [Sum-Калории]
FROM Блюда INNER JOIN (Рецепт INNER JOIN [(КалорииВБлюде)] ON Рецепт.KodRecepta = [(КалорииВБлюде)].KodRecepta) ON (Блюда.KodRecepta = Рецепт.KodRecepta) AND (Блюда.KodRecepta = [(КалорииВБлюде)].KodRecepta)
GROUP BY Рецепт.KodRecepta
HAVING (((Рецепт.KodRecepta)=:Kod));
":Kod"-Параметр который должен задаваться в коде Delphi
Код запуска запроса (Находится в процедуре кнопки):
Код:
DM.KolKal.Close;
DM.KolKal.Parameters.ParamByName('Kod').Value:=IntToStr(Kod);
DM.KolKal.Open;
При выполнении программы возникает ошибка:
...'KolKal: Parametr 'Kod' Not Found'...
Подскажите пожалуйста в чём ошибка.