Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

cat.ActiveConnection = Application.CurrentProject.Connection

tbl.name = "Tabelle1"

Set tbl.ParentCatalog = cat

tbl.Columns.Append "Daten", adInteger

tbl.Columns("Daten").Properties("Description") = "Hier stehen die wichtigen Daten"

cat.Tables.Append tbl

End Sub

Abbildung 9.18 Die erzeugte Tabelle in der Entwurfsansicht

Anzeige der Tabellenfeld-Beschreibung in einem Meldungsfenster.

Sub Beschreibung_Datenfeld_abrufen()

Dim catalog As New ADOX.catalog

Dim conn As New ADODB.Connection

catalog.ActiveConnection = Application.CurrentProject.Connection

MsgBox catalog.Tables("Tabelle1").Columns("Daten").Properties("Description").Value

End Sub

Zugriffsschutz in Access-Datenbanken

Im vorliegenden Abschnitt wollen wir uns vorerst nur auf Access-Datenbanken beschränken. In Kapitel 10

werden dann die SQL Server-spezifischen Sicherheitsmechanismen vorgestellt.

Die einfachste Möglichkeit, Datenbanken zu schützen, haben Sie in diesem Kapitel bzw. in Kapitel 7 bereits

kennen gelernt. Hintergrund ist das Zuweisen eines Datenbank-Passwortes, die gleiche Funktion, die Sie

auch über die Multifunktionsleiste Datenbanktools/Mit Kennwort verschlüsseln realisieren können.

Abbildung 9.19 Festlegen des Datenbank-Kennwortes

Das verwendete Verfahren scheint zwar relativ sicher, hat aber den Nachteil, nicht flexibel genug zu sein.

Entweder kann der Nutzer auf die gesamte Datenbank zugreifen, oder er kann es nicht. Der folgende

Abschnitt zeigt weitere Verfahren und deren Realisierung mit der Datenbank-Engine.

533

Zugriffsschutz in Access-Datenbanken