paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 19:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: odbc: increase max. allowed string field length. Fix for existing tests TTestFieldTypes.TestStringLargerThen8192 and TestInsertLargeStrFields. (similar like rev.23141, 23198)

Browse Source 
git-svn-id: trunk@24389 -
This commit is contained in:
lacak 2013-04-30 10:45:12 +00:00
parent 9168f1cbd3
commit 2d352b0204
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1185,9 +1185,9 @@ begin
end; end;
if (FieldType in [ftString,ftFixedChar]) and // field types mapped to TStringField if (FieldType in [ftString,ftFixedChar]) and // field types mapped to TStringField
(FieldSize >= dsMaxStringSize) then (FieldSize > MaxSmallint) then
begin begin
FieldSize:=dsMaxStringSize-1; FieldSize := MaxSmallint;
end end
else else
// any exact numeric type with scale 0 can have identity attr. // any exact numeric type with scale 0 can have identity attr.
@ -1536,8 +1536,6 @@ begin
end; end;
destructor TODBCCursor.Destroy; destructor TODBCCursor.Destroy;
var
Res:SQLRETURN;
begin begin
{$IF NOT((FPC_VERSION>=2) AND (FPC_RELEASE>=1))} {$IF NOT((FPC_VERSION>=2) AND (FPC_RELEASE>=1))}
FBlobStreams.Free; FBlobStreams.Free;