compact a msaccess db

[alexis23]

hi..

can you pls. give me a link on how to compact a msaccess database within vb6 project.

thanks,

alexis

[nagasrikanth]

use:

DBEngine.CompactDatabase("xyz.mdb","abc.mdb")

I think u need to refere DAO in your project...

[Shuja Ali]

Or else Use Microsoft JRO.

Add a reference to Microsoft Jet and Replication Objects 2.x Library by opening Project Menu. And then use this function

Public Function compactRepairMDB(ByVal sourceMDBPath As String, ByVal targetMDBPath As String) As Boolean
    Dim jetReplicationObject As JRO.JetEngine
    Set jetReplicationObject = New JRO.JetEngine
    jetReplicationObject.CompactDatabase _
        "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" _
        & sourceMDBPath, "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" _
        & targetMDBPath
    compactRepairMDB = True
    Set jetReplicationObject = Nothing
    Exit Function
CompactErr:
    compactRepairMDB = False
End Function

You can use this function like this

JetReplication.compactRepairMDB("C:\db1.mdb", "C:\db2.mdb")

[alexis23]

what are the things i should consider?? should the database be closed first?? how would i know if someone is still using the database?? can i check if the ".ldb" exists, does it mean someone is still using the database?? is it reliable??

[nagasrikanth]

I think it will gives an error if the file was opened..Handling the error will solve your problem easily rather than checking for ldb file..

[alexis23]

ok thanks, i 'll try the code above.