zxz |
15.06.2012 10:01 |
Predmet:Re: backup podataka splitovane baze
Moguce da je on toliki ako je mdb prazna.
Raspakuj pa provjeri jeli sve radi kako valja odnosno jeli to tvoja be baza. |
MOZEBITIPONOVO |
15.06.2012 10:07 |
Predmet:Re: backup podataka splitovane baze
Baza nije prazna. Kada raspakujem nema fajla. Da joÅ¡ jednom proverim sebe, PKZIP i PKUNZIP koje si ti okačio na forumu iskopirao sam u folder gde mi je baza i aplikacija. Ima li joÅ¡ neÅ¡to! |
zxz |
15.06.2012 10:21 |
Predmet:Re: backup podataka splitovane baze
Evo jos cu jednom napisati:
Primjer:
Baza i api se zovu:
moja.mde
i
moja_be.mdb
Nalaze se obadvije na putanji:
C:\MojaApi
Na ovoj putanj nalazi se i
Pkzip.exe
Moras imati folder:
C:\MojaApi\Backup
U ovom folderu bi trebao da bude zip file.
PreuzmiIzvorni kôd (Visual Basic):Function BekapInfo()
Dim StaroIme As String
Dim NovoIme As String
Dim Ime As String
Dim Putanja As String
On Error GoTo Kraj
StaroIme = ImeBaze
Putanja = PutanjaB
NovoIme = Year(Date) & Format(Month(Date), "mm") & Format(Day(Date), "dd")
NovoIme = Putanja & "backup\" & NovoIme & ".zip"
Shell Putanja & "Pkzip " & NovoIme & " " & StaroIme
MsgBox "Putanja:" & putanja & vbcr & "NovoIme:" & NovoIme & vbcr & "StaroIme:" & StaroIme
Exit Function
Kraj:
End Function
Kopiraj ovu proceduru u svoju app i pokreni je.
Tekst iz msg prepisi ovdje na forum
Poslije je mozes pobrisati. |
MOZEBITIPONOVO |
15.06.2012 10:37 |
Predmet:Re: backup podataka splitovane baze
Sorry! Aplikacija je bila mdb, kada sam napravio mde, naravno radi. E sada, kada bi se ovo još više automatizovalo, npr da svaki dan u 15:00 napravi se kopija, a da maksimalan broj kopija bude recimo 7, pa kada pravi osmu, jednostavno da pregazi prvu (najstariju). Veliki pozdrav! |
duledixi |
19.06.2012 21:35 |
Predmet:Re: backup podataka splitovane baze
Negdje sam na netu nasao ovaj kod i ja ga koristim za kompakt i beckup baze:
Funkciju kopirati u novi modul i na event dugmeta pozvati istu.
Citat:Public Sub Compact_MDB()
Dim dbPath As String, dbPath1 As String, OldDbName As String, NewDbName As String, DbBackup As String
Dim Response As Integer, fs As Object
dbPath = Application.CurrentProject.Path
dbPath1 = "C:\Program Files\STARSOFT\KOPIJE"
OldDbName = "PCkasa_dat" & ".mdb"
NewDbName = "PCkasa_dat_bak" & ".mdb"
DbBackup = Mid(OldDbName, 1, Len(OldDbName) - 4) & "_" & Format(Date, "ddmmyy") & ".mdb"
Response = MsgBox("Da li želite da napravite rezervnu kopiju baze pod imenom " & vbCrLf & "'" & DbBackup & "'", vbYesNo, "Continue")
If Response = vbYes Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile dbPath & "\" & OldDbName, dbPath1 & "\" & DbBackup
Set fs = Nothing
Else
'If MsgBox("Da li želite da uradite Compact baze i promijenite joj ime u " & vbCrLf & "'" & NewDbName & "'", vbYesNo, "Continue") = vbYes Then
'Set fs = CreateObject("Scripting.FileSystemObject")
'fs.CopyFile dbPath & "\" & OldDbName, dbPath1 & "\" & DbBackup
'DBEngine.CompactDatabase dbPath1 & "\" & DbBackup, dbPath1 & "\" & NewDbName
'Kill dbPath1 & "\" & DbBackup
'Set fs = Nothing
'Else
If MsgBox("Da li želite da uradite samo Compact baze?", vbYesNo, "Continue") = vbYes Then
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
Else
DoCmd.CancelEvent
End If
End If
'End If
End Sub |