paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 06:11:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@20919 -
This commit is contained in:
marco 2012-04-18 13:31:35 +00:00
parent 6568de7e0f
commit 86ec9c367c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/sqldb/sqldb.pp
View File

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