[es] - Arhiviranje i kompresija

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 54
*.air.my-its.net.

Profil

^{12.10.2006. u 09:27}

Pozdrav svima,
Imam mali problem, kako da iz koda kreiram buckup bazu koja bi bila arhiva a da pritom istu komprimujem (ZIPP ili RAR itd). Jedan od postupaka je objasnjen u primeru biblioteka u okviru skole accessa ali to kod mene ne radi.
Hvala.

^{12.10.2006. u 09:27}

mika
NBG-ML

Član broj: 55
Poruke: 633
*.adsl.static.sezampro.yu.

Profil

Re: Arhiviranje i kompresija

^{12.10.2006. u 09:43}

Postuj ovde, šta ti od navedenog koda ne radi, pa ćemo iznaći već neko rešenje.

Alternativa je da iz command prompta pozoveš arhiver sa zadatim parametrima, ali ne verujem da je to rešenje koje tražiš.

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

^{12.10.2006. u 09:43}

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 54
*.air.my-its.net.

Profil

Re: Arhiviranje i kompresija

^{12.10.2006. u 10:08}

Pa u gore navedenom primeru koristi se makro gde se na komandu RunApp u CommandLine upise sledeca akcija:

arj a c:\bibl\bib_bak c:\bibl\bibl_11.mdb -vv1440 -y

odnosno, makro kreira kopiju baze bibl_11.mdb na particiji c i komprimuje verovatno pomocu programa ARJ. Kada ja ovo probam prijavljuje mi gresku gde ne moze da prepozna pathname. Meni nije jasan koncept akcije RunApp, sta treba da upisem u CommandLine, kako to uopste radi i da li moze direktno iz koda pomocu VBA (verovatno moze) i moze li neki drugi program za kompresiju. Taj primer je okacen na

http://www.praktikum.co.yu/skola/access/sk_ac_11.htm

^{12.10.2006. u 10:08}

mika
NBG-ML

Član broj: 55
Poruke: 633
*.adsl.static.sezampro.yu.

Profil

Re: Arhiviranje i kompresija

^{12.10.2006. u 10:32}

Prvo da bi razumeo šta je pisac hteo da kaže, važno je da poznaješ barem malo komandnu liniju i uopšte njen koncept.

Ovaj stariji primer pokazuje kako se koristi DOS arhiver ARJ sa trivijalnim pravljenjem arhive, komandom "ARJ a ime_arhive fajlovi_za_arhivu...".

Dakle, program ARJ treba da je u PATH-u, tj. da komandni prompt može da ga poziva iz bilo kog foldera a da ne mora da se pozicionira u folder u kome je stacioniran program ARJ. Sve ovo teoretisanje pokazuje da to nije baš toliko trivijalno.

Evo primera sadržaja komandne linije za npr. winRAR:

"c:\program files\winrar\winrar" a c:\backup\backup.rar c:\baza\baza.mdb

...što treba ubaciti u RunApp, i time će se pokrenuti WinRar i napraviti fajl backup.rar od fajla baza.mdb.

Ovo je najjednostavniji mogući primer, ako ti nešto nije jasno ti pitaj još.

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

^{12.10.2006. u 10:32}

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 54
*.air.my-its.net.

Profil

Re: Arhiviranje i kompresija

^{13.10.2006. u 07:09}

Probao sam ali ne ide nikako!!!
Opisacu sta sam uradio pa molim da me ispravite gde gresim:

1. Na particiji c kreirao sam folder baza i folder backup i u folder baza smestio moj primer pod nazivom baza
2. Otvorio sam makro u design prikazu, zadao komandu runapp i u komandnu liniju upisao sledece:

c:\program files\winrar\rar a c:\backup\backup.rar c:\baza\baza.mdb

3. Snimio sam i pokrenuo makro. Desilo se da je WinRAR prijavio grasku

^{13.10.2006. u 07:09}

mika
NBG-ML

Član broj: 55
Poruke: 633
*.adsl.static.sezampro.yu.

Profil

Re: Arhiviranje i kompresija

^{13.10.2006. u 08:33}

Code:
"c:\program files\winrar\rar" a c:\backup\backup.rar c:\baza\baza.mdb

... kada ovo otkucas u command promptu, bitno je da bude prvi izraz pod znacima navoda, inače neće da radi. Inače, ako si napravio folder c:\baza i u njega stavio fajl baza.mdb, i postoji c:\backup folder, nema razloga da ne radi (probano).

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

