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!

10.3.11 Ausgabe des Inhalts eines Recordsets

10.3.12 Speichern der Daten in einem Array

Wenn Sie die Daten einer Datensatzgruppe in einem Array weiter verarbeiten möchten, können Sie mit der GetRows-Methode ein zweidimensionales Array mit den in der Datensatzgruppe enthaltenen Daten füllen.

Die GetRows-Methode hat drei Parameter: Rows gibt an, wie viele Datensätze eingelesen werden sollen, Start enthält ein Bookmark auf den ersten einzulesenden Datensatz und Fields die Position oder den Namen des einzulesenden Feldes beziehungsweise ein Array mit den Namen der einzulesenden Felder. Ohne die Angabe von Parametern liest GetRows alle Datensätze mit allen Feldern ein.

Public Sub DatensatzgruppeInArray()

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim varRecordset() As Variant
    Dim i As Integer
    Dim j As Integer

    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset

    rst.Open "tblUnternehmen", cnn, adOpenForwardOnly, adLockOptimistic
    varRecordset = rst.GetRows()

    For i = 0 To UBound( varRecordset, 2)
        For j = 0 To UBound(varRecordset, 1)    
            Debug.Print varRecordset(j, i)
        Next j
    Next i

    rst.Close
    Set rst = Nothing
    Set cnn = Nothing

End Sub

Listing 10.19: Einlesen der Daten einer Datensatzgruppe in ein Array

Nächster Abschnitt:

10.3.13 Abfragen mit Parametern verwenden

© 2006-2008 André Minhorst Alle Rechte vorbehalten.