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

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

データを削除するSQL文は下記のようになります。
DELETE FROM テーブル名

レコードを検索し、データを削除するSQL文は下記のようにWHERE句を併用します。
DELETE FROM テーブル名 WHERE 条件式

■実行画面
「ID=2の削除」ボタンで、IDフィールドが2のレコードを削除します。
「全削除」ボタンで、table1の全レコードを削除します。
データ削除フォーム

■削除前のテーブルデータ
テーブルのデータ一覧

■ID=2の削除後のテーブルデータ
IDフィールドが2のデータがなくなっています。
一部のデータの削除

■全データ削除後のテーブルデータ
データが0件になっています。
空のテーブル

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'データベースファイル名()
Dim sfina As String = "C:\sample1.mdb"
Dim CN As New ADODB.Connection
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina

CN.Open()
'ID=2のデータの削除
CN.Execute("DELETE FROM table1 WHERE ID=2")

CN.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'データベースファイル名()
Dim sfina As String = "C:\sample1.mdb"
Dim CN As New ADODB.Connection
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfina

CN.Open()
'全データの削除
CN.Execute("DELETE FROM table1")

CN.Close()

End Sub
End Class

Visual Basic 2008 Express Edition実践入門