Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako napraviti backup tabela u Access-u pomocu VBA?

[es] :: Access :: Kako napraviti backup tabela u Access-u pomocu VBA?

[ Pregleda: 5848 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.as54.bi.bih.net.ba.



Profil

icon Kako napraviti backup tabela u Access-u pomocu VBA?04.06.2004. u 23:28 - pre 241 meseci
Da li je komplikovano napisati kod koji bi klikom na dugme napravio backup MDE baze (samo tabela) i snimio ga na odredjeno mjesto (npr. floppy)?

Postoji li neki drugi nacin?

Ako neko moze pomoci bio bih zahvalan!
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako napraviti backup tabela u Access-u pomocu VBA?08.06.2004. u 13:31 - pre 241 meseci
Citat:
Daks:Da li je komplikovano napisati kod koji bi klikom na dugme napravio backup MDE baze (samo tabela) i snimio ga na odredjeno mjesto (npr. floppy)?

Postoji li neki drugi nacin?

Ako neko moze pomoci bio bih zahvalan!


1) Nije komplikovano ali nije ni trivijalno.
2) Postoji vise nacina

Sta traze tabele u MDE bazi?
 
Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.as54.bi.bih.net.ba.



Profil

icon Re: Kako napraviti backup tabela u Access-u pomocu VBA?08.06.2004. u 14:19 - pre 241 meseci
Zidar hvala na sugestijama.

Odvojio sam MDB i MDE baze.

Nasao sam primjer na net-u.
Ako jos kome treba rjesenje neka se javi.

Ako se modelator slaze mogao bih okaciti primjer ovdje.

Hvala jos jednom!

EVO TU JE FILE, VELICINA ~60 KB!

[Ovu poruku je menjao Daks dana 09.06.2004. u 02:05 GMT]
Prikačeni fajlovi
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako napraviti backup tabela u Access-u pomocu VBA?08.06.2004. u 19:33 - pre 241 meseci
Hvala na trudu :-)

Okaci resenje svakako. Vodi racuna o velicini fajla, ZIPuj ako treba. Ako je fajl preveliki, posalji mi privatnu poruku, pa da vidimo sta moze da se uradi.

Ziv bio!

:-)
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako napraviti backup tabela u Access-u pomocu VBA?11.06.2004. u 14:16 - pre 241 meseci
Dok cekamo da Daks posalje resenje koje je nasao, evo jedne mogucnosti da se odradi backup access baze (MDB ili ADP). resenje je testirano na 2002 veziju, verujem da radi i na 2000. Za 97 mislim da ne moze, nije provereno. Resenje je u stvari prevedeni primer iz Help-a. Ovo resenje je zgodno za slucajeve kada je aplikacija odvojena od fajla sa podacima (a 99% slucajeva bi trebalo da budu tako poatavljeni). Iz aplikacije moze da se pozove prilozena funkcija koja ce da kreira kopiju na zadatom mestu (floppy, CD ili hard drajv, na mrezi ili lokalno).

Code:

Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
'Namena: Pravi kompaktovanu kopiju date Access MDB ili ADP baze podataka
'Ulazne vrednosti: imena izvornog fajla i kopije, ukljucujuci path
'Access verzije: 2000+
'Uslovi: - ne moze se primeniti na tekucu bazu (MDB u kome se funkcija nalazi)
'        - ne moze se primeniti na otvorenu bazu podataka
'        - ne sme se zadati kopije koje vec postoji, svaka kopija mora da ima zasebno ime
'Primeri pozivanja:
'RepairDatabase(strsource:=currentdb.Name,strdestination:="C:\TEMP\MyBackUp")
'               - daje Error 7846, pokusaj kompaktovanja tekuceg fajla
'repairdatabase("C:\Documents and Settings\mladend\Desktop\Scrap Book\DvaDatuma.mdb","C:\TEMP\MyBackUp")
'       vraca rezultat:True, znaci uspeo compact => back up kopija kreirana
'True
'Ponovanm poziv sa istim argumentima vraca gresku 7847 "bacup file exists"

'

On Error GoTo error_handler
Debug.Print "Source:", strSource
Debug.Print "Destination:", strDestination
    ' Kompaktuj i popravi bazu. CompactRepair metod vraca
    ' vrednost TRUE ili FALSE, ako operacija uspe ili ne uspe
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)

EXIT_HERE:
    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
error_handler:
    RepairDatabase = False
    Select Case Err.Number
        Case Else
            MsgBox prompt:="Error " & Err.Number & vbCrLf & Err.Description, _
            Title:="ComapctMDB() --> ERROR"
    End Select
    Resume EXIT_HERE
    
End Function

 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Kako napraviti backup tabela u Access-u pomocu VBA?11.06.2004. u 14:33 - pre 241 meseci
OOps!

Izvinjavam se za komentar "doke cekamo da Daks postavi resnje...'. Covek je resenje lepo postavio u svom poslednjem postu. Glupavi Zidar ne cita i ne gleda gde treba.

Postavljeno resenje izgleda prilicno lepo. Ko hoce da kopa po kodu moze da nadje mnogo interesantnih i lepih stvari.

Hvala Daks za resenje.

;-)
 
Odgovor na temu

[es] :: Access :: Kako napraviti backup tabela u Access-u pomocu VBA?

[ Pregleda: 5848 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.