+ moved empty databasename check to TSQLConnection

git-svn-id: trunk@1860 -

fcl/db/sqldb/interbase/ibconnection.pp

@@ -243,8 +243,6 @@ begin
      DPB := DPB + chr(isc_dpb_sql_role_name) + chr(Length(Role)) + Role;
   if Length(CharSet) > 0 then
     DPB := DPB + Chr(isc_dpb_lc_ctype) + Chr(Length(CharSet)) + CharSet;
-  if (DatabaseName = '') then
-    DatabaseError(SErrNoDatabaseName,self);
 
   FSQLDatabaseHandle := nil;
   if isc_attach_database(@FStatus, Length(DatabaseName), @DatabaseName[1], @FSQLDatabaseHandle,

fcl/db/sqldb/postgres/pqconnection.pp

@@ -269,9 +269,6 @@ begin
 
   inherited dointernalconnect;
 
-  if (DatabaseName = '') then
-    DatabaseError(SErrNoDatabaseName,self);
-
   FConnectString := '';
   if (UserName <> '') then FConnectString := FConnectString + ' user=''' + UserName + '''';
   if (Password <> '') then FConnectString := FConnectString + ' password=''' + Password + '''';

fcl/db/sqldb/sqldb.pp

@@ -297,7 +297,8 @@ end;
 
 procedure TSQLConnection.DoInternalConnect;
 begin
-// Empty abstract
+  if (DatabaseName = '') then
+    DatabaseError(SErrNoDatabaseName,self);
 end;
 
 procedure TSQLConnection.DoInternalDisconnect;