paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 18:30:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #24419

Browse Source 
git-svn-id: trunk@24486 -
This commit is contained in:
michael 2013-05-12 13:46:39 +00:00
parent 3109d0a58c
commit 27fc72b4b3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1160,6 +1160,7 @@ begin
SQL_VARBINARY: begin FieldType:=ftVarBytes; FieldSize:=ColumnSize; end;
SQL_LONGVARBINARY: begin FieldType:=ftBlob; FieldSize:=BLOB_BUF_SIZE; end; // is a blob
SQL_TYPE_DATE: begin FieldType:=ftDate; FieldSize:=0; end;
SQL_SS_TIME2,
SQL_TYPE_TIME: begin FieldType:=ftTime; FieldSize:=0; end;
SQL_TYPE_TIMESTAMP:begin FieldType:=ftDateTime; FieldSize:=0; end;
{ SQL_TYPE_UTCDATETIME:FieldType:=ftUnknown;}

4
packages/odbc/src/odbcsql.inc
View File

@ -113,7 +113,6 @@ const
SQL_WVARCHAR =(-9);
SQL_WLONGVARCHAR =(-10);
SQL_CHAR = 1;
SQL_NUMERIC = 2;
SQL_DECIMAL = 3;
@ -131,6 +130,9 @@ const
SQL_TYPE_DATE = 91;
SQL_TYPE_TIME = 92;
SQL_TYPE_TIMESTAMP= 93;
// MS SQL Server types
SQL_SS_TIME2 = -154;
SQL_SS_TIMESTAMPOFFSET = -155;
{$endif}
SQL_DATE = 9;