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!

9.9.10 Umgang mit mehrwertigen Feldern

9.9.11 Lesen des Inhalts von mehrwertigen Feldern, Variante I

Mit dieser Erkenntnis lässt sich der Inhalt des Feldes leicht auslesen - nämlich genau wie bei Daten eines Attachment-Feldes. Sie müssen einfach nur einem weiteren Recordset den Inhalt des mehrwertigen Feldes zuweisen und dieses Recordset durchlaufen. Achten Sie nur darauf, dass Sie ein Recordset2-Objekt und nicht das ältere Recordset-Objekt verwenden. Da das Anlegen, Bearbeiten und Löschen von Daten in mehrwertigen Feldern bei Verwendung eines Recordsets nichts anderes ist, als wenn Sie die genannten Operationen mit einem herkömmlichen Recordset-Objekt durchführen, sollen diese Techniken hier nicht erneut erläutert werden.

Public Sub MehrwertigesFeldLesen()

    Dim db As DAO.Database
    Dim rst As DAO.Recordset2
    Dim rstMehrwertfeld As DAO.Recordset2
    Set db = CurrentDb
    Set rst = db.OpenRecordset("tblMehrwertigesFeld", dbOpenDynaset)
    
    Do While Not rst.EOF
        Set rstMehrwertfeld = rst.Fields("MehrwertigesFeld").Value
        Do While Not rstMehrwertfeld.EOF
            Debug.Print rstMehrwertfeld!Value
            rstMehrwertfeld.MoveNext
        Loop
        rst.MoveNext
    Loop
    
    Set db = Nothing
End Sub

Listing 9.54: Lesen des Inhalts mehrwertiger Felder, lange Version

Nächster Abschnitt:

9.9.12 Lesen des Inhalts mehrwertiger Felder, Variante II

© 2006-2008 André Minhorst Alle Rechte vorbehalten.