! Splitdatenbank mit local class path: Sicherheitskopie kann Original-DB verändern!

[Freischreiber]

Hallo,

ich betreibe meine Splitdatenbank nicht mit einem fest eingestellten Class-path, sondern verwende dieses Makro, um Base den Weg zur DB zu zeigen:
(Quelle: https://forum.openoffice.org/en/forum/v ... 80#p293026)

Code: Alles auswählen

'Instructions for use:
' (1) manually remove any global Class Path to hsqldb.jar if setup in Tools > Options > *Office > Java/Advanced > Class Path
' (2) macro security must be set to Medium (or Low) in Tools > Options > *Office > Security > Macro Security
' (3) place this file in a dedicated (empty) database folder
' (4) add a copy of the HSQLDB engine (hsqldb.jar) to the database folder.
' (5) when copying this code to another .odb, add this macro to: Tools > Customize... > Events > Open Document

Sub Setup 'Tools > Customize... > Events > Open Document 
 'Globalscope.BasicLibraries.LoadLibrary("MRILib")
 On Error Goto ErrorHandler
  'get the current path to this .odb file
	sPathURL = ThisDatabaseDocument.URL
	sPath = ConvertFromURL(sPathURL)
	sName = ThisDatabaseDocument.Title
	iLen = InStr(sPath, sName)
	sPath = Left(sPath, iLen-1)
	    
  'setup Class Path
  ClassPath:
	sClassPath = sPath & "hsqldb.jar"
	If Not FileExists(sClassPath) Then 
		sLine1 = "Please add a copy of the HSQLDB engine (hsqldb.jar) to the current folder :  "
		sLine2 = "NOTE:  This is necessary for proper wizard function, but additional benefits include : " 
		sLine3 = "* enhanced portability of the database-folder"
		sLine4 = "* ensures database compatibility across computers and *Office installations"
		sLine5 = "* guards against inadvertent upgrade of your database since the results are uncertain and irreversible"
		sLine6 = "* hsqldb 2.x provides a built-in database management GUI accessible by clicking hsqldb.jar."
		iButton = MsgBox (chr(13) & sLine1 & chr(13) & chr(13) & sPath & chr(13) & chr(13) & sLine2 & chr(13) & sLine3 & _
		chr(13) & sLine4 & chr(13) & sLine5 & chr(13) & sLine6, 18, "hsqldb.jar not found")
		If iButton = 3 Then Exit Sub 'ThisDatabaseDocument.close(True)
		If iButton = 4 Then Goto ClassPath
	End If
	sClassPath = ConvertToURL(sClassPath)
	ThisDatabaseDocument.DataSource.Settings.JavaDriverClassPath = sClassPath
    
  'get the HSQL database name from the current folder
	NextFile = Dir(sPath, 0)
	While NextFile <> ""
		If (Right(NextFile, 7) = ".script") Then dbName = (Left(NextFile, Len(NextFile)-7))
		NextFile = Dir
	Wend
    
	If dbName = Empty Then 
		sLine1 = "Optionally provide a name for your back-end data files. "
		sLine2 = "NOTE: The particular name is not important. The default below will suffice. "
		dbName = InputBox(sLine1 & chr(13) & chr(13) & sLine2, "Create a new database    *   JDBC  |  HSQL database engine  |  non-embedded data files   *", "mydb")
		If dbName = "" Then dbName = "mydb"
	End If
    
  'check for existing database
	sLine1 = "A new database will be created in the current folder:  "
	sLine2 = "NOTE: This folder constitutes your ""database."" "
	sLine3 = "A dedicated database folder is fully portable, and as such it may be renamed or moved as desired."
	sLine4 = "NOTE: This Base front-end file (" & sName & ") must remain in this database folder.  "
	sLine5 = "You may rename this file as desired, but do maintain the .odb extension if visible. Create a desktop shortcut to this file as desired."
	sLine6 = "NOTE: The back-end HSQL data files will be named: " & dbName & ".*  "
	sLine7 = "These files must also remain in this database folder."
	If Not FileExists(sPath & dbName & ".script") Then MsgBox sLine1 & chr(13)_
		& sPath & chr(13) & chr(13) & sLine2 & sLine3 _
		& chr(13) & chr(13) & sLine4 & sLine5 _
		& chr(13) & chr(13) & sLine6 & sLine7 _
		, 64, "Please Read"
     
  'setup Data Source URL
	sURL_prefix = "jdbc:hsqldb:"
	sURL_args = ";default_schema=true;shutdown=true;hsqldb.default_table_type=cached;get_column_name=false"
	sURL = sURL_prefix & "file:///" & sPath & dbName & sURL_args
	ThisDatabaseDocument.DataSource.URL = sURL
	Exit Sub

  ErrorHandler: 
	MsgBox "Error " & Err & ": " & Error$ & " (line : " & Erl & ")", 16, "Setup: macro code error"
End Sub

Das Makro wird nach Pfadänderungen einmal gestartet und "findet" dann die DB, die im gleichen Verzeichnis wie die .odb-Datei ist. Vorteil ist, daß Datenbanken mit eingebetteter HSQL-DB trotzdem weiter benutzt werden können.

Heute habe ich aber einen Pferdefuß entdeckt: Wenn ich in Sicherheitskopien meines DB-Verzeichnisses die .odb-Datei öffne und Sachen ausprobiere, dann tue ich das zwar an einer Kopie der .odb-Datei, aber an den Original-Datenbankdateien!

Ganz logisch: Auch in der DB-Kopie zeigt der per Makro eingestellte Pfad auf die Original-DB-Dateien. Man kann es an der Pfadangabe unten im Base-Hauptfenster auch erkennen. Aber: wer schaut da schon hin?

Abhilfe: Direkt nach dem Starten der Sicherheitskopie das obige Makro einmal ausführen, und der Pfad wird angepaßt. Solange man das nicht tut, spielt man trotz Sicherheitskopie an den Original-Tabellen herum.

Vielleicht wäre es sogar besser, das Makro bei jedem Öffnen der Datei ausführen zu lassen...

Gruß
Freischreiber

[F3K Total]

Vielleicht wäre es sogar besser, das Makro bei jedem Öffnen der Datei ausführen zu lassen...

Genau so mache ich es.
Gruß R