これは、AddNew メソッドの基本的な構文です。
レコードセット .AddNew FieldList、Values
FieldList および 値 の引数は省略可能です。 FieldList は、単一の名前、または新しいレコード内のフィールドの名前または序数位置の配列です。
Values 引数は、単一の値または新しいレコード内のフィールドの値の配列です。
通常、1 つのレコードを追加する場合は、引数を指定せずに AddNew メソッドを呼び出します。 具体的には、AddNewを呼び出し、新しいレコードの各フィールドの 値 を設定します。その後、Update または UpdateBatch、もしくはその両方を呼び出します。 Supports プロパティと adAddNew 列挙定数を使用して、Recordset が新しいレコードの追加をサポートしていることを確認できます。
次のコードでは、この手法を使用して、Recordset サンプルに新しい荷送人を追加します。 SQL Server では、ShipperID フィールド値が自動的に提供されます。 そのため、コードは新しいレコードのフィールド値を指定しようとしません。
'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
備考
このコードでは、バッチ モードでクライアント側カーソルを持つ切断された Recordset を使用するため、UpdateBatch メソッドを呼び出してデータベースに変更をポストするには、新しい Connection オブジェクトを使用して、Recordset をデータ ソースに再接続する必要があります。 これは、GetNewConnection 新しい関数を使用して簡単に行うことができます。