Adicionando registros usando o método AddNew
Essa é a sintaxe básica do método AddNew:
conjunto de registros.AdicionarNovo ListaDeCampos, Valores
Os argumentos FieldList e Values são opcionais. FieldList é um único nome ou uma matriz de nomes ou posições ordinais dos campos no novo registro.
O argumento Valores é um único valor ou uma matriz de valores para os campos no novo registro.
Normalmente, quando você pretende adicionar um único registro, chamará o método AddNew sem argumentos. Especificamente, você chamará AddNew; defina o valor do Value de cada campo no novo registro; e então, chame Update ou UpdateBatch, ou ambos. Você pode garantir que o do conjunto de registros dê suporte à adição de novos registros usando a propriedade de suporte do com a constante enumerada adAddNew.
O código a seguir usa essa técnica para adicionar um novo Shipper ao exemplo de conjunto de registros . O SQL Server fornece automaticamente o valor do campo ShipperID. Portanto, o código não tenta fornecer um valor de campo para os novos registros.
'BeginAddNew1.1
If objRs.Supports(adAddNew) Then
With objRs
.AddNew
.Fields("CompanyName") = "Sample Shipper"
.Fields("Phone") = "(931) 555-6334"
.Update
End With
End If
'EndAddNew1.1
Observações
Como este código usa um conjunto de registros desconectado com um cursor cliente em modo de lote, você deve reconectar o Recordset à fonte de dados com um novo objeto Connection antes de poder chamar o método UpdateBatch para aplicar alterações no banco de dados. Isso é feito facilmente usando a nova função GetNewConnection.