|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
DBaaS会导致单一客户利润率的下降,因为云服务一般是依靠MySQL学习教程数来抵消较低的利润率。上面是修正事情组用户暗码的函数,挪用时假如用于暗码为空,请利用"",不要利用null,二者分歧。:)FunctionCheckUserPasswordInGroup(UserNameAsString,_
oldPasswordAsString,newPasswordAsString)AsBoolean
OnErrorGoToChkErr
DimwkAsDAO.Workspace,UrAsDAO.User,iAsInteger,FoundAsBoolean
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&"不是一个无效的用户名!",_
vbExclamation,"艾赛思使用网"
CheckUserPasswordInGroup=False
ExitFunction
EndIf
CheckUserPasswordInGroup=True
ExitFunction
ChkErr:
MsgBox""&UserName&"用户暗码修正失利!",_
vbExclamation,"艾赛思使用网"
CheckUserPasswordInGroup=False
EndFunction
DBaaS会导致单一客户利润率的下降,因为云服务一般是依靠MySQL学习教程数来抵消较低的利润率。 |
|