修改工作组用户密码数据库教程 电脑资料

修改工作组用户密码数据库教程 电脑资料 Function CheckUserPasswordInGroup(UserName As String,_ oldPassword As String, ne

修改工作组用户密码数据库教程电脑资料 FunctionCheckUserPasswordInGroup(UserNameAsString,_ oldPasswordAsString,newPasswordAsString)AsBoolean OnErrorGoToChkErr DimwkAsDAO.Workspace,UrAsDAO.User,iAsInteger,Found AsBoolean CheckUserPasswordInGroup=False Found=False Setwk=DBEngine.CreateWorkspace("","Admin","") '//要特别注意上面一句，必须使用拥有数据库权限的用户名和密码打 开工作区！ '//下面一段是查找用户名是否存在，如果存在，修改密码，不存在出 错。 Fori=0Towk.Users.Count-1 Ifwk.Users(i).Name=UserNameThen SetUr=wk.Users(i) Found=True Ur.newPasswordoldPassword,newPassword ExitFor EndIf Nexti IfNotFoundThen MsgBox"'"&UserName&"'不是一个有效的用户名！",_