程序怎样实现ACCESS菜单中“工具－＞数据库实用工具－＞压缩和修复数据库”的功能

Question

VB^6 程序怎样实现ACCESS菜单中“工具－＞数据库实用工具－＞压缩和修复数据库”的功能

Answer 1

http://community.csdn.net/Expert/topic/5512/5512122.xml?temp=.2333795

Answer 2

兄弟看看vb自带的visdata好吗？关于dao操作access的，所有功能都有。

Answer 3

'引用 microsoft jet and replication object 2.6 library
    
    Dim miJRO As jro.JetEngine
    Set miJRO = New jro.JetEngine    On Error GoTo Err1
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\yourdb.mdb;" _
        & "Jet OLEDB:Database Password=123", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\newdb.mdb;" _
        & "Jet OLEDB:Database Password=abc"
        
    On Error Resume Next
        Kill App.Path & "\yourdb.mdb"
        FileCopy App.Path & "\newdb.mdb", App.Path & "\yourdb.mdb"
        Kill App.Path & "\newdb.mdb"
        
Err1:  
     exit sub