DELETE 削除する VB.NET

      2017/07/13

前回のADO.NET 追加するからソースを追加します。
今回はボタンを一つ追加します。

今回のソース

Imports System.Data.SqlClient
Public Class Form1
Dim cn As New SqlConnection(
"Data Source=(local)\SQL;" +
"Initial Catalog=ADO;" +
"Integrated Security=True;Pooling=False")
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("テキストボックスが空です")
Exit Sub
End If
Dim cmd As New SqlCommand("select * from meibo where number = @number", cn)
cmd.Parameters.Add(New SqlParameter("@number", TextBox1.Text))
Dim adapter As New SqlDataAdapter(cmd)
Dim table As New DataTable()
adapter.Fill(table)
DataGridView1.DataSource = table
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim cmd As New SqlCommand("INSERT INTO meibo (
name,number
)
VALUES
( @name,@number
)", cn)
Dim name As String = TextBox2.Text
Dim number As String = TextBox1.Text
cmd.Parameters.Add(New SqlParameter("@name", name))
cmd.Parameters.Add(New SqlParameter("@number", number))

cn.Open()

cmd.ExecuteNonQuery()
cn.Close()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim cmd As New SqlCommand("DELETE meibo where number = @number", cn)
Dim number As String = TextBox1.Text
cmd.Parameters.Add(New SqlParameter("@number", number))

cn.Open()

cmd.ExecuteNonQuery()
cn.Close()

End Sub

End Class

ボタン3クリックが追加した分です。
削除のsql文ですね。

Dim cmd As New SqlCommand("DELETE meibo where number = @number", cn)

DELETE テーブル名 where 削除条件

パラメータを使用しています。

後は前回の追加と同じ流れですね。

PR



 - ADO.NET

Translate »