Bläddra i källkod

* Fixed bug #24419

git-svn-id: trunk@24486 -
michael 12 år sedan
förälder
incheckning
27fc72b4b3
2 ändrade filer med 4 tillägg och 1 borttagningar
  1. 1 0
      packages/fcl-db/src/sqldb/odbc/odbcconn.pas
  2. 3 1
      packages/odbc/src/odbcsql.inc

+ 1 - 0
packages/fcl-db/src/sqldb/odbc/odbcconn.pas

@@ -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;}

+ 3 - 1
packages/odbc/src/odbcsql.inc

@@ -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;