^{13.10.2006. u 08:33}

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 54
*.air.my-its.net.

Profil

Re: Arhiviranje i kompresija

^{13.10.2006. u 11:37}

izvini Miko ali ovo nece pa nece. Molem te da probaj ti ovo da odradis pa mi posalji neki primercic ako mozes.
Hvala ti.

^{13.10.2006. u 11:37}

mika
NBG-ML

Član broj: 55
Poruke: 633
*.adsl.static.sezampro.yu.

Profil

Re: Arhiviranje i kompresija

^{13.10.2006. u 11:50}

Evo odradio sam primer sa dugmetom. Znaci, na onClick event dugmeta imam sledecu proceduru:

Code:

Private Sub Command0_Click()
    If Shell("c:\program files\winrar\rar a c:\backup.rar c:\test.mdb", vbHide) <> 0 Then
        MsgBox ("Uspesan backup!")
    Else
        MsgBox ("Greska pri izvrsavanju backupa!")
    End If
End Sub

...dakle, koristi se funkcija Shell koja vraća nenultu vrednost ako je operacija uspešna inače vraća nulu. Probano, radi.

Ako treba još nešto, javi se! Pozdrav

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Prikačeni fajlovi

test.mdb - 112k

^{13.10.2006. u 11:50}

jolovicn
Beograd

Član broj: 121649
Poruke: 85
*.adsl.verat.net.

Profil

Re: Arhiviranje i kompresija

^{13.02.2007. u 11:21}

Meni ovo funkcionise, ali kako da izvedem sa bazom koja se nalazi na serveru (back-end), a bekap treba da se radi sa klijenata, tj, kako da ispisem putanju preko mreze do servera.

_{[Ovu poruku je menjao jolovicn dana 13.02.2007. u 12:38 GMT+1]}

^{13.02.2007. u 11:21}

jolovicn
Beograd

Član broj: 121649
Poruke: 85
*.adsl.verat.net.

Profil

Re: Arhiviranje i kompresija

^{14.02.2007. u 12:23}

Uspelo je i sa mreze.
E sad novo pitanje. Kako da svaki bekap koji napravi imenuje pod drugim imenom, tipa datum i cas kreiranja.
Pozdrav.

^{14.02.2007. u 12:23}

scorpionKD
scorpionKD

Član broj: 76395
Poruke: 10
*.adsl.net.t-com.hr.

Profil

Re: Arhiviranje i kompresija

^{24.03.2007. u 09:28}

Donekle radi uz jedan ali,
kod isforsirane greške stalno javlja da je sve u redu što nije točno....
kod provjere greške stalno ispisuje nulu, znači nula kad je dobro i nula kad nije dobro?

^{24.03.2007. u 09:28}

keds01

Član broj: 126093
Poruke: 5
*.adsl.net.t-com.hr.

Profil

Arhiviranje i kompresija

^{24.03.2007. u 13:35}

Probao sam ovo s Codom!

1. Na c:\ disku sam oformio folder "baza" i u njega umetnuo bazu naziva baza.mdb
2. Na c:\ disku sam također oformio mapu "backup"
3. U programu baza.mdb, na formu sam umetnuo komandu "backup" sa slijedećim codom:

If Shell("c:\program files\winrar\rar a c:\backup\kopija.rar c:\baza", vbHide) <> 0 Then
MsgBox ("Uspesan backup!")
Else
MsgBox ("Greska pri izvrsavanju backupa!")
End If

4. Klikom na tipku backup sa codom, u C:\backup nema ništa,
no ako se u mapi C:\baza nalazi još neka druga datoteka koja
nije otvorena, nju ovaj kod arhvira i pohranjuje u rar
obliku na c:\backup kopija.rar, no baze.mdb nema.

ako pak komandnu liniju izmjenim:

If Shell("c:\program files\winrar\rar a c:\backup\kopija.rar c:\baza\baza.mdb", vbHide) <> 0 Then

u datotecu C:\backup nema novo arhivirane mape i kopije datoteke baza.mdb

Zašto ne arhivira i kopira i bazu.mdb, gdje je kvaka???

^{24.03.2007. u 13:35}

jolovicn
Beograd

Član broj: 121649
Poruke: 85
*.dynamic.sbb.co.yu.

Profil

Re: Arhiviranje i kompresija

^{28.03.2007. u 01:36}

Ipak je najbolje resenje http://www.elitesecurity.org/t246849-0#1483549 "access database autopilot". Stvarno je odlican.

^{28.03.2007. u 01:36}