diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-09-01 16:23:53 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-09-01 16:23:53 +0200 |
| commit | a9db401c6d3d7089f91940745c94648672bc663f (patch) | |
| tree | d3095eebbdcf1806cd939ce6573bb9ab6c1c298f /wizards | |
| parent | c0c293089af962661cf3809d5b207149ed4619ed (diff) | |
Access2Base - Add Location property to Database object (2)
Addition of Location property in OpenConnection sub
Change-Id: I58c278b3ff60290709df2e00ee48a05010813f4d
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 2 |
1 files changed, 2 insertions, 0 deletions
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) |