Помогите пожалуйста, это срочно. Изменение query.fieldbyname

[Lekzzz]

Здравствуйте.
Срочно нужна помощь. То что ниже выделено оранжевым должно работать. Но мне пишет ошибку: IBQUERY3:FIELD 'OST' NOT FOUND

Вот текст кнопки:

procedure TForm2.Button2Click(Sender: TObject);
var a,b:integer;
begin
a:=dm.IBQuery3.Fieldbyname('ost').A sInteger-strtoint(Edit2.Text);
b:=dm.IBQuery3.Fieldbyname('Nz').As Integer;
dm.IBQuery3.Close;
dm.IBQuery3.SQL.Clear;
dm.IBQuery3.SQL.Add(RE6.text);
dm.IBQuery3.Params[0].AsInteger:=a;
dm.IBQuery3.Params[1].AsInteger:=b;
dm.IBQuery3.ExecSQL;

{If dm.IBQuery3.Fieldbyname('Ost').asIn teger<=strtoint('0') then
begin
dm.IBQuery3.Fieldbyname('Summ').asI nteger:=strtoint(Edit3.Text );
dm.IBQuery3.Fieldbyname('Ost').asIn teger:= strtoint(Edit3.Text );
dm.IBQuery3.Fieldbyname('Nalc').asS tring:= 'не имеется';
end else begin
dm.IBQuery3.Fieldbyname('Nalc').asS tring:= 'имеется';
end;}

dm.IBQuery3.Close;
dm.IBQuery3.SQL.Clear;
dm.IBQuery3.SQL.Add('select *');
dm.IBQuery3.SQL.Add('from Nal');
dm.IBQuery3.Open;
end;


Скриншет программы вложил. Надо программу сделать до 8 часов утра этого дня. Помогите пожалуйста.
Заранее извиняюсь, если неправильно оформил.

[S@fer]

dm.IBQuery3.Fieldbyname('Ost').asIn teger<=strtoint('0')

Зачем ноль делать сначала строковым, а потом опять в числовой?
не проще ли написать

dm.IBQuery3.Fieldbyname('ost').asInteger<=0

А вот эта строчка проходит?

a:=dm.IBQuery3.Fieldbyname('ost').A sInteger-strtoint(Edit2.Text);

попробуйте просто копировать-вставить, может где-то неправильно буква написана (вместо английской русская)

dm.IBQuery3.Fieldbyname('ost').AsInteger

[Serge_Bliznykov]

я понимаю, конечно, что уже поздно..

dm.IBQuery3.SQL.Add(RE6.text);

Вы бы текст запроса из edit'а RE6 скопировали и тут привели...
Либо в этом запросе вообще не выбирается поле OST
либо, как абсолютно справедливо предположил S@fer - в написании поля вкрались русские буквы...

[soleil@mmc]

и зачем потом что-то присваивать полям квери?

dm.IBQuery3.Fieldbyname('Summ').asI nteger:=strtoint(Edit3.Text );
dm.IBQuery3.Fieldbyname('Ost').asIn teger:= strtoint(Edit3.Text );
dm.IBQuery3.Fieldbyname('Nalc').asS tring:= 'не имеется';
end else begin
dm.IBQuery3.Fieldbyname('Nalc').asS tring:= 'имеется';
end;

даже если представить что с ними что-то можно было бы сделать, но в коде дальше с ними ничо не делается