D7: dbExpress error when driver not support Schema

Hello, All!

Look file file "SqlExpr.pas".

  Not full analysing when FSchemaName is empty.

function TCustomSQLDataSet.GetQueryFromType: string;
var
  stableName : String;
begin
  case CommandType of
     ctTable:
       begin
         if Self.FSchemaName <> '' then
           stableName := AddQuoteCharToObjectName(Self, FSchemaName + '.' +
FCommandText,
                      FSQLConnection.QuoteChar)
         else
           stableName := AddQuoteCharToObjectName(Self, FCommandText,
FSQLConnection.QuoteChar);
         if FSortFieldNames > '' then
           Result := SSelectStarFrom + stableName + SOrderBy +
FSortFieldNames
         else
           if FNativeCommand = '' then
             Result := SSelectStarFrom + stableName
           else
           begin
             //+ new line:
             if Self.FSchemaName <> '' then
             //+. ######################
             stableName := AddQuoteCharToObjectName(Self, FSchemaName + '.'
+ FNativeCommand,
                      FSQLConnection.QuoteChar)
             //+ new line:
             else stableName := AddQuoteCharToObjectName(Self,
FNativeCommand, FSQLConnection.QuoteChar)
             //+.
############################################################################
###
             ;
             Result := SSelectStarFrom + stableName;
           end;
       end;
     ctStoredProc:
...
--
vAd     email: p...@ukr.net