diff --git a/source/dbstructures.pas b/source/dbstructures.pas
index a9d26149..5d1fa3ed 100644
--- a/source/dbstructures.pas
+++ b/source/dbstructures.pas
@@ -2078,7 +2078,7 @@ var
     )
   );
 
-  SQLiteDatatypes: Array[0..13] of TDBDatatype =
+  SQLiteDatatypes: Array[0..14] of TDBDatatype =
   (
     (
       Index:           dtUnknown;
@@ -2124,6 +2124,18 @@ var
       LoadPart:        False;
       Category:        dtcInteger;
     ),
+    (
+      Index:           dtChar;
+      Name:            'CHAR';
+      Names:           'CHARACTER|CHAR|NCHAR|NATIVE CHARACTER';
+      HasLength:       True;
+      RequiresLength:  True;
+      HasBinary:       False;
+      HasDefault:      True;
+      LoadPart:        True;
+      DefLengthSet:    '50';
+      Category:        dtcText;
+    ),
     (
       Index:           dtVarchar;
       Name:            'VARCHAR';