ACCESS FEED: [belajar-access] Re: Backup Database

Jumat, 15 Februari 2013

[belajar-access] Re: Backup Database

Mas Heru,

Saya ambil referensi dari sini : http://www.dotnetperls.com/7-zip-examples

Untuk case sampean saya asumsikan BE yang akan di backup berada pada folder C:\POS\DATA dan hasil dari backup dg 7zip akan ditaruh C:\POS\DATA_BACKUP

Saya coba sesuaikan sedikit codingnya sbb :
( Mas Muntahar mohon ijin merubah codingnya )

Function backup() akan membuat sebuah file (backup.bat) yang tersimpan pada folder BE-nya asumsikan C:\POS\DATA. Bat file tsb berisi perintah-perintah DOS sbb:

@setlocal
@echo off
set path="C:\Program Files\7-Zip\";%path%
cd "C:\POS\DATA"
7z a -tzip C:\POS\DATA_BACKUP\2013-02-16.zip C:\POS\DATA\*.mdb

Langkah selanjutnya tinggal exsekusi saja lewat macro:
1. RunCode, Function name : backup()
2. RunApp, command line : c:\pos\data\backup.bat

Function backup()
Dim batchku, commandku, RarKu As String
batchku = "C:\POS\DATA" & "\backup.bat"
RarKu = Format(Now(), "yyyy-mm-dd h-mm-ss") & ".zip"
commandku = "7z a -tzip" & " " & "C:\POS\DATA_BACKUP\" & RarKu & " " & "C:\POS\DATA\*.mdb"

Prepare (batchku)
Open batchku For Append As #1
Print #1, "@setlocal"
Print #1, "@echo off"
Print #1, "set path=" & Chr(34) & "C:\Program Files\7-Zip\" & Chr(34) & ";%path%"
Print #1, "cd " & Chr(34) & "C:\POS\DATA" & Chr(34)
Print #1, commandku
'Print #1, "pause"
Close #1
Shell batchku, vbHide

End Function

Sub Prepare(Sfile As String)
On Error Resume Next
MkDir CurrentProject.path & "\DATA_BACKUP"
Kill Sfile
End Sub

Mas Heru silahkan dicoba, di komputer saya udah jalan dg baik, 17 file MDB terkompresi menjadi 1 file ZIP

Salam Access
BambangMahfudin

--- In belajar-access@yahoogroups.com, Heru Wibowo wrote:
>
> Kalo pake 7zip scripnya gmana yah pak...?adakah yang sudah
> mencobanya...sebab beberapa properti script dari contoh saya coba ubah
> menjadi 7z kagak jalan.
>
> Terima kasih.
>
> Salam,
> HW
>
>
> 2013/2/15 Bambang Mahfudin
>
> > **
> >
> >
> > Mas Heru,
> >
> > Mungkin itu threat saya, case mungkin tidak persis sama tapi semoga bisa
> > dipakai sebagai referensi, dari para master akhirnya saya dapat mem-backup
> > BE dg PKZIP atau WINRAR.
> >
> > Linknya disini, monggo :
> > http://tech.groups.yahoo.com/group/belajar-access/message/28109
> >
> > Salam
> > BambangMahfudin
> >
> >
> > --- In belajar-access@yahoogroups.com, Heru Wibowo wrote:
> > >
> > > Salam sejahtera,
> > >
> > > Para Master...sebelumnya mohon maaf...udah nyari2 tapi ndak ketemu di
> > > thread...seinget saya dulu pernah ada tapi udah lupa judul threadnya...
> > >
> > > Dan mohon bantuan :
> > > 1.Bagaimana yah script melakukan backup back-end melalui form di Front
> > > End *berupa
> > > 7zip* (client menggunakan 7zip) sehingga user tidak perlu mengetahui
> > dimana
> >
> > > lokasi database yang akan dilakukan backup.
> > > 2.Copy backup cukup sebanyak *3 salinan* (format YYYYmmDD_NamaBE -->
> >
> > > otomatis akan menghapus backup sebelumnya, sehingga yang terdapat pada
> > > folder backup selalu berisi 3 file saja.
> > >
> > > Demikian hal ini kami sampaikan.
> > > Terima kasih atas bantuan dari Rekan-Rekan.
> > >
> > >
> > >
> > > Salam damai dan jabat erat,
> > > Heru Wibowo
> > >
> >
> >
> >
>
>
>
> --
> Salam sejahtera,
>
> Salam damai dan jabat erat,
> Heru Wibowo
>