Hi, I am inserting records into a table using a for loop

For j := 1 to 10000 do
begin
qrMain.insert;
qrMain.FieldByName('Team').value := 'xxx';
qrMain.IB_Transaction.CommitRetaining;
end;


This is a simple for loop to add 10000 new records, however, I am getting an
exception class EIB_ColumnError with message 'Value out of range'.

I have a generator on the primary key.

Thanks

Terry