SQLqueru. Присвоение. Делфи

[Artsiom]

Вечер добрый.
Люди, как записать цифру поля ID в целочисленную переменную?
Написал что то такое:

Query2.Active:=False; Query2.SQL.Clear;
Query2.Params.CreateParam(ftString,'ss',ptInput);
Query2.Params.ParamByName('ss').Value:=DBLookupComboBox1.Text;
Query2.SQL.Add('select "ID" from "des.db" where "Name"=:ss');
Query2.Active:=True;

По моему мнению оно должно показать строку с айди. Как теперь цифру айди присвоить переменной? Поля Name и ID ключевые.

[VIK_aka_TOR]

x := Query2.FieldByName('ID').AsInteger;

но если нужно весь результат вывести то нужно прогонять циклом (если в результате запроса несколько ID)

i := 1;
while not Query2.Eof do 
begin 
x[i] := Query2.FieldByName('ID').AsInteger); 
MD.Query.Next;
i := i + 1; 
end;

[Artsiom]

Проект Project1.exe повысил класс исключений, EConvertError с сообщением ''' не является допустимым целочисленным значением'.
У меня тип поля айди автоинкремент, это же целочисленное? Но присваивать не хочет. Ошибка где то

x:= Query2.FieldByName('ID').AsInteger;

[VIK_aka_TOR]

попробуйте заменить, должно помочь....

Query2.Active:=False;

на

Query2.Close;

а

Query2.Active:=True;

на

Query2.Open;

и собственно х типа Integer быть должно...
авто инкремент целочисленный...

[Artsiom]

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

попробуйте заменить, должно помочь....

и собственно х типа Integer быть должно...
авто инкремент целочисленный...

Не помогло. Та же ошибка. Х у меня целочисленный.
Может можно по другому запрос и присвоение составить? Без этого нет дальше хода в проге, обойтись не могу.

[VIK_aka_TOR]

заархивируйте и скиньте сюда ваше детище... только БД не забудьте... посмотрю что там не так в "живую"....

[Artsiom]

За кривость прошу не бить
Этот кусок в unit1.

[VIK_aka_TOR]

вот вам статейка...
там есть по вашему вопросу...
не знал что еще юзают Database Desktop
у меня из-за стороннних серверов матюкает на парадокс... так что все еще дистанционный хелп...

подключение бд... как вариант...

if not OpenDialog1.Execute then exit;
 Table1.Close;
 Table1.TableName:=OpenDialog1.FileName;
 Table1.Open;
end;

x:=Table1.FieldByName('BILL_CUST').AsInteger;

присваивание...
парадокс видимо с квери не очень дружит...