Excel VBA ADOで外部データベースのテーブルにデータを追加する

• オブジェクト変数（必須）
  Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスが格納されている
  オブジェクト変数を指定します。

• オブジェクト変数（必須）
  Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスが格納されているオブジェクト変数を指定します。

Sub レコード追加()
Dim コネクション As New ADODB.Connection
Dim レコード As New ADODB.Recordset
コネクション.Open ConnectionString:= _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:¥Users¥Desktop¥Database1.accdb;"
レコード.Open Source:="商品マスター", ActiveConnection:=コネクション, _
CursorType:=adOpenKeyset, LockType:=adLockPessimistic
With レコード
.AddNew
.Fields("商品ｺｰﾄﾞ").Value = Range("A2").Value
.Fields("商品名").Value = Range("B2").Value
.Fields("仕入れ単価").Value = Range("C2").Value
.Fields("販売単価").Value = Range("D2").Value
On Error GoTo エラー処理
.Update
End With
MsgBox "商品データを登録しました。"
レコード.Close: Set レコード = Nothing
コネクション.Close: Set コネクション = Nothing
Exit Sub
エラー処理:
MsgBox "データが重複しています。"
Set レコード = Nothing
コネクション.Close: Set コネクション = Nothing
End Sub

3行目【Dim レコード As New ADODB.Recordset】
Dim【ﾃﾞﾑ】ステートメントでNew【ﾆｭｰ】キーワード使用して外部データベースのレコードを参照するRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスを生成してオブジェクト変数「レコード」に格納します。

4行目～6行目【コネクション.Open ConnectionString:= _
“Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=C:¥Users¥Desktop¥Database1.accdb;”】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのOpen【ｵｰﾌﾟﾝ】メソッドを使用して外部データベースの接続をします。

7行目～8行目【レコード.Open Source:=”商品マスター”, ActiveConnection:=コネクション, _
CursorType:=adOpenKeyset, LockType:=adLockPessimistic】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのOpen【ｵｰﾌﾟﾝ】メソッドを使用して外部データベースのレコードを参照します。引数CursorType【ｶｰｿﾙﾀｲﾌﾟ】を他のユーザーによって削除されたレコードにアクセスできない点以外、すべての動作が許可される動的カーソルのadOpenKeyset【ｷｰｾｯﾄ】に指定し引数LockType【ﾛｯｸﾀｲﾌﾟ】を編集直後のレコードをロックするadLockPessimistic【ﾊﾟｽﾐｽﾃｲｸ】に指定します。

9行目【With レコード】
Rcordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」をWith【ｳｨｽﾞ】ステートメントで指定します。

10行目【.AddNew】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してAddNew【ｱﾄﾞﾆｭｰ】メソッドで新しい空白のレコードを追加してカーソルを取得します。

11行目【.Fields(“商品ｺｰﾄﾞ”).Value = Range(“A2”).Value】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してFields【ﾌｨｰﾙｽﾞ】プロパティで商品ｺｰﾄﾞフィールドのField【ﾌｨｰﾙﾄﾞ】オブジェクトを参照してA2セルの値を代入します。

12行目【.Fields(“商品名”).Value = Range(“B2”).Value】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してFields【ﾌｨｰﾙｽﾞ】プロパティで商品名フィールドのField【ﾌｨｰﾙﾄﾞ】オブジェクトを参照してB2セルの値を代入します。

13行目【.Fields(“仕入れ単価”).Value = Range(“C2”).Value】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してFields【ﾌｨｰﾙｽﾞ】プロパティで仕入れ単価フィールドのField【ﾌｨｰﾙﾄﾞ】オブジェクトを参照してC2セルの値を代入します。

14行目【.Fields(“販売単価”).Value = Range(“D2”).Value】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してFields【ﾌｨｰﾙｽﾞ】プロパティで販売単価フィールドのField【ﾌｨｰﾙﾄﾞ】オブジェクトを参照してD2セルの値を代入します。

15行目【On Error GoTo エラー処理】
外部データベースの主キーとなる商品ｺｰﾄﾞが既に登録されている場合（重複している場合）次のUpdate【ｱｯﾌﾟﾃﾞｲﾄ】メソッド（データの更新）でエラーになるので処理が中断してデバックモードにならないようにOn Error(ｵﾝｴﾗｰ)ステートメントと
GoToステートメントを使用してエラーが発生した場合、エラー処理ラベルがある22行目まで処理をジャンプします。

16行目【.Update】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してUpdate【ｱｯﾌﾟﾃﾞｲﾄ】メソッドを実行してレコードの更新を実行します。

18行目【MsgBox “商品データを登録しました。”】
MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してデータの登録が完了したことをユーザーに伝えます。

19行目【レコード.Close: Set レコード = Nothing】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドでレコードの参照を切断し、Nothing【ﾅｯｼﾝｸﾞ】を代入して
メモリー領域を解放します。

20行目【コネクション.Close: Set コネクション = Nothing】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドで外部データベースの接続を切断し、Nothing【ﾅｯｼﾝｸﾞ】を代入してメモリー領域を解放します。

21行目【Exit Sub】
Exit【ｴｸﾞｼﾞｯﾄ】ステートメントでSub【ｻﾌﾞ】プロシージャーを途中で終了させます。

22行目【エラー処理:】
16行目のUpdate【ｱｯﾌﾟﾃﾞｲﾄ】メソッドで主キーの商品ｺｰﾄﾞの重複がありエラーになった場合このラベルまで処理がジャンプします。以降の処理はエラーが発生した場合の処理になります。

23行目【MsgBox “データが重複しています。”】
MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してユーザーにエラーが発生したことを伝えます。

24行目【Set レコード = Nothing】
エラーが発生しているRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンス（複製）が格納されているオブジェクト変数「レコード」にNothing【ﾅｯｼﾝｸﾞ】を代入してメモリーを解放します。

25行目【コネクション.Close: Set コネクション = Nothing】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドで外部データベースの接続を切断し、Nothing【ﾅｯｼﾝｸﾞ】を代入してメモリー領域を解放して処理を終了します。