Browse Source

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

git-svn-id: trunk@3187 -
michael 19 years ago
parent
commit
f98b943047
1 changed files with 2 additions and 1 deletions
  1. 2 1
      fcl/db/sqlite/sqlite3ds.pas

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

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