Visual Basic – Sažimanje i konverzija baze podataka

Krstarica 19. jul 2001. 00:00

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

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.

programiranje