paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:06:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqldb: some databases supports inserting of explicit values into "autoincrementing" columns. So in case when ftAutoInc field has already supplied value, do not do fetch of LastID

Browse Source 
git-svn-id: trunk@29237 -
This commit is contained in:
lacak 2014-12-09 10:46:06 +00:00
parent dbd07e7583
commit e26d106b5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -2611,7 +2611,7 @@ begin
While (Result=Nil) and (I<Fields.Count) do While (Result=Nil) and (I<Fields.Count) do
begin begin
Result:=Fields[i]; Result:=Fields[i];
if Result.DataType<>ftAutoInc then if (Result.DataType<>ftAutoInc) or not Result.IsNull then
Result:=Nil; Result:=Nil;
Inc(I); Inc(I);
end; end;