Hinzufügen mehrerer Felder und Werte

Gelegentlich kann es effizienter sein, ein Array von Feldern und deren entsprechenden Werte an die AddNew-Methode zu übergeben, statt Value mehrmals für jedes neue Feld festzulegen. Wenn FieldList ein Array ist, muss Values auch ein Array mit derselben Anzahl von Elementen sein; andernfalls tritt ein Fehler auf. Die Reihenfolge der Feldnamen muss mit der Reihenfolge der Feldwerte in jedem Array übereinstimmen. Der folgende Code übergibt ein Array von Feldern und ein Array von Werten an die AddNew-Methode.

'BeginAddNew2
    Dim avarFldNames As Variant
    Dim avarFldValues As Variant

    avarFldNames = Array("CompanyName", "Phone")
    avarFldValues = Array("Sample Shipper 2", "(931) 555-6334")

    If objRs1.Supports(adAddNew) Then
        objRs1.AddNew avarFldNames, avarFldValues
    End If

    'Re-establish a Connection and update
    Set objRs1.ActiveConnection = GetNewConnection
    objRs1.UpdateBatch
'EndAddNew2