如何用代码更改工作组的登录密码

4848

本人想自己做一个修改工作组登录密码的窗体,因为系统自带的窗体"用户与组账户"中虽然可以更改登录密码,但多了'用户'和'组'两个选项.

koutx

文本框掩码（注：指输入时不显示原码）

4848

文本框掩码
koutx 发表于 2009-2-9 17:36

不明白,能不能指点详细一点?

koutx

右击文本框选属性，然后照下图操作：

4848

可能是我表达不清楚,koutx 有点误解,我的意思是要用代码修改密码(工作组的用户密码)而不是在文本框里输入密码格式的文本.

koutx

如你要修改工作组中原设密码的话，需有管理员权限。并需你创建工作组文件时的ID

4848

可以说一下具体操作吗?

ACMAIN_CHM

可以试试通过ADOX来改一下数据库用户账号的密码。 要在工程中引用adox

Public Sub tt()
   
    Dim cat As New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
   
    cat.Users("admin").ChangePassword "oldPasswd", "newPswd"
   
End Sub


******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

koutx

在这种问题上费这么多精力真没必要。
不过，还是贴在下面试试吧：
Private Function RenamUserP(ByVal strUser As String, _
        ByVal strPID As String, _
        Optional ByVal strPwd As String) As Boolean
    Dim catDB As ADOX.Catalog
   
    ' 实例化 Catalog 对象。
    Set catDB = New ADOX.Catalog
    With catDB
        ' 使用到当前数据库的连接打开Catalog 对象。
        .ActiveConnection = CurrentProject.Connection
        .user.changePassword old,new
    End With
    ' 关闭 Catalog 对象。
    Set catDB = Nothing
End Function

Grant

确实，自定义的模块比安全机制好用多了