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.12 Speichern der Daten in einem Array

10.3.13 Abfragen mit Parametern verwenden

Während Sie unter DAO das QueryDef-Objekt und die Parameters-Auflistung verwendet haben, um Abfragen mit Parametern zu handhaben, stellt ADO für diesen Zweck das Command-Objekt zur Verfügung.

Das folgende Beispiel zeigt, wie Sie ein Recordset auf Basis einer mit Parametern versehenen Abfrage öffnen. Sie verwenden hier nicht wie bei DAO eine Parameters-Auflistung, sondern geben den Wert eines einzelnen Parameters als String und mehrere Werte in der richtigen Reihenfolge als String-Array an - bei anderen Datentypen für die Parameter verwenden Sie dann eher ein Variant-Array.

Public Sub Parameterabfrage()

    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rst As ADODB.Recordset
    Dim lngRecordsAffected As Long

    Set cnn = CurrentProject.Connection
    'Command-Objekt instanzieren
    Set cmd = New ADODB.Command

    'Aktuelle Verbindung zuweisen
    cmd.ActiveConnection = cnn

    'auszuführende Abfrage angeben
    cmd. CommandText = " qryMitarbeiter"

    'Typ des Commands festlegen
    cmd. CommandType = adCmdTable

    'Command-Objekt ausführen. Der erste Parameter wird nur für
    'Aktionsabfragen benötigt, der zweite enthält die Werte für die
    'Abfrageparameter. Ein Parameter wird als String, mehrere als
    'Array übergeben.
    Set rst = cmd. Execute(, " Minhorst")
    Do While Not rst.EOF
        Debug.Print rst!Vorname, rst!Nachname
        rst.MoveNext
    Loop

    Set rst = Nothing
    Set cnn = Nothing

End Sub

Listing 10.20: Erzeugen eines Recordsets auf Basis einer Parameterabfrage

Nächster Abschnitt:

10.4 Datensätze suchen

© 2006-2008 André Minhorst Alle Rechte vorbehalten.