[Washington]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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]

попробуй так

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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
так что перепишу вот так

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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]

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

[dron-s]

и в чём же ошибка на этот раз?
p.s. просто нет delphi под руками чтобы проверить...

[Washington]

А ошибка в этот раз в том, что ParamByName только у обычного Query есть. У ADO его нету. У ADO только Parameters[] есть. По индексу.

[Aristarh Dark]

2 Washington
Как это нету, все есть.
Кстати, у обычного TQuery.Params.ParamByName
у TADOQuery.Parameters.ParamByName
2 dron-s
StrToInt(Ini.ReadInteger('User','Sis',0)) - ошибка, несоответствие типов.
TIniFile.ReadInteger - тип LongInt

[dron-s]

Хех, ну уберите StrToInt и всё будет нормально...
просто я то думал что он в конце концов получает строку...
p.s. для автора наглядный пример порпробывать и разобраться самому, а не скатывать всё готовое с форума и говорить что я это сам сделал... пусть будет хоть доля правды

[Aristarh Dark]

Не буду вдаваться во флейм, скажу только что сам виноват, не посмотрел раздел, думал что Начинающим

[Washington]

Дак сделал, как вы посоветовали. Всё равно ошибка. С форума я ничего не скатываю, а просто прошу помощи в решении проблемы. И всё.

[dron-s]

какая ошибка на этот раз?
p.s.телепаты в отпуске...

[Washington]

Та же самая ошибка. В начале описал.

[Washington]

Разобрался я с этой ошибкой. Не смейтесь пожалуйста, но имена полей в таблице и в запросе не совпадали. Глупо, я знаю