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

* Patch from Ondrej Pokorny to allow customizing the kind of query being created (bug ID 0033863)

Browse Source 
git-svn-id: trunk@39238 -
This commit is contained in:
michael 2018-06-17 10:10:50 +00:00
parent e8f74fdbdb
commit 373061043b
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -694,6 +694,7 @@ type
Procedure SetDatabase (Value : TDatabase); virtual; Procedure SetDatabase (Value : TDatabase); virtual;
Procedure SetTransaction(Value : TDBTransaction); virtual; Procedure SetTransaction(Value : TDBTransaction); virtual;
Procedure CheckDatabase; Procedure CheckDatabase;
function CreateQuery: TCustomSQLQuery; virtual;
public public
constructor Create(AOwner : TComponent); override; constructor Create(AOwner : TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -3319,11 +3320,16 @@ begin
DatabaseError(SErrNoDatabaseAvailable,Self) DatabaseError(SErrNoDatabaseAvailable,Self)
end; end;
function TSQLScript.CreateQuery: TCustomSQLQuery;
begin
Result := TCustomSQLQuery.Create(nil);
Result.ParamCheck := false; // Do not parse for parameters; breaks use of e.g. select bla into :bla in Firebird procedures
end;
constructor TSQLScript.Create(AOwner: TComponent); constructor TSQLScript.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FQuery := TCustomSQLQuery.Create(nil); FQuery := CreateQuery;
FQuery.ParamCheck := false; // Do not parse for parameters; breaks use of e.g. select bla into :bla in Firebird procedures
end; end;
destructor TSQLScript.Destroy; destructor TSQLScript.Destroy;