[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 <j...@ledure.be>
AuthorDate: Sat Sep 1 16:23:53 2018 +0200
Commit:     Jean-Pierre Ledure <j...@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 = &quot;OpenConnection&quot;
                                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 = &quot;OpenDatabase&quot;
                If UCase(Right(sDatabaseURL, 4)) &lt;&gt; &quot;.ODB&quot; 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)
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits