* patch to order output of getschemainfo(sttables) for sqlite, patch by Lacak2, mantis #19957

git-svn-id: trunk@18875 -

packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -770,7 +770,7 @@ function TSQLite3Connection.GetSchemaInfoSQL(SchemaType: TSchemaType;
   
 begin
   case SchemaType of
-    stTables     : result := 'select name as table_name from sqlite_master where type = ''table''';
+    stTables     : result := 'select name as table_name from sqlite_master where type = ''table'' order by 1';
     stColumns    : result := 'pragma table_info(''' + (SchemaObjectName) + ''')';
   else
     DatabaseError(SMetadataUnavailable)