Ajout de plusieurs champs et valeurs

Parfois, il peut être plus efficace de transmettre un tableau de champs et leurs valeurs correspondantes à la méthode AddNew , plutôt que de définir la valeur plusieurs fois pour chaque nouveau champ. Si Fieldlist est un tableau, les valeurs doivent également être un tableau avec le même nombre de membres; sinon, une erreur se produit. L’ordre des noms de champs doit correspondre à l’ordre des valeurs de champ dans chaque tableau. Le code suivant transmet un tableau de champs et un tableau de valeurs à la méthode 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