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

* columnsize overrides as per ODBC spec, Mantis #19775 patch by Lacak2

Browse Source 
git-svn-id: trunk@18137 -
This commit is contained in:
marco 2011-08-07 13:39:20 +00:00
parent 6cbfab19a7
commit 0f0627e888
1 changed files with 3 additions and 3 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

@ -419,7 +419,7 @@ begin
Size:=SizeOf(DateVal); Size:=SizeOf(DateVal);
CType:=SQL_C_TYPE_DATE; CType:=SQL_C_TYPE_DATE;
SqlType:=SQL_TYPE_DATE; SqlType:=SQL_TYPE_DATE;
ColumnSize:=Size; ColumnSize:=10;
end; end;
ftTime: ftTime:
begin begin
@ -428,7 +428,7 @@ begin
Size:=SizeOf(TimeVal); Size:=SizeOf(TimeVal);
CType:=SQL_C_TYPE_TIME; CType:=SQL_C_TYPE_TIME;
SqlType:=SQL_TYPE_TIME; SqlType:=SQL_TYPE_TIME;
ColumnSize:=Size; ColumnSize:=12;
end; end;
ftDateTime: ftDateTime:
begin begin
@ -437,7 +437,7 @@ begin
Size:=SizeOf(TimeStampVal); Size:=SizeOf(TimeStampVal);
CType:=SQL_C_TYPE_TIMESTAMP; CType:=SQL_C_TYPE_TIMESTAMP;
SqlType:=SQL_TYPE_TIMESTAMP; SqlType:=SQL_TYPE_TIMESTAMP;
ColumnSize:=Size; ColumnSize:=23;
end; end;
ftBoolean: ftBoolean:
begin begin