paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for bug #7144

Browse Source 
git-svn-id: trunk@4328 -
This commit is contained in:
joost 2006-08-01 21:59:39 +00:00
parent d979196df0
commit 47e692b60b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/sqldb/sqldb.pp
View File

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