Compact Progress

Compact Progress

Post by Richard Liddimen » Wed, 10 Jul 2002 20:42:10

Is there a way to show the progress of compacting an access database?

When you are compacting a large database, it can appear to the user that
their system has frozen. When you compact in access itself, you do get a
progress bar in the bottom corner, so it must be possible to do it in a VB

Any ideas will be much appreciated.



1. Compacting progress bar

hi guys,

i have this compact method.... i need to add a progress bar is there a way
to do this that is going to be accurate? Can i acctualy get the status of
the compactDatabase method in the JRO? otherwise i am not sure how to add a
accurate progress bar.



Public Sub CompactDB()
    Dim JRO As JRO.JetEngine
    Set JRO = New JRO.JetEngine
    Dim strSource As String
    Dim strDest As String

    strSource = App.Path & "\Sigma.mdb"
    strDest = App.Path & "\Sigma1.mdb"

    'Close the database

    'Compact and repair
    JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
strSource, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDest
    Kill strSource
    FileCopy strDest, strSource
    Kill strDest

    'Open the database
End Sub

2. org.omg.CORBA.INITIALIZE: can't instantiate default ORB implementation

3. Showing Compacting Progress in VB

4. Local vs Global cursors?

5. Displaying Progress of a Compacting Access File

6. Finding the record I just added

7. Compacting ACCESS database - Progress bar?

8. Help!! About local model

9. Need progress bar to show when db is compacted

10. Compact Database to progress bar

11. Update a Progress Bar during Compact or Repair?

12. Track the progress of Replication by progress bar?

13. Progress-Entwickler sucht neue Aufgabe (German Progress Developer available)