添加多个字段

适用于:Access 2013、Office 2013

有时,将字段及其相应值的数组传递到 AddNew 方法要比多次为每个新字段设置 Value 更加有效率。如果 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