[Washington]

Вопрос по параметрам!

Код:

Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadInteger('User','Sis',0);
with Form1.ADOQuery1 do
begin
  SQL.Clear;
  SQL.Add('Select Reports');
  SQL.Add('From Reports');
  SQL.Add('Where Sis<=:Sis');
  Parameters[0].Value:=Sis;
  Active:=True;
  open;
end;

Ошибка:

Отсутствует значение для одного или нескольких параметров.

Всё перепроверил - ничего не получается. Чо делать?

[Aristarh Dark]

Попробуй так:

Код:

Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadInteger('User','Sis',0);
with Form1.ADOQuery1 do
begin
  SQL.Clear;
  SQL.Add('Select Reports');
  SQL.Add('From Reports');
  SQL.Add('Where Sis<=:Sis');
  Parameters.ParseSQL(SQL.Text,True);
  Parameters.ParamByName('Sis').Value:=Sis;
//  Active:=True;  - Это лишнее
  open;
end;

[dron-s]

попробуй так

Код:

with Form1.ADOQuery1 do
begin
  SQL.Clear;
  SQL.Add('Select Reports');
  SQL.Add('From Reports');
  SQL.Add('Where Sis<=:Sis');

  Ini:=TIniFile.Create(IniFileName);
  ParamByName('Sis').AsInteger := StrToInt(Ini.ReadInteger('User','Sis',0));

 Active:=True;
end;

я как понял, что sis у тебя имеет численный тип...
а параметр можешь передавать и без всяких переменных...

[Aristarh Dark]

Неправда Ваша, dron-s.
Нету у TParameter свойства AsInteger да и прочих As... тоже.
Так же нет у TADOQuery метода ParamByName. Приведенный Вами код вообще компилироваться не будет.
Я тут описался как-то раз про As..., посыпаю голову пеплом, но если Вы не проверяли, то зачем советуете?

[dron-s]

да. и правда as нет, но есть Value
так что перепишу вот так

Код:

with Form1.ADOQuery1 do
begin
  SQL.Clear;
  SQL.Add('Select Reports');
  SQL.Add('From Reports');
  SQL.Add('Where Sis<=:Sis');

  Ini:=TIniFile.Create(IniFileName);
  Parameters.ParamByName('Sis').Value := StrToInt(Ini.ReadInteger('User','Sis',0));

 Active:=True;
end;

[Aristarh Dark]

И опять не будет компилироваться