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

* When the dataset is read from file, do not prepare the sql-statement

Browse Source 
* Datasets which are read from file are in principle modifyable

git-svn-id: trunk@13264 -
This commit is contained in:
joost 2009-06-12 15:35:56 +00:00
parent bf5666675a
commit 9f93cccd7a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -1214,7 +1214,14 @@ var tel, fieldc : integer;
ReadFromFile: Boolean;
begin
ReadFromFile:=IsReadFromPacket;
Prepare;
if ReadFromFile then
begin
FCursor:=TSQLCursor.Create;
FCursor.FStatementType:=stSelect;
FUpdateable:=True;
end
else
Prepare;
if FCursor.FStatementType in [stSelect,stExecProcedure] then
begin
if not ReadFromFile then