如何用DAO打开加密的Access数据库？

Question

OpenDataBase(...,False,False,DBConnect)
                            ~~~~~~~~~~~~~~
                            这里可以指定password等等，看看msdn  

Answer 1

set Db=OpenDataBase(....,false,false,";uid=**;pwd=******;")
uid指用户名，pwd指密码，*号你根据情况去写就好了。

Answer 2

如果用工作组 加密
with dbengine
.systemdb=*.mdw
end with
Set Wkspace = DBEngine.CreateWorkspace("", (CurUser), (CurPwd))
Set db = Wkspace.OpenDatabase(AppMDB)

Answer 3

dim db as database
set db=opendatabase(数据库名)
这不就好了。

Answer 4

使用DAO对象的时候在PASSWORD属性里写上密码就行了。

Answer 5

set db=OpenDataBase(数据库,false,false,";pwd=密码")