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

Добавление записей с помощью AddNew

Область применения: Access 2013 | Access 2016

Это базовый синтаксис метода AddNew : recordset.AddNewFieldList,Values

Аргументы FieldList и Значения являются необязательными. FieldList — это одно имя или массив имен или порядковых позиций полей в новой записи.

Аргумент Values — это одно значение или массив значений для полей в новой записи.

Как правило, при добавлении одной записи вызывается метод AddNew без каких-либо аргументов. В частности, вы вызовете AddNew, зададите значение каждого поля в новой записи, а затем вызовете Update и (или ) UpdateBatch. Вы можете убедиться, что набор записей поддерживает добавление новых записей, используя свойство Supports с перечисляемой константой adAddNew .

В следующем коде этот метод используется для добавления нового объекта Shipper в пример Recordset. Значение поля ShipperID автоматически предоставляется SQL Server, поэтому код не пытается указать значение поля для новых записей.

'BeginAddNew1.1 
 If objRs1.Supports(adAddNew) Then 
 With objRs1 
 .AddNew 
 .Fields("CompanyName") = "Sample Shipper" 
 .Fields("Phone") = "(931) 555-6334" 
 .Update 
 End With 
 End If 
'EndAddNew1.1

Так как в этом коде используется отключенный набор записей с клиентским курсором в пакетном режиме, необходимо повторно подключить набор записей к источнику данных с помощью нового объекта Connection , прежде чем можно будет вызвать метод UpdateBatch для публикации изменений в базе данных. Это легко сделать с помощью новой функции GetNewConnection.

'BeginAddNew1.2 
 'Re-establish a Connection and update 
 Set objRs1.ActiveConnection = GetNewConnection 
 objRs1.UpdateBatch 
'EndAddNew1.2

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.