吐血送分了！！！怎么压缩数据带密码的数据库…………………

Question

这个问题我遇过，给你我的解决方法：        '压缩和修复数据库
        Dim je As New jro.JetEngine
        ' Make sure that a file doesn't exist with the name of
        If Dir(strDataBaseFileNameNew) <> "" Then Kill strDataBaseFileNameNew
        ' Compacts and encrypts database.
        je.CompactDatabase _
                "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Jet OLEDB:Database Password=joybig;" & _
                "Data Source=" & strDataBaseFileName, _
 _
                "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Jet OLEDB:Database Password=joybig;" & _
                "Data Source=" & strDataBaseFileNameNew & _
                ";Jet OLEDB:Encrypt Database=True"
        Set je = Nothing
        FileCopy strDataBaseFileNameNew, strDataBaseFileName
        Kill strDataBaseFileNameNew