update 更新する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

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim cmd As New SqlCommand("update meibo
set name = @name
where number = @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
End Class

ボタン4をクリックした時の動作を追加しました。

更新のsql文です。

Dim cmd As New SqlCommand("update テーブル名
set 更新する対象をセットする
where 更新条件", cn)

更新を条件を付け忘れると全てのデータがセットした値になります。

後は追加した時の分と同じなので割愛します。

何となく流れが分かってきたんじゃあないでしょうか。

PR



 - ADO.NET

Translate »