How automatically doing Compact and Repair Database?

Hi speedbit,

Everything you want to know about bloating mdbs
http://www.granite.ab.ca/access/bloatfe.htm


Good Luck!

Gary

Hello speedbit,

In VB, you'd use code like this to compact and repair an access database....

     Public Sub CompactAccessDataBase(dbPath As String, NewPath As String)
         Dim acc As Object
         Set acc = CreateObject("Access.Application")
         acc.CompactRepair dbPath, NewPath
         Set acc = Nothing
     End Sub
     
     Sub test()
         CompactAccessDataBase "C:\YourDatabase.mdb", "C:\YourDatabase_NEW.mdb"
     End Sub

Regards,

Wayne

thank you, but i still need a code or method to automatically repair the database file from outside ms access

speedbit,

You can use that code I posted. By modifying it slightly, you can create a VB script file, and set it to run every so ofter via the Windows Task Scheduler.

Open Notepad, and paste in this code....

     dim OldFile, NewFile, Acc,FSO, comp
     OldFile = "C:\db1.mdb"
     NewFile = "C:\db2.mdb"
     Set acc = CreateObject("Access.Application")
     Set FSO = CreateObject("Scripting.FileSystemObject")
     comp = acc.CompactRepair(OldFile, NewFile)
     FSO.DeleteFile OldFile
     FSO.MoveFile NewFile, OldFile
     Set acc = Nothing
     Set FSO  = Nothing

Save the file as CompactDB.vbs, where ever you like.

Then add a new task to Scheduled Tasks, pointing it to the vbs file you created.

Wayne

thank you but i need a delphi code

Hi,
i think you solution here:

https://www.experts-exchange.com/questions/20255768/Using-Access-repair-and-compact-ability-in-Delphi.html