+ Fix for bug #7144

git-svn-id: trunk@4328 -

fcl/db/sqldb/sqldb.pp

@@ -948,11 +948,14 @@ begin
                 end;
               end;
             end;
-          InitialiseModifyQuery(FDeleteQry,FDeleteSQL);
-          InitialiseModifyQuery(FUpdateQry,FUpdateSQL);
-          InitialiseModifyQuery(FInsertQry,FInsertSQL);
           end;
         end;
+      if FUpdateable then
+        begin
+        InitialiseModifyQuery(FDeleteQry,FDeleteSQL);
+        InitialiseModifyQuery(FUpdateQry,FUpdateSQL);
+        InitialiseModifyQuery(FInsertQry,FInsertSQL);
+        end;
       end
     else
       DatabaseError(SErrNoSelectStatement,Self);