Centar za edukaciju-BiH



#1 06.06.2012 20:31
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


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
↑  ↓

#2 07.06.2012 10:06
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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'
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 07.06.2012 10:07 od strane pmiroslav. ↑  ↓

#3 08.06.2012 18:11
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


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
↑  ↓

#4 08.06.2012 23:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: backup podataka splitovane baze
asto ne koristis stari i besplatan pkzip i pkunzip.
Em su mali em dobro rade.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 09.06.2012 00:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 09.06.2012 15:36
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: backup podataka splitovane baze
fino hvala napravio sam
jel misliš da sa bat fajlom poziva pkzip po izlazu iz aplikacije

nevsad
↑  ↓

#7 09.06.2012 15:38
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


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
↑  ↓

#8 09.06.2012 20:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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:
Informacije o tipu datoteke za:zip  zip.zip
Preuzimanja:301
Velicina datoteke:69.33 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.06.2012 08:31 od strane zxz. ↑  ↓

#9 10.06.2012 13:51
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

#10 10.06.2012 13:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (4):1,2,3,4


Sva vremena su GMT +01:00. Trenutno vrijeme: 3: 41 pm.