Aralık
11th 2007
Posted under Visual Basic
Public Sub CompactDB(DBName As String)
Dim jr As JRO.JetEngine
Dim strOld As String, strNew As String
Dim x As Integer
Set jr = New JRO.JetEngine
strOld = DBName
x = InStrRev(strOld, “\”)
strNew = Left(strOld, x)
strNew = strNew & “chngMe.mdb”
‘ Access 97 için Engine Type = 4
‘ Access 2000 için Engine Type = 5
jr.CompactDatabase “Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=q; Data Source=” & strOld, _
“Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=q;Data Source=” & strNew & “;Jet OLEDB:Engine Type=5″
Kill strOld
DoEvents
Name strNew As strOld
Set jr = Nothing
End Sub