VB如何压缩并修复ACCESS数据库。

Question

压缩并修复ACCESS数据库的代码是什么？

Answer 1

在Project--References中加入 Microsoft Jet and Replication Objects X.X library,其中 ( X.X 大于或等于 2.1 )。 Private Sub Command1_Click()
    Dim sjro As jro.JetEngine
Set sjro = New jro.JetEngine
'來源文件
sjro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Test2.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4" '目的文件End Sub