diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-07-29 12:22:17 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-07-29 12:22:17 +0200 |
| commit | 7a7eb2c270d598cb15ce38cefceeecba149fe467 (patch) | |
| tree | 269d1aae4db086447f074116cf37302931c6ed4a /wizards | |
| parent | e593b623dad9456d3452c4c537479596bcd0b00b (diff) | |
Access2Base - FIX: flush external connections
Connections opened with DoCmd.OpenDatabase
were not flushed when closed explicitly.
Risk of data loss.
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 7 | ||||
| -rw-r--r-- | wizards/source/access2base/acConstants.xba | 2 |
2 files changed, 6 insertions, 3 deletions
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 ----------------------------------------------------------------- |