Excel VBA ADOで外部データベースのレコードを削除する

• オブジェクト変数（必須）
  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 レコード
.Find criteria:="商品名 = 'K商品'"
On Error GoTo エラー処理
.Delete
.MoveFirst
End With
MsgBox "K商品のレコードを削除しました。"
レコード.Close: Set レコード = Nothing
コネクション.Close: Set コネクション = Nothing
Exit Sub
エラー処理:
MsgBox "指定したデータはデータベースにありません。"
レコード.Close: 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行目【.Find criteria:=”商品名 = ‘K商品'”】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」に対してFind【ﾌｧｲﾝﾄﾞ】メソッドで削除するデータを引数criteria【ｸﾗｲﾃﾘｱ】の検索条件式に指定します。「商品名フィールドのK商品のレコード」を指定してカーソルをそのレコードに移動します。

11行目【On Error GoTo エラー処理】
Find【ﾌｧｲﾝﾄﾞ】メソッドで指定したレコードが存在しない場合、次のDelete【ﾃﾞﾘｰﾄ】メソッドでエラーになり処理が中断してデバックモードにならないようにOn Error【ｵﾝｴﾗｰ】ステートメントとGoTo【ｺﾞｩﾄｩ】ステートメントを使用してエラーが発生した場合、エラー処理ラベルがある19行目まで処理をジャンプします。

12行目【.Delete】
With【ｳｨｽﾞ】ステートメントで指定したRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトが格納されているオブジェクト変数「レコード」のカレントレコードつまり、Find【ﾌｧｲﾝﾄﾞ】メソッドで検索されたレコードをDelete【ﾃﾞﾘｰﾄ】メソッドで削除します。

13行目【.MoveFirst】
削除されたレコードは削除されたあとも「削除されたレコード」として存在しカレントレコードのままになりますのでMoveFirst【ﾑｰﾌﾞﾌｧｰｽﾄ】メソッドを使用してカーソルの位置を先頭のレコードに移動します。

15行目【MsgBox “K商品のレコードを削除しました。”】
MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してレコードを削除したことをユーザーに伝えます。

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

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

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

19行目【エラー処理:】
12行目のDelete【ﾃﾞﾘｰﾄ】メソッドで、Find【ﾌｧｲﾝﾄﾞ】メソッドで検索値のレコードがなかった場合エラーになるので、エラーになった場合このラベルまで処理がジャンプします。以降の処理はエラーが発生した場合の処理になります。

20行目【MsgBox “指定したデータはデータベースにありません。”】
MsgBox【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数を使用してユーザーにエラーが発生したことを伝えます。

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

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