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

* patch from José Mejuto to fix applying more then one update when there is an update or insert query present, bug #14331

Browse Source 
git-svn-id: trunk@13802 -
This commit is contained in:
joost 2009-10-04 11:04:31 +00:00
parent 515774b864
commit 271ed77004
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1504,17 +1504,23 @@ begin
qry := FUpdateQry;
end;
ukInsert : begin
if not assigned(FInsertQry) and (trim(FInsertSQL.Text)<> '') then
InitialiseModifyQuery(FInsertQry,FInsertSQL.Text)
else
InitialiseModifyQuery(FInsertQry,InsertRecQuery);
if not assigned(FInsertQry) then
begin
if (trim(FInsertSQL.Text)<> '') then
InitialiseModifyQuery(FInsertQry,FInsertSQL.Text)
else
InitialiseModifyQuery(FInsertQry,InsertRecQuery);
end;
qry := FInsertQry;
end;
ukDelete : begin
if not assigned(FDeleteQry) and (trim(FDeleteSQL.Text)<> '') then
InitialiseModifyQuery(FDeleteQry,FDeleteSQL.Text)
else
InitialiseModifyQuery(FDeleteQry,DeleteRecQuery);
if not assigned(FDeleteQry) then
begin
if (trim(FDeleteSQL.Text)<> '') then
InitialiseModifyQuery(FDeleteQry,FDeleteSQL.Text)
else
InitialiseModifyQuery(FDeleteQry,DeleteRecQuery);
end;
qry := FDeleteQry;
end;
end;