Browse Source

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

git-svn-id: trunk@2937 -
joost 19 years ago
parent
commit
ce902aedee
1 changed files with 1 additions and 0 deletions
  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 (Password <> '') then FConnectString := FConnectString + ' password=''' + Password + '''';
   if (HostName <> '') then FConnectString := FConnectString + ' host=''' + HostName + '''';
   if (HostName <> '') then FConnectString := FConnectString + ' host=''' + HostName + '''';
   if (DatabaseName <> '') then FConnectString := FConnectString + ' dbname=''' + DatabaseName + '''';
   if (DatabaseName <> '') then FConnectString := FConnectString + ' dbname=''' + DatabaseName + '''';
+  if (Params.Text <> '') then FConnectString := FConnectString + ' '+Params.Text;
 
 
   FSQLDatabaseHandle := PQconnectdb(pchar(FConnectString));
   FSQLDatabaseHandle := PQconnectdb(pchar(FConnectString));