【VB.NET】テーブルのレコードを削除するには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、テーブルのレコードを削除する方法をご紹介します。

テーブルのレコードを削除する
- サンプルプログラム
  - OleDbCommandクラスを使用する
  - SqlCommandクラスを使用する
関連記事

テーブルのレコードを削除する

テーブルのレコードを削除するには、OleDbCommandクラスをインスタンス化します。
書式は、以下になります。

New OleDbCommand()

次に、OleDbCommandのCommandTextプロパティで、実行するSQL文を設定します。
書式は、以下になります。

インスタンス化したOleDbCommand.CommandText = 実行するSQL文

最後に、OleDbCommandのExecuteNonQueryメソッドを実行すると、テーブルのレコードが削除されます。
書式は、以下になります。

インスタンス化したOleDbCommand.ExecuteNonQuery()

SQL Serverに接続する場合は、SqlCommandクラスでも可能です。
SqlCommandクラスのインスタンス化

New SqlCommand()
SQL文を設定

インスタンス化したSqlCommand.CommandText = 実行するSQL文
テーブルのレコードを削除

インスタンス化したSqlCommand.ExecuteNonQuery()

テーブルのレコードを削除するSQL文の基本的な書式は以下になります。

DELETE FROM テーブル名 WHERE 削除する行を特定する列名 = 値

サンプルプログラム

OleDbCommandクラスを使用する

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            Dim prov As String = "SQLOLEDB"
            Dim serverName As String = "TEST-PC\SQLEXPRESS"
            Dim dataBase As String = "AdventureWorksLT2017"
            Dim userid As String = "test"
            Dim pwd As String = "test"

            Using conn As New OleDb.OleDbConnection()

                conn.ConnectionString =
                    " Provider = " & prov &
                    ";Data Source = " & serverName &
                    ";Initial Catalog = " & dataBase &
                    ";User ID = " & userid &
                    ";Password =" & pwd

                conn.Open()

                Using cmd As New OleDb.OleDbCommand()

                    cmd.Connection = conn

                    cmd.CommandText =
                        "DELETE FROM SalesLT.Product    " & ControlChars.NewLine &
                        "WHERE                          " & ControlChars.NewLine &
                        "       ProductID = ?           " & ControlChars.NewLine

                    cmd.Parameters.Add("@ProductID", OleDb.OleDbType.Integer).Value = 706

                    cmd.ExecuteNonQuery()

                End Using

                Label1.Text = "Productテーブルのレコードを削除しました。"

            End Using

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try

Dim prov As String = "SQLOLEDB"

Dim serverName As String = "TEST-PC\SQLEXPRESS"

Dim dataBase As String = "AdventureWorksLT2017"

Dim userid As String = "test"

Dim pwd As String = "test"

Using conn As New OleDb.OleDbConnection()

conn.ConnectionString =

" Provider = " & prov &

";Data Source = " & serverName &

";Initial Catalog = " & dataBase &

";User ID = " & userid &

";Password =" & pwd

conn.Open()

Using cmd As New OleDb.OleDbCommand()

cmd.Connection = conn

cmd.CommandText =

"DELETE FROM SalesLT.Product " & ControlChars.NewLine &

"WHERE " & ControlChars.NewLine &

" ProductID = ? " & ControlChars.NewLine

cmd.Parameters.Add("@ProductID", OleDb.OleDbType.Integer).Value = 706

cmd.ExecuteNonQuery()

End Using

Label1.Text = "Productテーブルのレコードを削除しました。"

End Using

Catch ex As Exception

Label1.Text = Err.Description

End Try

End Sub

End Class

2	「テーブルのレコードを削除」ボタンクリック時に以下処理を行う。
6～10	接続先データベースの情報を、変数に代入。
12	OleDbConnectionクラスのインスタンス化。（Usingステートメントでリソース開放を自動化）
14～19	ConnectionStringプロパティにデータベース情報を設定。
21	データベースに接続。
23	OleDbCommandクラスのインスタンス化。（Usingステートメントでリソース開放を自動化）
25	SQL文を実行するために、14～19行目で設定したデータベース情報と同じ情報をConnection プロパティに設定。
27～30	レコードを削除するSQL文をCommandTextプロパティに設定。
27～30	30行目の「?」マークは、以下32行目で設定するパラメータを使用する際に記述します。
32	「Product」テーブルの「ProductID」列に、値「706」を設定する。
34	SQL文を実行する。
38	処理が正常に終了したら、正常終了のメッセージをラベルに表示。
42	処理の実行中にエラーが発生した場合、
44	エラー内容を取得し、ラベルに表示する。

SqlCommandクラスを使用する

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            Dim serverName As String = "TEST-PC\SQLEXPRESS"
            Dim dataBase As String = "AdventureWorksLT2017"
            Dim userid As String = "test"
            Dim pwd As String = "test"

            Using conn As New SqlClient.SqlConnection()

                conn.ConnectionString =
                    " Data Source = " & serverName &
                    ";Initial Catalog = " & dataBase &
                    ";User ID = " & userid &
                    ";Password =" & pwd

                conn.Open()

                Using cmd As New SqlClient.SqlCommand()

                    cmd.Connection = conn

                    cmd.CommandText =
                        "DELETE FROM SalesLT.Product     " & ControlChars.NewLine &
                        "WHERE                           " & ControlChars.NewLine &
                        "       ProductID = @ProductID   " & ControlChars.NewLine

                    cmd.Parameters.Add("@ProductID", SqlDbType.Int).Value = 706

                    cmd.ExecuteNonQuery()

                End Using

                Label1.Text = "Productテーブルのレコードを削除しました。"

            End Using

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try

Dim serverName As String = "TEST-PC\SQLEXPRESS"

Dim dataBase As String = "AdventureWorksLT2017"

Dim userid As String = "test"

Dim pwd As String = "test"

Using conn As New SqlClient.SqlConnection()

conn.ConnectionString =

" Data Source = " & serverName &

";Initial Catalog = " & dataBase &

";User ID = " & userid &

";Password =" & pwd

conn.Open()

Using cmd As New SqlClient.SqlCommand()

cmd.Connection = conn

cmd.CommandText =

"DELETE FROM SalesLT.Product " & ControlChars.NewLine &

"WHERE " & ControlChars.NewLine &

" ProductID = @ProductID " & ControlChars.NewLine

cmd.Parameters.Add("@ProductID", SqlDbType.Int).Value = 706

cmd.ExecuteNonQuery()

End Using

Label1.Text = "Productテーブルのレコードを削除しました。"

End Using

Catch ex As Exception

Label1.Text = Err.Description

End Try

End Sub

End Class

2	「テーブルのレコードを削除」ボタンクリック時に以下処理を行う。
6～9	接続先データベースの情報を、変数に代入。
11	SqlConnectionクラスのインスタンス化。（Usingステートメントでリソース開放を自動化）
13～17	ConnectionStringプロパティにデータベース情報を設定。
19	データベースに接続。
21	SqlCommandクラスのインスタンス化。（Usingステートメントでリソース開放を自動化）
23	SQL文を実行するために、13～17行目で設定したデータベース情報と同じ情報をConnection プロパティに設定。
25～28	レコードを削除するSQL文をCommandTextプロパティに設定。
25～28	28行目の「@」マークは、以下30行目で設定するパラメータを使用する際に記述します。
30	「Product」テーブルの「ProductID」列に、値「706」を設定する。
32	SQL文を実行する。
36	処理が正常に終了したら、正常終了のメッセージをラベルに表示。
40	処理の実行中にエラーが発生した場合、
42	エラー内容を取得し、ラベルに表示する。