paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +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;
FPrepared := True;
end
else if Assigned(AParams) then
Statement := AParams.ParseSQL(buf,false,sqEscapeSlash in ConnOptions, sqEscapeRepeat in ConnOptions,psPostgreSQL)
else
Statement := AParams.ParseSQL(buf,false,sqEscapeSlash in ConnOptions, sqEscapeRepeat in ConnOptions,psPostgreSQL);
Statement:=Buf;
end;
end;