程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 修改工作組用戶密碼

修改工作組用戶密碼

編輯:關於Access數據庫
下面是修改工作組用戶密碼的函數,調用時如果用於密碼為空,請使用"",不要使用null,兩者不同。:)

Function CheckUserPassWordInGroup(UserName As String,_
        oldPassword As String, newPassWord As String) As Boolean
On Error GoTo ChkErr
   Dim wk As DAO.Workspace, Ur As DAO.User, i As Integer, Found As Boolean
   CheckUserPassWordInGroup = False
   Found = False
   Set wk = DBEngine.CreateWorkspace("", "Admin", "")
   '//要特別注意上面一句,必須使用擁有數據庫管理權限的用戶名和密碼打開工作區!

   '//下面一段是查找用戶名是否存在,如果存在,修改密碼,不存在出錯報告。
   For i = 0 To wk.Users.Count - 1
     If wk.Users(i).Name = UserName Then
       Set Ur = wk.Users(i)
       Found = True
       Ur.newPassword oldPassword, newPassWord
       Exit For
     End If
   Next i

   If Not Found Then
     MsgBox "'" & UserName & "' 不是一個有效的用戶名!",_
          vbExclamation, "艾賽思應用網"
     CheckUserPassWordInGroup = False
     Exit Function
   End If
   CheckUserPassWordInGroup = True
   Exit Function
ChkErr:
   MsgBox "'" & UserName & "' 用戶密碼修改失敗!",_
         vbExclamation, "艾賽思應用網"
   CheckUserPassWordInGroup = False
End Function

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved