소스 검색

* fixed bug #4837, as suggested by submitter Tomasz Łobejko

git-svn-id: trunk@2937 -
joost 19 년 전
부모
커밋
ce902aedee
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      fcl/db/sqldb/postgres/pqconnection.pp

+ 1 - 0
fcl/db/sqldb/postgres/pqconnection.pp

@@ -273,6 +273,7 @@ begin
   if (Password <> '') then FConnectString := FConnectString + ' password=''' + Password + '''';
   if (HostName <> '') then FConnectString := FConnectString + ' host=''' + HostName + '''';
   if (DatabaseName <> '') then FConnectString := FConnectString + ' dbname=''' + DatabaseName + '''';
+  if (Params.Text <> '') then FConnectString := FConnectString + ' '+Params.Text;
 
   FSQLDatabaseHandle := PQconnectdb(pchar(FConnectString));