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

fcl-db: sqldb:

Browse Source 
- if there is explicitly supplied RefreshSQL do not try generate returning clause.
- if there is explicitly supplied InsertSQL, UpdateSQL set ReturningClause to False as it can lead to "can not open non-select statement"

git-svn-id: trunk@30796 -
This commit is contained in:
lacak 2015-05-04 08:37:44 +00:00
parent 93802cf5ee
commit 5017d1e6eb
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1753,10 +1753,10 @@ Var
Where : String;
begin
Where:='';
Result:=Query.RefreshSQL.Text;
if (Result='') then
begin
Where:='';
PF:=RefreshFlags[UpdateKind];
For F in Query.Fields do
begin
@ -1804,31 +1804,35 @@ var
begin
qry:=Nil;
ReturningClause:=(sqSupportReturning in Connoptions) and not (sqoRefreshUsingSelect in Query.Options);
ReturningClause:=(sqSupportReturning in ConnOptions) and not (sqoRefreshUsingSelect in Query.Options) and (Query.RefreshSQL.Count=0);
case UpdateKind of
ukInsert : begin
s := trim(Query.FInsertSQL.Text);
if s = '' then
s := ConstructInsertSQL(Query,ReturningClause);
s := ConstructInsertSQL(Query,ReturningClause)
else
ReturningClause := False;
qry := InitialiseUpdateStatement(Query,Query.FInsertQry);
end;
ukModify : begin
s := trim(Query.FUpdateSQL.Text);
if (s='') and (not assigned(Query.FUpdateQry) or (Query.UpdateMode<>upWhereKeyOnly)) then //first time or dynamic where part
s := ConstructUpdateSQL(Query,ReturningClause);
s := ConstructUpdateSQL(Query,ReturningClause)
else
ReturningClause := False;
qry := InitialiseUpdateStatement(Query,Query.FUpdateQry);
end;
ukDelete : begin
s := trim(Query.FDeleteSQL.Text);
if (s='') and (not assigned(Query.FDeleteQry) or (Query.UpdateMode<>upWhereKeyOnly)) then
s := ConstructDeleteSQL(Query);
qry := InitialiseUpdateStatement(Query,Query.FDeleteQry);
ReturningClause:=False;
qry := InitialiseUpdateStatement(Query,Query.FDeleteQry);
end;
end;
if (s<>'') and (qry.SQL.Text<>s) then
qry.SQL.Text:=s; //assign only when changed, to avoid UnPrepare/Prepare
Assert(qry.sql.Text<>'');
Assert(qry.SQL.Text<>'');
for x:=0 to Qry.Params.Count-1 do
begin
P:=Qry.Params[x];