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.12 Auswählen und Anzeigen eines Datensatzes

16.3.13 Einlesen von Personen, die nicht in der Collection enthalten sind

Für den in diesem Beispiel eigentlich nicht vorgesehenen Fall, dass ein Personen-Objekt angezeigt werden soll, das nicht in der Collection objPersonen enthalten ist, greift die Methode LoadPerson des Controller-Objekts mit der Read-Methode der Datenzugriffsklasse auf den in der Datenbank gespeicherten Personendatensatz zu.

Diese öffnet zunächst eine Datensatzgruppe aller Datensätze mit der übergebenen PersonID, wobei die Anzahl logischerweise 1 ist. Die dort enthaltenen Informationen werden nun in ein frisch instanziertes Personen-Objekt eingetragen, das anschließend als Rückgabewert der Funktion festgelegt wird.

Public Function Read(PersonID As Long) As clsPerson

    On Error GoTo Read_Err

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim objPerson As clsPerson

    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT * FROM tblPersonen " _
        & "WHERE [PersonID] = " & PersonID, dbOpenDynaset)
    Set objPerson = New clsPerson

    With objPerson
        .PersonID = rst![PersonID]
        .Vorname = rst![Vorname]
        .Nachname = rst![Nachname]
        .Strasse = rst![Strasse]
        .PLZ = rst![PLZ]
        .Ort = rst![Ort]
    End With

    Set Read = objPerson

Read_Exit:
    On Error Resume Next
    Set objPerson = Nothing
    rst.Close
    Set rst = Nothing
    Set db = Nothing
    Exit Function

Read_Err:
    GoTo Read_Exit

End Function

Listing 16.41: Einlesen eines Datensatzes in ein Objekt der Business-Schicht

Von hier aus geht es dann über die Business-Schicht direkt in die GUI-Schicht. Dort wartet die Routine aus Listing 16.39 bereits und trägt die Eigenschaften der gewünschten Person in die entsprechenden Textfelder des Formulars ein.

Nächster Abschnitt:

16.3.14 Neuer Datensatz

© 2006-2008 André Minhorst Alle Rechte vorbehalten.