Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

BEISPIEL

BEISPIEL

Tabelle

Mitarbeiter

lesen:

D.UserName = "Pförtner"

D.Permissions = dbSecRetrieveData

Der geheimnisvolle Mitarbeiter

Bauer

bekommt Vollzugriff auf die Tabelle

Personal

:

Set D = db.Containers!Tables.Documents("Personal")

Tabelle

Personal

bearbeiten

D.UserName = "Bauer"

D.Permissions = dbSecReadDef Or dbSecReplaceData Or dbSecInsertData Or dbSecDeleteData

... aber keinen Zugriff auf die restliche Verwaltung, denn so weit geht das Vertrauen nun auch wieder nicht.

db.Close

ws.Close

Zum Test loggen Sie sich in der neuen Datenbank unter verschiedenen Namen ein und kontrollieren die

Rechte der einzelnen Nutzer. Überprüfen Sie, ob externe User oder Gruppen Zugang zur neuen Datenbank haben.

Erstellen neuer Benutzer und Gruppen (ADOX)

Auch mit ADOX ist es problemlos möglich, Benutzer und Gruppen zu erzeugen. Die folgende Abbildung

zeigt noch einmal die relevanten Objekte.

Abbildung 9.26 ADOX-Objekte zur Userverwaltung

Die folgenden Beispiele entsprechen den DAO-Beispielen aus den vorhergehenden Abschnitten.

Hinzufügen einer Gruppe »Buchhalter«:

Dim cat As New ADOX.Catalog

cat.ActiveConnection = Application.CurrentProject.Connection

cat.Groups.Append "Buchhalter"

Hinzufügen der Personen »Müller« und »Braun«:

Dim cat As New ADOX.Catalog

cat.ActiveConnection = Application.CurrentProject.Connection

545

Zugriffsschutz in Access-Datenbanken