Compact/Repair an Access DB from VB.NET

[PogoWolf]

Is there a way to compact a database from code, WITHOUT dropping back to RDO, in VB.NET?

I'm not seeing any commands for the OLEDB object that will allow me to compact it..



The PogoWolf

http://pogowolf.GamersCommune.com

 

[chrissie1]

will jro do?

http://groups-beta.google.com/group...c.dotnet.*&hl=en&lr=&ie=UTF-8&oe=UTF-8&rnum=2

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[PogoWolf]

perhaps.. Though I was hoping to get around the need to reference aother oject...

Need to have MDAC2.6 installed on the computer (VS.NET installs MDAC2.7)

will this work with MDAC 2.7, then?


either way, I'll give it a shot.. thanks!!!!



The PogoWolf

http://pogowolf.GamersCommune.com

 

[chrissie1]

I guess it will work with 2.7.

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[PogoWolf]

Well that did work, and I thank you so much for the help.

'// Compact the DB.
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\DataBase\RALPHhz.mdb", _
                    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\DataBase\RALPHhz2.mdb;Jet OLEDB:Engine Type=5")
Kill (".\DataBase\RALPHhz.mdb")
Rename(".\DataBase\RALPHhz2.mdb", ".\DataBase\RALPHhz.mdb")

but there's got to be a better way.. this just seems to be a bit much to me for being .NET.. =/


The PogoWolf

http://pogowolf.GamersCommune.com

 

[GaryWilsonCPA]

Thanks for the great link.

Just so this thread is complete, I am posting two instructions needed before the code is entered.

Step 1:
Need to have MDAC2.6 installed on the computer (VS.NET insta­lls MDAC2.7)


Step 2:
write-click References in your VB.NET or C#.NET project, sel­ect Add
Reference. Click Com Tab and double click on "Microsoft Jet­ and
Replication Objects 2.6 Library" then click "OK" button twic­e. This will
add ADODB and JRO references to the project.


Step 3:
Use the following code (VB.NET):


Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.­0;Data
Source=C:\...\nwind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\...\newnwind.mdb;Jet OLEDB:Engine Type=5")


Engine Type = 5 for Jet 4.0 database (Access 2000 format).