Database - IBM DB2 LUW 10.5
Reproducing steps
1. Put connection on the VCL form, then put TUniQuery and a button.
2. Implement button.OnClick handler
Code: Select all
procedure TForm7.Button1Click(Sender: TObject);
var
i : integer;
begin
query.SQL.Text := 'select * from mytable where sample_field=:field_value';//use arbitrary table from your DB
query.Prepare;
for i := 0 to query.Params.Count - 1 do
query.Params[i].Bound := true;
query.Open; ---->>>> exception here
end;
если же присвоить параметру значение - исключения нет
If you assign value to query parameter, the exception does not appear.
Code: Select all
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;
Developers, please, tell me what should I do in this situation.