From 9f93cccd7ae3f7eaa9858604f0d72a8ab218baeb Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 12 Jun 2009 15:35:56 +0000
Subject: [PATCH]  * When the dataset is read from file, do not prepare the
 sql-statement  * Datasets which are read from file are in principle
 modifyable

git-svn-id: trunk@13264 -
---
 packages/fcl-db/src/sqldb/sqldb.pp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp
index 047ed3c8fd..be2cfa6785 100644
--- a/packages/fcl-db/src/sqldb/sqldb.pp
+++ b/packages/fcl-db/src/sqldb/sqldb.pp
@@ -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