OpenOffice.info

Code: Alles auswählen

SUB Datenbankbackup
	REM Von der Datenbankdatei *.odb wird eine Kopie in das Backup-Verzeichnis erstellt. 
	REM Die Maximalzahl an Kopien ist auf 5 Kopien eingestellt. Anschließend wird die älteste Kopie ersetzt.
	REM Dieses Verfahren deckt nicht ab:
	REM - Dateneingaben, die bei bereits geöffneter Datenbank gemacht werden, da die Daten erst beim Schließen der Datei in die *.odb-Datei geschrieben werden.
	DIM oPath AS OBJECT
	DIM oDoc AS OBJECT
	DIM sTitel AS STRING
	DIM sUrl_Ziel AS STRING
	DIM sUrl_Start AS STRING
	DIM i AS INTEGER
	DIM k AS INTEGER
	oDoc = ThisComponent
	sTitel = oDoc.Title
	sUrl_Start = oDoc.URL
	oPath = createUnoService("com.sun.star.util.PathSettings")
	FOR i = 1 TO 6
		IF NOT FileExists(oPath.Backup & "/" & i & "_" & sTitel) THEN
			IF i > 5 THEN
				FOR k = 1 TO 4
				IF FileDateTime(oPath.Backup & "/" & k & "_" & sTitel) <=  FileDateTime(oPath.Backup & "/" & k+1 & "_" & sTitel) THEN
					i = k
					EXIT FOR
				END IF
				NEXT
			END IF
			EXIT FOR
		END IF
	NEXT
	sUrl_Ziel = oPath.Backup & "/" & i &"_" & sTitel
	FileCopy(sUrl_Start,sUrl_Ziel)
END SUB

Code: Alles auswählen

.flush

Code: Alles auswählen

sub Testflush
oCon = ThisDatabaseDocument.CurrentController
If NOT ( oCon.isConnected() ) Then oCon.connect()
oDataSource = ocon.DataSource
oDataSource.flush
end sub