浏览代码

+ Patch from Luiz Americo to map unknown field types to string

git-svn-id: trunk@3187 -
michael 19 年之前
父节点
当前提交
f98b943047
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      fcl/db/sqlite/sqlite3ds.pas

+ 2 - 1
fcl/db/sqlite/sqlite3ds.pas

@@ -166,7 +166,8 @@ begin
      FieldSize:=SizeOf(Word);
    end else
    begin
-     DatabaseError('Field type "'+ColumnStr+'" not recognized',Self);
+     AType:= ftString;
+     FieldSize:=0;
    end;
    FieldDefs.Add(StrPas(sqlite3_column_name(vm,i)), AType, FieldSize, False);
    {$ifdef DEBUG}