100分求救！如何压缩、修复Access2000数据库？急！

Question

关于Access数据库的压缩与恢复问题:
http://www.csdn.net/expert/TopicView.asp?id=31714

Answer 1

引用 Microsoft Jet and Replication Objects 2.X
语法
JetEngine.CompactDatabase(SourceConnection, DestConnection)
参数
SourceConnection  字符串值。指定与将要被压缩的源数据库的连接。如果由 SourceConnection 指定的数据库已经打开，将出现错误。
DestConnection  字符串值。指定与将由压缩创建的目标数据库的连接。如果由 DestConnection 指定的数据库已经存在或另一个同名文件已经存在，将出现错误。例:
Dim je As New JRO.JetEngine    ' 确保不存在与该压缩数据库同名的文件。
    If Dir("C:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind2.mdb") <> "" Then Kill & _
        "C:\Program Files\Microsoft Office\Office\Samples\Northwind2.mdb"    '压缩并加密版本 Northwind 数据库。
    je.CompactDatabase _
    "Provider=Microsoft.Jet.OLEDB.4.0; & _
        "Data Source=C:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0; & _
        "Data Source=C:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind2.mdb;" _
    "Jet OLEDB:Encrypt Database=True"

Answer 2

好了！很好用！
呜~~~~~  其实我以前看过这段代码，但是那时候调试没通过。呜，我可怜的100分~~~~还有，最后一句不明白，Jet还没有帮助，太恶心了~~~~
"Jet OLEDB:Encrypt Database=True" 
到底什么意思？它的出处？ 请playyuer(女爱㊣)给小弟讲讲
还有，压缩Access2000数据库应该也是这样吧。现在加上50分，还有50分等着你，谢谢

Answer 3

to playyuer(女爱㊣):
    怎么压缩Access2000数据库? 还有50分

Answer 4

哪位高人帮帮忙解决这个问题，如果实在不行我只能有Access97了。

Answer 5

CompactDatabase不就是压缩Access2000数据库吗!
Encrypt是加密的意思(无所谓)

Answer 6

2 playyuer(女爱㊣):
问题解决了。我买了张Msdn 2000 july.上面有DAO 3.6的例子。
呵呵，完整的函数可以拿来就用。DAO 3.6w完全支持 Access2000.
分数给你，下次有机会再讨教 ：）