Access2Base - FIX: flush external connections

Connections opened with DoCmd.OpenDatabase
were not flushed when closed explicitly.
Risk of data loss.
This commit is contained in:
Jean-Pierre Ledure
2018-07-29 12:22:17 +02:00
parent e593b623da
commit 7a7eb2c270
2 changed files with 6 additions and 3 deletions

View File

@@ -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

View File

@@ -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 -----------------------------------------------------------------