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