Dim d As dao.Database
Set d = dao.DBEngine.OpenDatabase("d:\new.mdb", True, False, "ms access;pwd=yuan" )
d.NewPassword "yuan", "fei"
用 ADO 又怎样才能呢?我引用 ADOX ,似乎也没有找到办法啊!
...全文
1296打赏收藏
ADO 如果更改 ACCESS 数据库密码?
用DAO可以这样: Dim d As dao.Database Set d = dao.DBEngine.OpenDatabase("d:\new.mdb", True, False, "ms access;pwd=yuan" ) d.NewPassword "yuan", "fei" 用 ADO 又怎样才能呢?我引用 ADOX ,似乎也没有找到办法啊!