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

* Better support for required in the case of "not null", default value or auto increment colomns

Browse Source 
Patch for mysql and odbc, mantis #20429. Related to still open postgres bugreport #19872

git-svn-id: trunk@19466 -
This commit is contained in:
marco 2011-10-11 15:11:39 +00:00
parent 369725f2c4
commit eea81b4ef4
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -666,7 +666,9 @@ begin
if MySQLDataType(field, DFT, DFS) then if MySQLDataType(field, DFT, DFS) then
begin begin
TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(field^.name), DFT, DFS, False, TF); TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(field^.name), DFT, DFS,
(field^.flags and (AUTO_INCREMENT_FLAG or NOT_NULL_FLAG {$IFDEF MYSQL50_UP}or NO_DEFAULT_VALUE_FLAG{$ENDIF})) = (NOT_NULL_FLAG {$IFDEF MYSQL50_UP}or NO_DEFAULT_VALUE_FLAG{$ENDIF}),
TF);
c.MapDSRowToMSQLRow[TF-1] := I; c.MapDSRowToMSQLRow[TF-1] := I;
inc(TF); inc(TF);
end end

2
packages/fcl-db/src/sqldb/odbc/odbcconn.pas
View File

@ -1173,7 +1173,7 @@ begin
end; end;
// add FieldDef // add FieldDef
TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(ColName), FieldType, FieldSize, False, i); TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(ColName), FieldType, FieldSize, (Nullable=SQL_NO_NULLS) and (FieldType<>ftAutoInc), i);
end; end;
end; end;