* Patch from Lacak2 for #16842. Fix parsing of FROM (mysql show..from)

git-svn-id: trunk@20919 -

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

@@ -1279,8 +1279,7 @@ begin
         case ParsePart of
           ppStart  : begin
                      Result := TSQLConnection(Database).StrToStatementType(s);
-                     if Result = stSelect then ParsePart := ppSelect
-                       else break;
+                     if s = 'SELECT' then ParsePart := ppSelect else break;
                      if not FParseSQL then break;
                      PStatementPart := CurrentP;
                      end;