iCentar » Racunari i oprema » Programirannje i baze podataka » Access

zxz	11.06.2012 10:34
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

zxz

11.06.2012 10:34

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

pmiroslav	11.06.2012 14:33
Predmet:Re: backup podataka splitovane baze PoÅ¡to imam viÅ¡e backend baza koje se nalaze na različitim kompjuterima ja radim Backup svih baza odjednom sa bat failom. Napravio sam slijedeći bat fail koji sam nazvao Backup.bat PreuzmiIzvorni kôd (vbnet): MD R:\%date% H: copy Skladiste_2011_be.mdb R:\%date% copy Skladiste_2012_be.mdb R:\%date% copy proces_be.mdb R:\%date% Copy Kretanje2012_be.mdb R:\%date% Copy *.xls R:\%date% Z: copy Prodaja_2011_be.mdb R:\%date% copy Prodaja_2012_be.mdb R:\%date% Opis: Na particiji R:\ (to je mapirana particija na drugom kompjuteru) napravi se direktorij sa danaÅ¡njim datumom Zatim se Sa particije H:\ kopiraju sve navedene baze u napravljeni direktorij na particiji R:\ Zatim se prebacimo na particiju Z:\ (koja je također mapirana particija sa trećeg kompjutera) i sa nje kopiramo dvije baze također u isti direktorij na particiji R:\

pmiroslav

11.06.2012 14:33

Predmet:Re: backup podataka splitovane baze

PoÅ¡to imam viÅ¡e backend baza koje se nalaze na različitim kompjuterima ja radim Backup svih baza odjednom sa bat failom.

Napravio sam slijedeći bat fail koji sam nazvao Backup.bat

PreuzmiIzvorni kôd (vbnet):

MD R:\%date%
H:
copy Skladiste_2011_be.mdb R:\%date%
copy Skladiste_2012_be.mdb R:\%date%
copy proces_be.mdb R:\%date%
Copy Kretanje2012_be.mdb R:\%date%
Copy *.xls R:\%date%
Z:
copy Prodaja_2011_be.mdb R:\%date%
copy Prodaja_2012_be.mdb R:\%date%

Opis:
Na particiji R:\ (to je mapirana particija na drugom kompjuteru) napravi se direktorij sa danaÅ¡njim datumom
Zatim se Sa particije H:\ kopiraju sve navedene baze u napravljeni direktorij na particiji R:\
Zatim se prebacimo na particiju Z:\ (koja je također mapirana particija sa trećeg kompjutera) i sa nje kopiramo dvije baze također u isti direktorij na particiji R:\