程序怎样实现ACCESS菜单中“工具

Question

如题所述

Answer 1

'引用 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