複数のフィールドと値の追加

場合によっては、新しいフィールドごとに Value を複数回設定するのではなく、フィールドの配列とそれに対応する値を AddNew メソッドに渡す方が効率的な場合があります。 FieldList が配列の場合、Values も同じ数のメンバーを持つ配列である必要があります。それ以外の場合は、エラーが発生します。 フィールド名の順序は、各配列内のフィールド値の順序と一致する必要があります。 次のコードは、AddNew メソッドにフィールドの配列と値の配列を渡します。

'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