如何压缩有密码的Access2007

yuk_yu

如何压缩有密码的Access2007 '   Microsoft   Jet   and   Replication   Objects   2.6   Library '   Microsoft   Office   12.0   Access   Database   engine   Object   Library

'现在的代码可以实现压缩，但没有打开的密码了，如何实现压缩后access的密码还是存在并且还是原来的密码？？

Sub Button1_Click()
CompactDatabse_2007_JRO ThisWorkbook.Path & "\123.accdb", ThisWorkbook.Path & "\456.accdb"
End Sub

Function CompactDatabse_2007_JRO(ByVal SourceAccdb As String, ByVal TargetAccdb As String) As Boolean
On Error Resume Next
    Dim JRO As JRO.JetEngine
    Set JRO = New JRO.JetEngine
    Dim strS As String
    Dim strT As String
    strS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & SourceAccdb & ";Jet OLEDB:Database Password=123;"

    strT = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetAccdb & ";Jet OLEDB:Engine Type=5" '问题可能在这句！！！我不知怎么加密码
    JRO.CompactDatabase strS, strT
    If Err <> 0 Then
        CompactDatabse_2007_JRO = False
    Else
        Kill ThisWorkbook.Path & "\123.accdb"
        CompactDatabse_2007_JRO = True

        Name ThisWorkbook.Path & "\456.accdb " As ThisWorkbook.Path & "\123.accdb "
    End If
End Function

lipton

如果是旧式加密
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Jet OLEDB:Database Password=MyDbPassword;"
如果是默认方式加密，vba打不开

yuk_yu

lipton 发表于 2012-11-14 13:03
如果是旧式加密
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Je ...

压缩后不行啊！

lipton

"压缩后不行啊！"?

是什么不行,或者哪一行出错？建议关闭错误开关，如果发生错误你也不知道那里语句出错。

yuk_yu

lipton 发表于 2012-11-14 13:48
"压缩后不行啊！"?

是什么不行,或者哪一行出错？建议关闭错误开关，如果发生错误你也不知道那里语句出错 ...

strS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & SourceAccdb & ";Jet OLEDB:Database Password=123;"
    strT = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetAccdb & ";Jet OLEDB:Engine Type=5 Password=123;"
JRO.CompactDatabase strS, strT'这里出错

yuk_yu

yuk_yu 发表于 2012-11-15 14:09
strS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & SourceAccdb & ";Jet OLEDB:Database Passw ...

为何实现压缩后不能加密码呢？

lipton

猜不出来。{:soso_e132:}

yuk_yu

lipton 发表于 2012-11-15 16:14
猜不出来。

我将附件传上来了

lipton

我是win7 64居然不让注册msjro.dll无法测试带密码压缩你试一试下面的语句

strS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & SourceAccdb & ";Jet OLEDB:Database Password=123;"
   
strT = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TargetAccdb & ";Jet OLEDB:Database Password=123;"

yuk_yu

lipton 发表于 2012-11-15 21:04
我是win7 64居然不让注册msjro.dll无法测试带密码压缩你试一试下面的语句

strS = "Provider=Microsoft.A ...

我试过了，不行！