БД - IBM DB2 LUW 10.5
Берем любую таблицу из БД, например некую таблицу mytable.
Кладем на форму коннект, компонент TUniQuery и кнопку. На клик кнопки - следующий код:
Код: Выделить всё
procedure TForm7.Button1Click(Sender: TObject);
var
i : integer;
begin
query.SQL.Text := 'select * from mytable where sample_field=:field_value';
query.Prepare;
for i := 0 to query.Params.Count - 1 do
query.Params[i].Bound := true;
query.Open; ---->>>> здесь исключение
end;
если же присвоить параметру значение - исключения нет
Код: Выделить всё
procedure TForm7.Button1Click(Sender: TObject);
var
i : integer;
begin
query.SQL.Text := 'select * from mytable where sample_field=:field_value';
query.ParamByName('field_value').AsInteger:=1;
query.Prepare;
query.Open; ---->>>> исключения нет
end;