Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

BEISPIEL

Kapitel 6: DAO-Programmierung

■ Dynaset

■ Snapshot

■ Table

■ Forward

■ Dynamic

Ein Dynaset stellt eine dynamische Sicht (View) auf eine oder auch mehrere Tabelle(n) der geöffneten

Datenbank dar. Dynasets sind das Resultat einer Abfrage und repräsentieren quasi die Ergebnismenge.

Unter bestimmten Bedingungen ist es möglich, ein Dynaset zu editieren. Im Gegensatz dazu stellt ein

Snapshot das Abbild zum Zeitpunkt der Abfrage dar. Snapshots lassen sich nicht editieren und sind damit

lediglich für die Anzeige und die Auswertung von Daten von Interesse.

Der dritte Typ (Table) unterscheidet sich von den beiden vorangegangenen dadurch, dass es sich immer um

das Abbild einer Tabelle handelt. Dies schließt alle Zeilen und alle Spalten ein.

Die Datentypen Forward und Dynamic sind im Wesentlichen nur für die Arbeit mit ODBC-Datenquellen

interessant und werden auch erst im entsprechenden Kapitel 9 näher beleuchtet. An dieser Stelle nur so viel:

Beide Typen dienen der Optimierung von Datenbankzugriffen.

Über ein Recordset-Objekt werden die typischen Datenbank-Aktionen abgewickelt: Hinzufügen, Ändern,

Löschen, Suchen etc.

Verwendung der Datenbankobjekte

Grundsätzlich handelt es sich bei den Datenbankobjekten um Objektvariablen, die in den meisten Fällen

vor der Verwendung initialisiert werden müssen.

Die folgende Anweisung deklariert lediglich eine Variable vom Typ

Database

, mehr aber auch nicht.

Dim db As Database

Wollen Sie eine Eigenschaft abfragen oder eine Methode ausführen, initialisieren Sie die Variable durch das

Zuweisen eines bestehenden Objekts:

Dim ws As Workspace

Dim db As DataBase

Set ws = dbEngine.Workspace(0) ' Zuweisen der Standard-Workspace

Set db = ws.Databases(0) ' Zuweisen der aktuellen Datenbank

Weiterhin können Objekte auch von Methoden (meist

Create...

) zurückgegeben werden:

Dim ws As Workspace

Dim db As DataBase

Set ws = dbEngine.Workspace(0) ' Zuweisen der Standard-Workspace

Set db = ws.CreateDatabase("Personalverwaltung", dbLangGeneral)

294