[Libreoffice-commits] core.git: wizards/source

[Libreoffice Gerrit user]

 wizards/source/access2base/Database.xba    |    7 +++++--
 wizards/source/access2base/acConstants.xba |    2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

New commits:
commit 7a7eb2c270d598cb15ce38cefceeecba149fe467
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Sun Jul 29 12:22:17 2018 +0200
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Sun Jul 29 12:22:17 2018 +0200

    Access2Base - FIX: flush external connections
    
    Connections opened with DoCmd.OpenDatabase
    were not flushed when closed explicitly.
    Risk of data loss.

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index 3bd3bced482b..2a61d7e3c73a 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -227,8 +227,11 @@ Const cstThisSub = "Database.Close"
 	mClose = False
 	If _DbConnect <> DBCONNECTANY Then Goto Error_NotApplicable
 
-	Connection.close()
-	Connection.dispose()
+	With Connection
+		.flush
+		.close()
+		.dispose()
+	End With
 	Set Connection = Nothing
 	mClose = True
 
diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba
index ae969182433f..e7961f5af4b0 100644
--- a/wizards/source/access2base/acConstants.xba
+++ b/wizards/source/access2base/acConstants.xba
@@ -9,7 +9,7 @@ REM ============================================================================
 Option Explicit
 
 REM Access2Base -----------------------------------------------------
-Global Const Access2Base_Version = "1.9.0"
+Global Const Access2Base_Version = "6.2.0"		'	Alignment on LibreOffice versions
 
 REM AcCloseSave
 REM -----------------------------------------------------------------