Prikazi cijelu temu 29.08.2011 04:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Compact and Repair database iz koda
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Kompakt()
  2. Dim Db As DATABASE
  3. Dim StaroIme As String
  4. Dim NovoIme As String
  5. Dim Putanja As String
  6.  
  7. Set Db = CurrentDb()
  8. StaroIme = Db.Name
  9. Putanja = ImeBaze(StaroIme)
  10. NovoIme = Putanja & "Nova.mdb"
  11. StaroIme = Putanja & "_be.mdb" '* ovdje se vrsi izmjena imena
  12.  
  13.     If Dir(NovoIme) <> "" Then _
  14.         Kill NovoIme
  15.     DBEngine.CompactDatabase StaroIme, _
  16.         NovoIme
  17.         Kill StaroIme
  18.         Name NovoIme As StaroIme
  19. End Function
  20. Function ImeBaze(Putanja As String) As String
  21.  
  22.     Do Until Right$(Putanja, 1) = "."
  23.         Putanja = Left$(Putanja, Len(Putanja) - 1)
  24.     Loop
  25.     Putanja = Left$(Putanja, Len(Putanja) - 1)
  26.    ImeBaze = Putanja
  27. End Function

Uslov je samo da se baza sa podacima zove isto kao i aplikacija uz dodatak "_be"
Primjer:
Aplikacija mojaApp.mdb
Baza sa podacima:
mojaApp_be.mdb

Ako ti ovo ne pase to mozes promijeniti u redu koda koji je naznacen sa *.
Ako i ovo ne bude dovoljno mogu pojasniti citav kod.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.