Asp curd

 Imports System.Data.SqlClient

Public Class data_base_2

    Dim conn As New SqlConnection

    Dim cmd As New SqlCommand

    Dim da As SqlDataAdapter

    'Dim dt As New SqlDataReader

    Dim ds As New DataSet

    Private Sub data_base_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'Ucc_databaseDataSet.ucc_student' table. You can move, or remove it, as needed.

        Me.Ucc_studentTableAdapter.Fill(Me.Ucc_databaseDataSet.ucc_student)

        conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ucc_database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

        conn.Open()

        MsgBox("database conected..!")

        MsgBox(conn.State())

    End Sub

    Sub display_data_in_grid()

        da = New SqlDataAdapter("select * from ucc_student", conn)

        Dim dt As New DataTable

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

    Sub remove_textbox_data()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        TextBox5.Text = " "

    End Sub

    Private Sub insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert.Click

        cmd = New SqlCommand("insert into ucc_student values(@id,@name,@course,@phone,@fees)", conn)

        cmd.Parameters.AddWithValue("@id", TextBox1.Text)

        cmd.Parameters.AddWithValue("@name", TextBox2.Text)

        cmd.Parameters.AddWithValue("@course", TextBox3.Text)

        cmd.Parameters.AddWithValue("@phone", TextBox4.Text)

        cmd.Parameters.AddWithValue("@fees", TextBox5.Text)

        cmd.ExecuteNonQuery()

        remove_textbox_data()

        MsgBox("data inserted Sucessfully...!" + Chr(13) + "please referce the table ...")

    End Sub

    Private Sub display_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.Click

        display_data_in_grid()

    End Sub

    Private Sub update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles update.Click

        If TextBox1.Text = "" Then

            MsgBox("please select data from database...")

        Else

            Dim id As Integer = TextBox1.Text

            Dim Student_name As String = TextBox2.Text

            Dim course As String = TextBox3.Text

            Dim phone_no As Integer = TextBox4.Text

            Dim fees As Integer = TextBox5.Text

            cmd = New SqlCommand("update ucc_student set Student_name=@Student_name,course=@course,phone_no=@phone_no,fees=@fess where id=@id", conn)

            cmd.Parameters.AddWithValue("@id", TextBox1.Text)

            cmd.Parameters.AddWithValue("@Student_name", TextBox2.Text)

            cmd.Parameters.AddWithValue("@course", TextBox3.Text)

            cmd.Parameters.AddWithValue("@phone_no", TextBox4.Text)

            cmd.Parameters.AddWithValue("@fess", TextBox5.Text)

            cmd.ExecuteNonQuery()

            remove_textbox_data()

            MsgBox("data updated sucessfully..!" + Chr(13) + "please referce the table ...")

        End If

    End Sub

    Private Sub delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete.Click

        If TextBox1.Text = "" Then

            MsgBox("select the data ..")

        Else

            Dim id As Integer = TextBox1.Text

            cmd = New SqlCommand("delete from ucc_student where id=@id", conn)

            cmd.Parameters.AddWithValue("@id", TextBox1.Text)

            cmd.ExecuteNonQuery()

            remove_textbox_data()

            MsgBox("data deleted sucessfully..!" + Chr(13) + "please referce the table ...")

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value

        TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value

        TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value

        TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value

        TextBox5.Text = DataGridView1.CurrentRow.Cells(4).Value

    End Sub

End Class