如果把已有的access加密码

Question

如题，
已经有一个access的mdb数据库且已经有数据
不想新建另一个再数据导出导入的
有没有方法在这个已存在的数据库中加密码？

Answer 1

'需要用压缩数据库方法生成一个新的数据库文件，然后删除旧文件，将新文件改成原文件名
'引用JRO(工程/引用/Microsoft Jet and Replication Objects 2.6 Library)
Dim JRO As New JRO.JetEngine, strSource As String, strDestDB As String, oldPassword As String, NewPassword As String
strSource = App.Path & "\Test.mdb "
strDestDB = "temp.mdb"
oldPassword = "oldPwd"
NewPassword = "newPwd"
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSource & ";Jet OLEDB:Database Password=" & oldPassword, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDestDB & ";Jet OLEDB:Database Password=" & NewPassword
Kill strSource  '删除文件
Name strDestDB As strSource  '重新命名文件