VB6.0 :: Compact And Repair Access Database

Database Microsoft Access semakin hari akan semakin membesar, meskipun kita sudah menghapus beberapa data didalamnya. itu dikarenakan access tidak benar-benar menghapus data anda, kalau di windows semacam di taruh dalam recycle terlebih dahulu. Sedang untuk benar-benar menghapusnya anda bisa menggunakan perintah Compact and Repair yang ada dalam menu Tools > Database utilities > Compact and Repair Database (bagi Office 2003 kebawah) sedang bagi office 2007 bisa masuk ke menu Office Button > Manage Compact and Repair Database.

Jika aplikasi yang anda buat menggunakan database Access, untuk mengotomatisasi compact and repair menggunakan bahasa pemrograman visual basic 6 codenya seperti berikut :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Public Sub CompactRepairAccessDB(ByVal sDBFILE As String, Optional sPASSWORD As String = "")     Dim sDBPATH As String, sDBNAME As String, sDB As String, sDBtmp As String     sDBNAME = sDBFILE 'extrapulate the file name     Do While InStr(1, sDBNAME, "\") <> 0             sDBNAME = Right(sDBNAME, Len(sDBNAME) - InStr(1, sDBNAME, "\"))     Loop     'get the path name only     sDBPATH = Left(sDBFILE, Len(sDBFILE) - Len(sDBNAME))       sDB = sDBPATH & sDBNAME     sDBtmp = sDBPATH & "tmp" & sDBNAME       'Call the statement to execute compact and repair...     If sPASSWORD <> "" Then             Call DBEngine.CompactDatabase(sDB, sDBtmp, dbLangGeneral, , ";pwd=" & sPASSWORD)     Else             Call DBEngine.CompactDatabase(sDB, sDBtmp)     End If     'wait for the app to finish     DoEvents     'remove the uncompressed original     Kill sDB     'rename the compressed file to the original to restore for other functions     Name sDBtmp As sDB End Sub

jangan lupa menambahkan reference Microsoft DAO Object Library Versi berapapun kedalam project anda melalui menu Project > Reference. Setelah itu untuk menggunakan fungsi compact and repair tinggal panggil menggunakan perintah

1 2 3 4 5 6 7

Private Sub Command1_Click()     'jika tabel memiliki password     CompactRepairAccessDB "c:\dat1abase.mdb", "admin"     'jika tidak memiliki password cukup panggil dengan perintah     'CompactRepairAccessDB "c:\dat1abase.mdb"     MsgBox "Selesai" End Sub

Semoga Bermanfaat

Tweet