paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure FieldDefs.Update operates on prepared query

Browse Source 
git-svn-id: trunk@43037 -
This commit is contained in:
michael 2019-09-19 08:02:05 +00:00
parent b9e94a961d
commit 9396decb19
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -536,6 +536,7 @@ type
procedure ApplyFilter; procedure ApplyFilter;
Function AddFilter(SQLstr : string) : string; Function AddFilter(SQLstr : string) : string;
protected protected
procedure OpenCursor(InfoQuery: Boolean); override;
function CreateSQLStatement(aOwner: TComponent): TCustomSQLStatement; virtual; function CreateSQLStatement(aOwner: TComponent): TCustomSQLStatement; virtual;
Function CreateParams: TSQLDBParams; virtual; Function CreateParams: TSQLDBParams; virtual;
Function RefreshLastInsertID(Field: TField): Boolean; virtual; Function RefreshLastInsertID(Field: TField): Boolean; virtual;
@ -2791,6 +2792,18 @@ begin
Result := SQLstr; Result := SQLstr;
end; end;
procedure TCustomSQLQuery.OpenCursor(InfoQuery: Boolean);
begin
if InfoQuery then
CheckPrepare;
try
inherited OpenCursor(InfoQuery);
finally
if InfoQuery then
CheckUnPrepare;
end;
end;
function TCustomSQLQuery.NeedRefreshRecord(UpdateKind: TUpdateKind): Boolean; function TCustomSQLQuery.NeedRefreshRecord(UpdateKind: TUpdateKind): Boolean;