[Yura_S]

Здравствуйте! Не могу разобраться с запуском запроса, возникает ошибка.
Загружаю текст запроса:

Код:

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'...
Подскажите пожалуйста в чём ошибка.

[k@Z@k]

Например, запрос хранится в ini файле(часть, только парамерты):

Код:

....
[sql]
StrWhere=WHERE (d.data_date>'%s.%s.%s %s:%s')and(d.data_date<='%s.%s.%s %s:%s')and(d.object=%s)and(d.item=%s)and(d.parnumber=%s)
.... 

тогда:

Код:

str:=Format(ReadIniFile('SQL','StrWhere','sql.ini'),[DYear1,DMonth1,DDay1,DHour1,DMinute1,DYear2,DMonth2,DDay2,DHour2,DMinute2,OCode,SCode,12]);

и получаеи str=WHERE (d.data_date>'2010.3.15 0:0')and(d.data_date<='2010.3.16 0:0')and(d.object=4540)and(d.item=1)and(d.parnumbe r=12)
вообщем должно бвть понятно, через Format, т.е формируешь запрос через форматирование строки а потом передаешь