compact mdb vb6

[alexis23]

hi there,

do you have any sample code that will compact and repair mdb file 2002 thru vb6

thanks,

alexis

[cyberpd]

check this out..

I have found this piece of code in the code repository of this forum..

Option Explicit
 
Private Sub Command1_Click()
 
On Error GoTo MyError
 
    Dim oApp As Access.Application
 
 
    Set oApp = New Access.Application
 
    oApp.DBEngine.CompactDatabase "D:\INVOICE.mdb", "D:\INVOICECpd.mdb"
 
    Kill "D:\INVOICE.mdb"
 
    Name "D:\INVOICECpd.mdb" As "D:\INVOICE.mdb"
 
    
    MsgBox "Compact Complete!", vbOKOnly
 
    oApp.Quit acQuitSaveNone
 
    Set oApp = Nothing
 
    Exit Sub
 
MyError:
 
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly
End Sub

[Shuja Ali]

hi there,

do you have any sample code that will compact and repair mdb file 2002 thru vb6

thanks,

alexis

The only issue with the code posted above is that you need to have access installed on the system to compact / repair the mdb.
Take a look at this post.

[zynder]

Make sure you reference this in VB IDE.

Go To Project> Reference

Microsoft ActiveX Data Objects 2.x Library
Microsoft Jet and Replication Objects 2.x Library

[Dnereb]

You can also use the command line switche to run this out of sync.
Shell("PathToAccess\Access"" \Compact"" ""DatabaseFile"" ")

[ksuwanto8ksd]

Hi all
I tried this code and come with compile error:
user define type not define

Option Explicit
 
Private Sub Command1_Click()
 
On Error GoTo MyError
 
    Dim oApp As Access.Application
 
 
    Set oApp = New Access.Application
 
    oApp.DBEngine.CompactDatabase "D:\INVOICE.mdb", "D:\INVOICECpd.mdb"
 
    Kill "D:\INVOICE.mdb"
 
    Name "D:\INVOICECpd.mdb" As "D:\INVOICE.mdb"
 
    
    MsgBox "Compact Complete!", vbOKOnly
 
    oApp.Quit acQuitSaveNone
 
    Set oApp = Nothing
 
    Exit Sub
 
MyError:
 
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly
End Sub

reference to this

Microsoft ActiveX Data Objects 2.x Library
Microsoft Jet and Replication Objects 2.x Library

I am using vb6 and access 2003

Thanks in advance

Regard,
Cesin

[Neato]

reference to this

Microsoft ActiveX Data Objects 2.x Library
Microsoft Jet and Replication Objects 2.x Library

I am using vb6 and access 2003

Thanks in advance

Regard,
Cesin

Make sure you reference this in VB IDE.

Go To Project> Reference

Microsoft ActiveX Data Objects 2.x Library
Microsoft Jet and Replication Objects 2.x Library

You have to set the references to the lib files through your project->references view, as zynder explained earlier.

[cyberpd]

NEATO is right.
you have to set the references first then try the code.

[Hack]

Moved to database development

[RonR]

when a DB is compacted is it also repaired??