Поделиться через

Добавление нескольких полей и значений

  • Статья

Иногда может быть эффективнее передавать массив полей и соответствующие значения методу AddNew, а не задавать значения несколько раз для каждого нового поля. Если FieldList является массивом, значения также должны быть массивом с одинаковым числом элементов; в противном случае возникает ошибка. Порядок имен полей должен соответствовать порядку значений полей в каждом массиве. Следующий код передает массив полей и массив значений методу 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