Predmet:backup podataka splitovane baze
nešto ne valja za backup baze:koliko se sjecam trebala bi riješiti backup splitovane accessove baze ali mi ne prolazi nemam ideje
Function BackupDatabase()
Dim strSource As String, strOutput As String, strBackup As String, strDate As String,
Dim strFileName As String, strSource2 As String
With Access.Application
' Get Database File Name and Path
strBackup = .CurrentProject.Path
strSource = .CurrentProject.FullName
strFileName = .CurrentProject.Name
' Create a backup folder in the same directory if one doesn't already exist
strOutput = strBackup & "\Backup\"
If Not Dir(strOutput, vbDirectory) > vbNullString Then MkDir strOutput
' Copy the database from Source to Output
Dim fso As FileSystemObject
Dim db As New Access.Application
Set fso = New FileSystemObject
fso.CopyFile strSource, strOutput
Dim sWinZip As String
Dim sZipFile As String
Dim sZipFileName As String
Dim sFileToZip As String
sWinZip = "C:\Program Files\WinRar\WinRar.exe" 'Location of the WinRar program
sZipFileName = Left(strFileName, InStr(1, strFileName, ".", vbTextCompare) - 1) & _
" " & Format(Date, "dd.mm.yyyy") & " " & Format(Time, "hh.mm.ss") & ".rar"
sZipFile = strOutput & sZipFileName
sZipFile = Chr(34) & sZipFile & Chr(34)
sFileToZip = strOutput & strFileName
sFileToZip = Chr(34) & sFileToZip & Chr(34)
strOutput = Chr(34) & strOutput & Chr(34)
Call Shell(sWinZip & " a -ep " & sZipFile & " " & sFileToZip)
Beep
MsgBox "Backup copy is saved at " & Chr(13) & Chr(13) & strOutput &_
Chr(13) & Chr(13) & "Ôà¼ë ñå çîâå " & Chr(13) & Chr(13) & sZipFileName, vbInformation, "Backup successful!"
Set fso = Nothing
Kill strBackup & "\Backup\" & strFileName
Beep
End With
End Function
***
aplikacija je na c:\data\plata.mdb
baza je na C:\data\plata_be.mdb
za backup bi trebalo biti Plata_be+datum
svaka ideja je dobro došla