nevsad 06.06.2012 20:31
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

pmiroslav 07.06.2012 10:06
Predmet:Re: backup podataka splitovane baze

U modulu u reference moraš dodati 'Microsoft Scripting Runtime'
C:\Windows\System32\scrrun.dll

Ja sam sa tim probao i kod mene radi. Napravljena mi je datoteka 'Plata 07.06.2012 11.01.20.rar'

nevsad 08.06.2012 18:11
Predmet:Re: backup podataka splitovane baze

U modulu u reference sam dodao 'Microsoft Scripting Runtime'
i compajler me vati na
Set fso = New FileSystemObject

***
koristim access 2003

zxz 08.06.2012 23:33
Predmet:Re: backup podataka splitovane baze

asto ne koristis stari i besplatan pkzip i pkunzip.
Em su mali em dobro rade.

zxz 09.06.2012 00:10
Predmet:Re: backup podataka splitovane baze

Netreba ti fso.
Dovoljno je:
FileCopy strSource, strOutput
a izbrisi:
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFile strSource, strOutput

nevsad 09.06.2012 15:36
Predmet:Re: backup podataka splitovane baze

fino hvala napravio sam
jel misliš da sa bat fajlom poziva pkzip po izlazu iz aplikacije

nevsad

nevsad 09.06.2012 15:38
Predmet:Re: backup podataka splitovane baze

fino hvala napravio sam
jel misliš da sa bat fajlom poziva pkzip po izlazu iz aplikacije
nisam ga koristio još od clippera i zabaravio sam na njega

nevsad

zxz 09.06.2012 20:38
Predmet:Backup sa zipom

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Bekap()
  2. Dim StaroIme As String
  3. Dim NovoIme As String
  4. Dim Ime As String
  5. Dim Putanja As String
  6.  
  7. On Error GoTo Kraj
  8. StaroIme = ImeBaze
  9. Putanja = PutanjaB
  10. NovoIme = Year(Date) & Format(Month(Date), "mm") & Format(Day(Date), "dd")
  11. NovoIme = Putanja & "backup\" & NovoIme & ".zip"
  12. Shell Putanja & "Pkzip " & NovoIme & " " & StaroIme
  13. MsgBox "Rezervna kopija baze zapisana na putanji." & vbCr & NovoIme
  14. Exit Function
  15. Kraj:
  16. GreskaB (Err.Number)
  17. End Function
  18.  
  19. Function ImeBaze()
  20. Dim Ime As String
  21.  
  22. Ime = CurrentDb.Name
  23.  
  24. Do Until Right$(Ime, 1) = "."
  25. Ime = Left$(Ime, Len(Ime) - 1)
  26. Loop
  27. Ime = Left$(Ime, Len(Ime) - 1)
  28. ImeBaze = Ime & "_be.mdb"
  29. End Function
  30.  
  31. Function PutanjaB()
  32. Dim Putanja As String
  33.  
  34. Putanja = CurrentDb.Name
  35.  
  36. Do Until Right$(Putanja, 1) = "\"
  37. Putanja = Left$(Putanja, Len(Putanja) - 1)
  38. Loop
  39. PutanjaB = Putanja
  40. End Function
Prilozi:
zip.zip (Velicina datoteke:69.33 KB)

pmiroslav 10.06.2012 13:51
Predmet:Re: backup podataka splitovane baze

Ja sam ovo isprobao i za početak javlja se greÅ¡ka u funkciji Bekap() u dijelu
Kraj:
GreskaB (Err.Number)

'Sub or Function not defined'
Taj dio sam isključio i nakon toga se napravi backup kopija imenom '201219.zip'.
Jedino je po meni mana Å¡to nakom novog pokretanja funkcije nova Backup kpoija pregazi sraru, a dobro bi bilo da se uvjek napravi kpoija sa novim imenom jer nekada treba imati i kpoiju baze od prije nekoliko dana ili čak mjeseci.

zxz 10.06.2012 13:55
Predmet:Re: backup podataka splitovane baze

Svaki dan nova ali ne svaki sat i svaki minut, to gazi jedno preko drugoga.
Proijeni datum na compu pa probaj.
uf neznamgdje sa pobrljao zbog te greske pogledat cu.
To sam kopirao moju stim da ja tu imam svasta naesto.
Kao napr proceduru uspori shell koja zaustavlja dok se ne napravi zip.
Staviti cu tu proceduru u arhivu.