paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 00:42:06 +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

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

@ -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);