Compacting an access db from vb

S

Simon Verona

I use JRO (add a reference to Interop.JRO.Dll) and the following code

Private Sub CompactDatabase(ByVal Directory As String, ByVal Filename As String) ' Directory is the directory that contains the access database

' Compact Access Database

Dim jro As JRO.JetEngine

jro = New JRO.JetEngine

If System.IO.File.Exists(Directory & "\New" & Filename) Then System.IO.File.Delete(Directory & "\New" & Filename) ' Check that there is no file called New + Filename

Try

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Directory & "\" & Filename, _

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Directory & "\New" & Filename & ";Jet OLEDB:Engine Type=5") ' Compacts the database into a new file beginning with "new"

System.IO.File.Delete(Directory & "\" & Filename) ' Deletes the original database

System.IO.File.Copy(Directory & "\New" & Filename, Directory & "\" & Filename, True) ' Copys across the New over the original

System.IO.File.Delete(Directory & "\New" & Filename) ' Delete the New database

Catch

End Try

End Sub



Regards
Simon

--
================================
Simon Verona
Dealer Management Service Ltd
Stewart House
Centurion Business Park
Julian Way
Sheffield
S9 1GD

Tel: 0870 080 2300
Fax: 0870 735 0011
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Compacting Access db from vb(6) 3
Entering data to an sql express db from date time picker 1
#Error in all the fields in Access 2003 database 2
Refreshing datagridview 1
Making an email program 2
Using MSAccess internal Query in VB 2008 3
Using VB 2008 find out who is using access databae 4
DropDown with values from a field in an Access db 3

Top