소스 검색

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 년 전
부모
커밋
5c936f0ecf
1개의 변경된 파일2개의 추가작업 그리고 4개의 파일을 삭제
  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.FStatementType:=stSelect;
     FUpdateable:=True;
-    BindFields(True);
     end
   else
     begin
@@ -2253,10 +2252,9 @@ begin
             end;
           end;
         end;
-      end
-    else
-      BindFields(True);
+      end;
     end;
+  BindFields(True);
 
   if not ReadOnly and not FUpdateable and (FSchemaType=stNoSchema) then
     begin