データベース（MDBファイル）関連：ADOでRecordsetを使いデータを削除する

VB2008でMDBファイルのデータを削除する実行例サンプルです。

データベース（MDBファイル）関連へ

データを削除するには、DELETEを使用します。

■削除前のテーブルデータ
テーブルデータ表示

■実行画面
「北海道を削除」ボタンでField1が"北海道"ならば削除します。
「大阪市を削除」ボタンでField2が"大阪市"ならば削除します。
削除フォーム

■削除後のテーブルデータ
初めに「北海道を削除」を実行した結果です。
削除したテーブル

次に「大阪市を削除」を実行した結果です。
削除したテーブル

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
'データベースファイル名
Dim sfina As String = "C:\sample1.mdb"

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina
CN.Open()
RS.Open("table1", CN, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

Do Until RS.EOF
'北海道を探す
If RS.Fields("Field1").Value = "北海道" Then
RS.Delete()
End If
RS.MoveNext()
Loop
RS.Close()
CN.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
'データベースファイル名
Dim sfina As String = "C:\sample1.mdb"

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina
CN.Open()
RS.Open("table1", CN, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

Do Until RS.EOF
'大阪市を探す
If RS.Fields("Field2").Value = "大阪市" Then
RS.Delete()
End If
RS.MoveNext()
Loop
RS.Close()
CN.Close()
End Sub
End Class

Visual Basic 2008 Express Edition実践入門