浏览代码

* sqlite datasets adapted to also take BIGINT as ftlargeint type as per
sqlite docs. Mantis #18649

git-svn-id: trunk@18045 -

marco 14 年之前
父节点
当前提交
5bc46002b9
共有 2 个文件被更改,包括 2 次插入2 次删除
  1. 1 1
      packages/fcl-db/src/sqlite/sqlite3ds.pas
  2. 1 1
      packages/fcl-db/src/sqlite/sqliteds.pas

+ 1 - 1
packages/fcl-db/src/sqlite/sqlite3ds.pas

@@ -204,7 +204,7 @@ begin
     end else if (ColumnStr = 'DATE') then
     begin
       AType := ftDate;
-    end else if (ColumnStr = 'LARGEINT') then
+    end else if (ColumnStr = 'LARGEINT') or (ColumnStr = 'BIGINT') then
     begin
       AType := ftLargeInt;
     end else if (ColumnStr = 'TIME') then

+ 1 - 1
packages/fcl-db/src/sqlite/sqliteds.pas

@@ -168,7 +168,7 @@ begin
     end else if (ColumnStr = 'TIME') then
     begin
       AType := ftTime;
-    end else if (ColumnStr = 'LARGEINT') then
+    end else if (ColumnStr = 'LARGEINT') or (ColumnStr = 'BIGINT') then
     begin
       AType := ftLargeInt;
     end else if (ColumnStr = 'TEXT') then