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.7.2 Datensatzgruppe laden

10.7.3 Ungebundene Recordsets verwenden

Unter ADO lassen sich Recordsets ohne Angabe einer Datenherkunft anlegen und zum Speichern von Daten verwenden - also ohne ein Connection-Objekt. Da ein ungebundenes Recordset keine Datenherkunft hat, besitzt es natürlich auch noch keine Felder. Diese können Sie ganz einfach mit der Append-Methode der Fields-Auflistung des Recordset-Objekts hinzufügen.

Anschließend können Sie das Recordset ganz normal verwenden. Ein ungebundenes Recordset ist beispielsweise sehr nützlich, wenn Sie größere Datenmengen in Kombinationsfeldern, Listenfeldern oder sogar Datenblättern anzeigen möchten, diese aber nicht in einer Tabelle gespeichert werden sollen.

Die Routine aus dem folgenden Beispiel legt eine Datensatzgruppe mit den beiden Feldern ModulID und Modulname an und fügt alle Module der aktuellen Datenbank hinzu. Anschließend gibt sie alle Einträge der Tabelle im Direktfenster aus.

Public Sub UngebundeneDatensatzgruppe()

    Dim rst As ADODB.Recordset
    Dim objModul As AccessObject
    Dim i As Integer

    Set rst = New ADODB.Recordset

    rst.Fields.Append "ModulID", adInteger
    rst.Fields.Append "Modulname", adVarWChar, 255
    rst.Open

    For Each objModul In CurrentProject.AllModules
        rst.AddNew
        rst!ModulID = i
        rst!Modulname = objModul.Name
        rst.Update
    Next objModul

    rst.Update
    rst.MoveFirst

    Do While Not rst.EOF
        Debug.Print rst!ModulID, rst!Modulname
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing

End Sub

Listing 10.32: Anlegen einer ungebundenen Datensatzgruppe

Nächster Abschnitt:

10.7.4 Disconnected Recordsets

© 2006-2008 André Minhorst Alle Rechte vorbehalten.