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

[Jean-Pierre Ledure]

 wizards/source/access2base/Application.xba |    2 +-
 wizards/source/access2base/Database.xba    |   24 +++++++++++++++++++++++-
 2 files changed, 24 insertions(+), 2 deletions(-)

New commits:
commit a7e469a286d73440479393f33c05797621d553e8
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Fri Nov 11 13:30:37 2016 +0100

    Access2Base - New properties in Database class
    
    Name, Connect and Version
    
    Change-Id: Ief0da378fd8927df7accdfc0157547670ca203de

diff --git a/wizards/source/access2base/Application.xba 
b/wizards/source/access2base/Application.xba
index ec3f729..19a8720 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -1046,7 +1046,7 @@ Const cstThisSub = &quot;OpenConnection&quot;
                                .URL = vDocContainer.URL
                                ReDim vDbContainers(0 To 0)
                                Set vDbContainers(0) = vDbContainer
-                               TraceLog(TRACEANY, 
.MetaData.getDatabaseProductName() &amp; &quot; &quot; &amp; 
.MetaData.getDatabaseProductVersion, False)
+                               TraceLog(TRACEANY, .Version, False)
                                TraceLog(TRACEANY, UCase(cstThisSub) &amp; 
&quot; &quot; &amp; .URL, False)
                        End With
                Case Else
diff --git a/wizards/source/access2base/Database.xba 
b/wizards/source/access2base/Database.xba
index a68c64e..1f44cf7 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -88,11 +88,26 @@ REM 
----------------------------------------------------------------------------
 REM --- CLASS GET/LET/SET PROPERTIES                                           
                                                                                
                                ---
 REM 
-----------------------------------------------------------------------------------------------------------------------
 
+Property Get Connect() As String
+       Connect = _PropertyGet(&quot;Connect&quot;)
+End Property           &apos;  Connect (get)
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
+Property Get Name() As String
+       Name = _PropertyGet(&quot;Name&quot;)
+End Property           &apos;  Name (get)
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
 Property Get ObjectType() As String
        ObjectType = _PropertyGet(&quot;ObjectType&quot;)
 End Property           &apos;  ObjectType (get)
 
 REM 
-----------------------------------------------------------------------------------------------------------------------
+Property Get Version() As String
+       Version = _PropertyGet(&quot;Version&quot;)
+End Property           &apos;  Version (get)
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
 REM --- CLASS METHODS                                                          
                                                                                
                                                ---
 REM 
-----------------------------------------------------------------------------------------------------------------------
 
@@ -1580,7 +1595,7 @@ End Function      &apos;  _OutputToHTML   V1.4.0
 REM 
-----------------------------------------------------------------------------------------------------------------------
 Private Function _PropertiesList() As Variant
 
-       _PropertiesList = Array(&quot;ObjectType&quot;)
+       _PropertiesList = Array(&quot;Connect&quot;, &quot;Name&quot;, 
&quot;ObjectType&quot;, &quot;Version&quot;)
 
 End Function   &apos;  _PropertiesList
 
@@ -1594,8 +1609,15 @@ Dim vEMPTY As Variant
        _PropertyGet = vEMPTY
        
        Select Case UCase(psProperty)
+               Case UCase(&quot;Connect&quot;)
+                       _PropertyGet = Document.Datasource.URL
+               &apos;  Location = ConvertFromUrl(URL)
+               Case UCase(&quot;Name&quot;)
+                       _PropertyGet = Title
                Case UCase(&quot;ObjectType&quot;)
                        _PropertyGet = _Type
+               Case UCase(&quot;Version&quot;)
+                       _PropertyGet = MetaData.getDatabaseProductName() &amp; 
&quot; &quot; &amp; MetaData.getDatabaseProductVersion
                Case Else
                        Goto Trace_Error
        End Select
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits