Adding a User to a Group

Adding users to a group makes maintaining permissions easier. Because users within a group inherit the permissions of the group you can set permissions once and have it apply to an entire group of users. For example, you can assign update permissions for the Salary table to all managers by simply granting the Managers group update permission.

The following code example demonstrates how to create a new group and add an existing user to that group.

DAO

Sub DAOAddUserToNewGroup()

   Dim wks As DAO.Workspace

   ' Open the workspace

   DBEngine.SystemDB = _

      "C:\Program Files\Microsoft Office\Office\SYSTEM.MDW"

   Set wks = DBEngine.CreateWorkspace("", "Admin", "password")

   ' Create a new group

   wks.Groups.Append wks.CreateGroup("MyGroup", "xMyGroup")

   ' Add the user to the new group

   wks.Users("MyUser").Groups.Append _

      wks.Users("MyUser").CreateGroup("MyGroup")

End Sub

ADOX

Sub ADOAddUserToNewGroup()

   Dim cat As New ADOX.Catalog

   ' Open the catalog

   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=.\NorthWind.mdb;User Id=Admin;" & _

      "Password=password;Jet OLEDB:System database=" & _

      "C:\Program Files\Microsoft Office\Office\SYSTEM.MDW"

   ' Create a new group

   cat.Groups.Append "MyGroup"

   ' Add the user to the new group

   cat.Users("MyUser").Groups.Append "MyGroup"

End Sub

Both DAO and ADOX have a Groups collection on the Users object that can be used to add the user to a group as well as to determine what groups the user belongs to. However, note that with DAO you must create a new Group object using the User object's CreateGroup method before appending the Group object to the User object's Groups collection. With ADOX it is neither necessary nor valid to create a new Group object; just append the name of the group to the User object's Groups collection.