Programming in ASP.NET - Insert Update Delete in SQL Server in VB.NET with Source code

 

Imports System.Data

Imports System.Data.SqlClient

Imports System.Drawing

Partial Class _Default

    Inherits System.Web.UI.Page

    Dim conn As New SqlConnection("Data Source=.;Initial Catalog=students2;Integrated Security=True")

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

        Dim cmd As New SqlCommand("Insert into Table1(firstname,lastname,marks)Values(@firstname,@lastname,@marks)", conn)

        cmd.Parameters.AddWithValue("firstname", TextBox1.Text)

        cmd.Parameters.AddWithValue("lastname", TextBox2.Text)

        cmd.Parameters.AddWithValue("marks", TextBox3.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        result.Text = "Data Inserted Successfully"

        result.BackColor = Color.Green

        result.ForeColor = Color.White

        result.Font.Size = 16

        GridView1.DataBind()

    End Sub

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles form1.Load

        GridView1.DataBind()

    End Sub

    Private Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged

        id1.Visible = True

        id1.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(0).Text)

        TextBox1.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(1).Text)

        TextBox2.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(2).Text)

        TextBox3.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(3).Text)

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim cmd As New SqlCommand("Update Table1 Set firstname=@firstname,lastname=@lastname,marks=@marks Where id=@id", conn)

        cmd.Parameters.AddWithValue("id", id1.Text)

        cmd.Parameters.AddWithValue("firstname", TextBox1.Text)

        cmd.Parameters.AddWithValue("lastname", TextBox2.Text)

        cmd.Parameters.AddWithValue("marks", TextBox3.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        result.Text = "Data updated Successfully"

        result.BackColor = Color.Orange

        result.ForeColor = Color.White

        result.Font.Size = 16

        GridView1.DataBind()

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim cmd As New SqlCommand("Delete from Table1 Where id=@id", conn)

        cmd.Parameters.AddWithValue("id", id1.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        result.Text = "Data Deleted Successfully"

        result.BackColor = Color.Brown

        result.ForeColor = Color.White

        result.Font.Size = 16

        GridView1.DataBind()

        id1.Visible = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

End Class