여러 필드 및 값 추가

경우에 따라 각 새 필드에 대해 Value를 여러 번 설정하는 대신 필드 배열과 해당 값을 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