Merged revisions 4328 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r4328 | joost | 2006-08-01 23:59:39 +0200 (Tue, 01 Aug 2006) | 1 line
  
   + Fix for bug #7144
........

git-svn-id: branches/fixes_2_0@4438 -

fcl/db/sqldb/sqldb.pp

@@ -950,11 +950,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);