Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

16.3.10 Zugriff des Datenzugriffsobjekts auf die Datenschicht

16.3.11 Die Klasse clsPerson

Die Find-Routine hat Objekte des Typs clsPerson verwendet, um die Daten aus der Tabelle tblPersonen in einer Collection aller enthaltenen Datensätze zu speichern. Solche Objekte zum Verwenden von in Tabellen gespeicherten Objekten heißen Value-Objekte. Sie speichern lediglich die Daten der in der Tabelle enthaltenen Datensätze.

Dabei sind alle Felder als private Variablen vorhanden, die mit Property Get- und Property Let-Prozeduren von außen gelesen und geschrieben werden können. Die Klasse clsPerson sieht wie folgt aus:

Dim mPersonID As Long
Dim mVorname As String
Dim mNachname As String
Dim mStrasse As String
Dim mPLZ As String
Dim mOrt As String

Public Property Get PersonID() As Long
    PersonID = mPersonID
End Property

Public Property Let PersonID(lngPersonID As Long)
    mPersonID = lngPersonID
End Property

Public Property Get Vorname() As String
    Vorname = mVorname
End Property
Public Property Let Vorname(strVorname As String)
    mVorname = strVorname
End Property

Public Property Get Nachname() As String
    Nachname = mNachname
End Property

Public Property Let Nachname(strNachname As String)
    mNachname = strNachname
End Property

Public Property Get Strasse() As String
    Strasse = mStrasse
End Property

Public Property Let Strasse(strStrasse As String)
    mStrasse = strStrasse
End Property

Public Property Get PLZ() As String
    PLZ = mPLZ
End Property

Public Property Let PLZ(strPLZ As String)
    mPLZ = strPLZ
End Property

Public Property Get Ort() As String
    Ort = mOrt
End Property

Public Property Let Ort(strOrt As String)
    mOrt = strOrt
End Property

Listing 16.38: Code der Klasse clsPerson

Nächster Abschnitt:

16.3.12 Auswählen und Anzeigen eines Datensatzes

© 2006-2008 André Minhorst Alle Rechte vorbehalten.