Browse Source

fcl-db: sqldb: always call in TSQLQuery.InternalOpen BindFields so all private variables are calculated properly (f.e. FBlobFieldCount)

git-svn-id: trunk@27919 -
lacak 11 years ago
parent
commit
5c936f0ecf
1 changed files with 2 additions and 4 deletions
  1. 2 4
      packages/fcl-db/src/sqldb/sqldb.pp

+ 2 - 4
packages/fcl-db/src/sqldb/sqldb.pp

@@ -2210,7 +2210,6 @@ begin
     //Cursor.FSelectable:=True;
     //Cursor.FSelectable:=True;
     //Cursor.FStatementType:=stSelect;
     //Cursor.FStatementType:=stSelect;
     FUpdateable:=True;
     FUpdateable:=True;
-    BindFields(True);
     end
     end
   else
   else
     begin
     begin
@@ -2253,10 +2252,9 @@ begin
             end;
             end;
           end;
           end;
         end;
         end;
-      end
-    else
-      BindFields(True);
+      end;
     end;
     end;
+  BindFields(True);
 
 
   if not ReadOnly and not FUpdateable and (FSchemaType=stNoSchema) then
   if not ReadOnly and not FUpdateable and (FSchemaType=stNoSchema) then
     begin
     begin