Preporučljivo je da vaše aplikacije koje se zasnivaju na nekoj Microsoft bazi podataka, imaju mogućnost kompakcije (sažimanja) unutrašnje baze podataka. Sažimanjem baze podataka vršimo odstranjivanje nepotrebnog praznog prostora iz Microsoft Jet baza podataka, uz pomoć metode "CompactDatabase". Ovim sažimanjem vršimo generalnu optimizaciju baze podataka, a samim tim dobijamo i na povećanju efikasnosti rada cele aplikacije. Pored sažimanja postojećih baza podataka, metodom CompactDatabase možemo i konvertovati baze podataka starijih vezija u novije. Tada će sintaksa biti:
DBEngine.CompactDatabase staraBaza, novaBaza, jezik , opcije
U prethodnoj liniji vidimo da metoda CompactDatabase pripada DBEngine objektu podataka, koji je podrazumevani objekat podataka za pristupanje bazama podataka u Visual Basic-u (do verzije 5). Argument staraBaza predstavlja naziv, sa putanjom, baze podataka nad kojom ćemo izvršiti metodu. Ukoliko vršimo i konverziju, imaćemo i argument novaBaza, koji predstavlja putanju sa nazivom kompaktovane baze podataka. Jako bitan je i argument opcije kojim određujemo verziju u kojoj će biti "snimljena" nova baza podataka.
U sledećim redovima videćemo primer Visual Basic forme - potprograma, koja će vršiti konverziju baze podataka. Na praznu formu treba da postavite dva tekst polja, u koja će korisnici upisati na izvorišnu i odredišnu bazu podataka (najprostije rešenje), i jedno komandno dugme kojim ćemo pozivati operaciju. Programski kod je sledeći:
Private Sub Command1_Click()
Dim strBaza As String
Dim novNaza As String
Dim strVerzija As String
Dim intVerzija As Integer
strBaza = Text1.Text
novBaza = Text2.Text
strVerzija = InputBox("Unesite odredisnu verziju " & _
"1.1, 2.0, 2.5, 3.0, 3.5", "Sazimanje")
MsgBox strVerzija
Select Case Trim(strVerzija)
Case "1.1"
intVerzija = dbVersion11
Case "2.0"
intVerzija = dbVersion20
Case "2.5"
intVerzija = dbVersion20
Case "3.0"
intVerzija = dbVersion30
Case "3.5"
intVerzija = dbVersion30
Case Else
MsgBox "Pogesna verzija!", vbCritical, "Greska verzije"
End Select
DBEngine.ComapctDatabase strBaza, novBaza, dbLangGeneral, intVerzija
MsgBox "Proces je uspesno zavrsen!"
End Sub