From ee123bbaf9ed9a4f7394f7c25fd7f1b579ed831f Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sun, 22 Feb 2009 17:25:24 +0000
Subject: [PATCH]  * Set default value of UsePrimaryKeyAsKey to fix streaming,
 bug #13207

git-svn-id: trunk@12773 -
---
 packages/fcl-db/src/sqldb/sqldb.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp
index a96adbb937..70c2da198b 100644
--- a/packages/fcl-db/src/sqldb/sqldb.pp
+++ b/packages/fcl-db/src/sqldb/sqldb.pp
@@ -305,7 +305,7 @@ type
     property InsertSQL : TStringlist read FInsertSQL write SetInsertSQL;
     property DeleteSQL : TStringlist read FDeleteSQL write SetDeleteSQL;
     property Params : TParams read FParams write FParams;
-    property UpdateMode : TUpdateMode read FUpdateMode write SetUpdateMode;
+    property UpdateMode : TUpdateMode read FUpdateMode write SetUpdateMode default upWhereKeyOnly;
     property UsePrimaryKeyAsKey : boolean read FUsePrimaryKeyAsKey write SetUsePrimaryKeyAsKey default true;
     property StatementType : TStatementType read GetStatementType;
     property ParseSQL : Boolean read FParseSQL write SetParseSQL default true;