ALTER USER给出语法错误

Question

我正在创建自己的表单，允许用户使用用户级安全性* .mdb文件在Microsoft Access数据库中更改其密码。当我运行以下VBA代码时，我收到错误 3293：ALTER TABLE语句中的语法错误。

CurrentDb().Execute "ALTER USER user PASSWORD NewPassword OldPassword"

我按照documentation中的说明操作。 我们如何通过VBA更改密码？

Answer 1

CurrentDb.Execute是一种DAO方法，但必须从ADO执行ALTER USER。

Dim strSql As String
strSql = "ALTER USER user PASSWORD NewPassword OldPassword"
CurrentProject.Connection.Execute strSql

CurrentProject.Connection.Execute是一种ADO方法。