* Call GetDBDialect in DoConnect since in DoInternalConnect Connected is false, so GetDBDialect effectively does nothing

git-svn-id: trunk@8940 -

packages/fcl-db/src/sqldb/interbase/ibconnection.pp

@@ -69,6 +69,7 @@ type
     procedure FreeSQLDABuffer(var aSQLDA : PXSQLDA);
     function  IsDialectStored: boolean;
   protected
+    procedure DoConnect; override;
     procedure DoInternalConnect; override;
     procedure DoInternalDisconnect; override;
     function GetHandle : pointer; override;
@@ -389,7 +390,6 @@ begin
     @FSQLDatabaseHandle,
          Length(DPB), @DPB[1]) <> 0 then
     CheckError('DoInternalConnect', FStatus);
-  FDbDialect := GetDBDialect;
 end;
 
 function TIBConnection.GetDialect: integer;
@@ -609,6 +609,12 @@ begin
   result := (FDialect<>-1);
 end;
 
+procedure TIBConnection.DoConnect;
+begin
+  inherited DoConnect;
+  FDbDialect := GetDBDialect;
+end;
+
 procedure TIBConnection.FreeFldBuffers(cursor : TSQLCursor);
 
 begin