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

* Fix prepare without parameters

Browse Source 
git-svn-id: trunk@43003 -
This commit is contained in:
michael 2019-09-15 10:14:29 +00:00
parent 671e3ddec7
commit f4921daee6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -947,8 +947,10 @@ begin
end; end;
FPrepared := True; FPrepared := True;
end end
else if Assigned(AParams) then
Statement := AParams.ParseSQL(buf,false,sqEscapeSlash in ConnOptions, sqEscapeRepeat in ConnOptions,psPostgreSQL)
else else
Statement := AParams.ParseSQL(buf,false,sqEscapeSlash in ConnOptions, sqEscapeRepeat in ConnOptions,psPostgreSQL); Statement:=Buf;
end; end;
end; end;