diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-05-16 12:40:36 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2016-05-16 12:40:36 +0200 |
| commit | fc0f2c5f88544ae2f5ab208efa137747a14da44d (patch) | |
| tree | 7347b51ecea91960ec4b71a261c282e8ca836b8b /wizards/source/access2base/Application.xba | |
| parent | 8c82dfe085ec0a7c27123927743387ecd8406846 (diff) | |
Access2Base - CopyObject method extended to MySql and Sqlite
Tables must belong to the same database.
INSERT SQL statement syntax extended
Table- and fieldnames correct surrounding
Correction of incident declared in
https://ask.libreoffice.org/en/question/69795/access2base-findrecord-only-for-numbers/
Change-Id: Ice148d872cacfc80df421132020ab1717e7c908c
Diffstat (limited to 'wizards/source/access2base/Application.xba')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index ae7483b0ac8e..95f81dffb5ea 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1112,7 +1112,7 @@ Public Function OpenDatabase ( _ ' Return a database object based on input arguments: ' Call template: -' Call OpenConnection("... databaseURL ..."[, "", "", True/False]) +' Call OpenDatabase("... databaseURL ..."[, "", "", True/False]) ' pvDatabaseURL maby be the name of a registered database or the URL of the targeted .odb file ' Might be called from any AOO/LibO application, independently from OpenConnection @@ -1120,7 +1120,10 @@ Dim odbDatabase As Variant, oBaseContext As Object, sDbNames() As String, oBaseS Dim i As Integer, bFound As Boolean Dim sDatabaseURL As String - If IsEmpty(_A2B_) Then Call Application._RootInit() ' First use of Access2Base in current AOO/LibO session + If IsEmpty(_A2B_) Then ' First use of Access2Base in current AOO/LibO session + Call Application._RootInit() + TraceLog(TRACEANY, Utils._GetProductName() & " - " & Application.ProductCode(), False) + End If Set OpenDatabase = Nothing If _ErrorHandler() Then On Local Error Goto Error_Function @@ -1173,7 +1176,6 @@ Const cstThisSub = "OpenDatabase" Set OpenDatabase = odbDatabase - TraceLog(TRACEANY, Utils._GetProductName() & " - " & Application.ProductCode(), False) TraceLog(TRACEANY, odbDatabase.MetaData.getDatabaseProductName() & " " & odbDatabase.MetaData.getDatabaseProductVersion, False) TraceLog(TRACEANY, UCase(cstThisSub) & " " & odbDatabase.URL, False) |