nevsad | 06.06.2012 21:31 |
---|---|
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 |
pmiroslav | 07.06.2012 11:06 |
---|---|
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' |
nevsad | 08.06.2012 19:11 |
---|---|
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 |
zxz | 09.06.2012 00:33 |
---|---|
Predmet:Re: backup podataka splitovane baze asto ne koristis stari i besplatan pkzip i pkunzip. Em su mali em dobro rade. |
zxz | 09.06.2012 01:10 |
---|---|
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 |
nevsad | 09.06.2012 16:36 |
---|---|
Predmet:Re: backup podataka splitovane baze fino hvala napravio sam jel misliš da sa bat fajlom poziva pkzip po izlazu iz aplikacije nevsad |
nevsad | 09.06.2012 16:38 |
---|---|
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 |
zxz | 09.06.2012 21:38 |
---|---|
Predmet:Backup sa zipom PreuzmiIzvorni kôd (Visual Basic):
|
|
Prilozi: zip.zip (Velicina datoteke:69.33 KB) |
pmiroslav | 10.06.2012 14:51 |
---|---|
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. |
zxz | 10.06.2012 14:55 |
---|---|
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. |