Compact Access Database

[Brian P. Hammer]

All,

How do I go about compacting an Access XP database from VB code? I use a database for various reporting information and records are often deleted and created. The size of the database can grow large so I need to be able to compact the database from my VB app.

--
Thanks,
Brian P. Hammer

[Len Weaver]

Hello Brian,

How do I go about compacting an Access XP database
from VB code?

Check out the following link:

http://support.microsoft.com/default...b;en-us;306287

Hope this helps,
Len

[Santosh Rana]

-----Original Message-----
All,

How do I go about compacting an Access XP database from VB code? I use a database for various reporting
information and records are often deleted and created.
The size of the database can grow large so I need to be
able to compact the database from my VB app.
--
Thanks,
Brian P. Hammer

use DAO

if CnnTex.State = adStateOpen Then CnnTex.Close
strInPut = App.Path & "\Fabrica_Tex.Mdb"
strOutPut = App.Path & "\Fabrica_Tex1.Mdb"
If optDb(0) Then
Label1 = "Compressing Database..."
Screen.MousePointer = vbHourglass
'Kill strOutPut
DBEngine.CompactDatabase strInPut, strOutPut
Screen.MousePointer = vbDefault
NewName = App.Path & "\Fabrica_Tex2.Mdb"
Name strInPut As NewName
Name strOutPut As strInPut
Kill NewName
Label1 = "Database Successfully Compressed."
end if
end if