Compact Repair File Ms Access

Bila kita sering bekerja dengan microsoft acces maka kita akan tahu salah satu permasalahan ini yaitu file mudah menggelembung dan hal ini akan lebih cepat terjadi lagi apabila data( tabel )sering kita manipulasi baik update, delete maupun insert/import.

Agar user tidak mengakses secara langsung database maka kita harus membuatkan fasilitas ini sehingga performa program database kita stabil.

Langkah-langkahnya :
1.Buat project baru, sembarang nama projectnya
2.Tambahkan button satu ke form1
3.Double klik button tersebut kemudian tuliskan code berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
Dim jro As JRO.JetEngineClass
Dim newConStr As String
Dim ConStr As String
'Dim originalDB As String = "\csv.mdb"
'Dim NewDB As String = "\csvx.mdb"
jro = New JRO.JetEngineClass

'membuat koneksi untuk database yang original

ConStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csv.mdb ;"

'membuat koneksi untuk meng compact database (Database backup)

newConStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csvx.mdb ;"

'compact database

jro.CompactDatabase(ConStr, newConStr)

'Mengcopy database yang sudah di compact kedalam folder yang sama dengan original(database)
'menimpa isi dari database yang lama dengan yang baru

System.IO.File.Copy("D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csvx.mdb", "D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csv.mdb", True)

'Terakhir delete database backup yang sudah di compact

System.IO.File.Delete("D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csvx.mdb")
MsgBox("Sukses", MsgBoxStyle.Information, "Compact")

Catch ex As Exception
End Try
End Sub

Proses yang terjadi
------------------------------------
Saya memakai file original dengan nama csv.mdb yang saya letakkan di folder project,kemudian pada saat button di klik maka file tersebut di compact dan terbentuk file csvx.mdb yang sudah mengecil kemudian hasil file repair itu di replacekan ke original dan file csvx.mdb nya di delete.

Bentuk formnya :


Source : ilmu komputer