🔥 VB.NET + SQL Server | Update Data in DataGridView | Step-by-Step Tutorial with source code

 

Imports System.Data.SqlClient
Public Class Form1
    Dim conn As New SqlConnection("Data Source=.;Initial Catalog=db1;Integrated Security=true")
    Private Sub load_data()
        Dim cmd As New SqlCommand("Select * From Table1", conn)
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
        Dim columnbutton As New DataGridViewButtonColumn
        With columnbutton
            .UseColumnTextForButtonValue = True
            .HeaderText = "Update Data"
            .Text = "Update"
            .Width = 100
            .DefaultCellStyle.BackColor = Color.GreenYellow
            .FlatStyle = FlatStyle.Flat
            DataGridView1.Columns.Insert(4, columnbutton)
        End With
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        load_data()
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        If e.ColumnIndex = 4 Then
            Dim r1 As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
            Dim cmd2 As New SqlCommand("Update Table1 Set studentname=@name1,age=@age,mobile=@mobile Where id=@id", conn)
            cmd2.Parameters.AddWithValue("name1", r1.Cells("studentname").Value)
            cmd2.Parameters.AddWithValue("age", r1.Cells("age").Value)
            cmd2.Parameters.AddWithValue("mobile", r1.Cells("mobile").Value)
            cmd2.Parameters.AddWithValue("id", r1.Cells("id").Value)
            conn.Open()
            cmd2.ExecuteNonQuery()
            conn.Close()
            MessageBox.Show("Data Updated Successfully")
        End If
    End Sub
End Class