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

[Libreoffice Gerrit user]

 wizards/source/access2base/Application.xba |    2 ++
 1 file changed, 2 insertions(+)

New commits:
commit a9db401c6d3d7089f91940745c94648672bc663f
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Sat Sep 1 16:23:53 2018 +0200
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Sat Sep 1 16:23:53 2018 +0200

    Access2Base - Add Location property to Database object (2)
    
    Addition of Location property in OpenConnection sub
    
    Change-Id: I58c278b3ff60290709df2e00ee48a05010813f4d

diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba
index 0e695e6c1891..a29bdd813654 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -1222,6 +1222,7 @@ Const cstThisSub = "OpenConnection"
 				Set .Document = oComponent
 				.Title = oComponent.Title
 				.URL = vDocContainer.URL
+				.Location = oComponent.Location
 				ReDim vDbContainers(0 To 0)
 				Set vDbContainers(0) = vDbContainer
 				TraceLog(TRACEANY, .Version, False)
@@ -1339,6 +1340,7 @@ Const cstThisSub = "OpenDatabase"
 		If UCase(Right(sDatabaseURL, 4)) <> ".ODB" Then Goto Trace_Error
 		If Not FileExists(sDatabaseURL) Then Goto Trace_Error
 		Set oBaseSource = oBaseContext.getByName(sDatabaseURL)
+		odbDatabase.Location = sDatabaseURL
 	End If
 
 	Set odbDatabase.Connection = oBaseSource.getConnection(pvUser, pvPassword)