Skip to content

Commit 18d8976

Browse files
author
Arnaud Bouchez
committed
db: fixed TSqlDBConnectionProperties.UseCache
with IBX and ZDBC backends
1 parent a3c60f5 commit 18d8976

File tree

3 files changed

+6
-6
lines changed

3 files changed

+6
-6
lines changed

src/db/mormot.db.sql.ibx.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1397,7 +1397,7 @@ constructor TSqlDBIbxConnectionProperties.Create(const aServerName,
13971397
fBatchMaxSentAtOnce := 10000; // iters <= 32767 for better performance
13981398
if aServerName = '' then
13991399
ThreadingMode := tmMainConnection;
1400-
fUseCache := true;
1400+
UseCache := true;
14011401
inherited Create(aServerName, aDatabaseName, aUserID, aPassWord);
14021402
end;
14031403

src/db/mormot.db.sql.zeos.pas

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -499,7 +499,7 @@ constructor TSqlDBZeosConnectionProperties.CreateWithZURL(const aUrl: TZURL;
499499
if StrToBoolDef(fUrl.Properties.Values['syndb_singleconnection'], false) then
500500
ThreadingMode := tmMainConnection;
501501
// caching disabled by default - enabled if stable enough
502-
fUseCache := {$ifdef ZEOS72UP}true{$else}false{$endif ZEOS72UP};
502+
UseCache := {$ifdef ZEOS72UP}true{$else}false{$endif ZEOS72UP};
503503
case fDbms of
504504
dSQLite:
505505
begin
@@ -518,15 +518,15 @@ constructor TSqlDBZeosConnectionProperties.CreateWithZURL(const aUrl: TZURL;
518518
SQLCreateDatabase(StringToUtf8(fUrl.Database))));
519519
end;
520520
fUrl.Properties.Add('codepage=UTF8');
521-
fUseCache := true; // caching rocks with Firebird ZDBC provider :)
521+
UseCache := true; // caching rocks with Firebird ZDBC provider :)
522522
end;
523523
dOracle,
524524
dPostgreSQL,
525525
dMySQL,
526526
dMariaDB:
527527
begin
528528
fUrl.Properties.Add('codepage=UTF8');
529-
fUseCache := true;
529+
UseCache := true;
530530
end;
531531
end;
532532
fStatementParams := TStringList.Create;
@@ -576,7 +576,7 @@ constructor TSqlDBZeosConnectionProperties.CreateWithZURL(const aUrl: TZURL;
576576
end;
577577
dMSSQL:
578578
begin
579-
fUseCache := true;
579+
UseCache := true;
580580
fStatementParams.Add('enhanced_column_info=false');
581581
//fStatementParams.Add('use_ole_update_params=True'); //see 'ADO'
582582
//fStatementParams.Add('internal_buffer_size=131072'); //see 'ADO'

src/mormot.commit.inc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
'2.3.12796'
1+
'2.3.12797'

0 commit comments

Comments
 (0)