Prikazi cijelu temu 11.06.2012 10:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Pojasnjenje procedura za backup
Function Bekap()
Dim StaroIme As String
Dim NovoIme As String
Dim Ime As String
Dim Putanja As String

On Error GoTo Kraj'Ako naidjes na gresku skoci na mjesto gdje pise Kraj:
StaroIme = ImeBaze' Pozovi Proceduru koja se zove ImeBaze i rezultat koji ona vrati zapisi u memorijsku koja se zove StaroIme
Putanja = PutanjaB 'Pozovi proceduru PutanjaB i njenu vrijednost koju vrati zapisi u memorijsku koja se zove putanje
NovoIme = Year(Date) & Month(Format(Date, "mm")) & Day(Format(Date, "dd"))'U memorijsku Novo ime upisic Year(Date) -->godinu od trenutnog datuma i Month(Format(Date, "mm")) -->mjesec od trenutnog datuma u formatu mm odnosno 2 karaktera i Day(Format(Date, "dd")) -->dan od trentnog datuma u formatu dd odnosno dvije cifre.
NovoIme = Putanja & "backup\" & NovoIme & ".zip" 'Upisi u memorijsku novoime podatke iz memorijske Putanja i dodaj rijec backup\-->(Ovo je ime direktorije) 6 dodaj ono sto je bilo u memorijskoj novoime i dodaj na to jos '.zip'
'Ovim smo stovirili putanju gdje se smijesta backup kao i njegovo ime
'Putanju do aplikacije je nasla procedura PuranjaB
'Znaci gdje god stavili svoju app. procedura ce procitati ime do nje
'Sada na tu putanju se dodaje rijec backup
' pa bi to izgledalo
'Primjer:
'C:\MojdirOdMdb\Backup
'Sada na ovo dodajemo jos godinumjescei dfa od trenutnog datuma i jos .zip
'Znaci ime naseg backupa ce biti napr:
'20120623.zip ->Kreiran 23.06.2012
'Kada to dodamo putanji bit ce:
'C:\MojdirOdMdb\Backup\20120623.zip
Shell Putanja & "Pkzip " & NovoIme & " " & StaroIme
'Sada kroz shell pozivamo pkzip.exe
MsgBox "Rezervna kopija baze zapisana na putanji." & vbCr & NovoIme' upozorenje
Exit Function'izlaz iz procedure
Kraj:
GreskaB (Err.Number) 'ovaj red treba pobrisati ili napisati nesto svoje
End Function

Function ImeBaze()
Dim Ime As String

Ime = CurrentDb.Name' U memorijku koja se zove ime upisi trenutno ime app. sa putanjom

Do Until Right$(Ime, 1) = "." ' idi sve dok sa desne starne teksta ne bude znak tacka.
Ime = Left$(Ime, Len(Ime) - 1)' upisi u mem. koja se zove ime sa lijeve strane onoliko znakova koliko ime znakova u samoj memorijskoj ime ali za 1 manje.
Loop' dovde vrti petlja do
Ime = Left$(Ime, Len(Ime) - 1) 'Upisi u mem ime sa lijeve strane onoliko znakov a koliko ima u samoj meme ime ali za 1 manje.
ImeBaze = Ime & "_be.mdb" 'U mem ime baze (koja je ujedno i naziv procedure sto znaci da ce se ti podaci vratiti pri pozivu procedure) upisi podatke iz mem ime i dodaj jos "_be.mdb"
'Pvo na govori da nasa baza sa podacima mora da se nalazi na istoj putanji kao i nasa app. i da ce joj ime biti isto kao i app. samo sa sufiksom _be.
End Function

Function PutanjaB()
Dim Putanja As String

Putanja = CurrentDb.Name

Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
PutanjaB = Putanja
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.