Imports System.data.sqlclient

​

 Public class VBNET_SQL_Insert_Update_Delete

​

    Dim Connection as new sqlconnection("server=Users\Sandhya;Database=testDB;Integrated security=true")

​

    Private sub BTN_INSERT_Click(Sender As Object, e As EventArgs) Handles BTN_INSERT.Click

        Dim insertQuary as string = "INSERT_INTO_User(Fname,Lname,age)VALUES('" & TextBoxFN.Text& "','"  & TextBoxLN.Text& "'," & TextBoxAGE.Text & ")" 

        ExecuteQuery(InsertQuery)

        MessageBox.Show("data inserted")

    End Sub

​

    Public Sub ExecuteQuery(query as string)

        dim command As New SqlCommand(query, connection)

        connection.Open()

        command.ExecuteNonQuery()

        connection.close()

    End Sub

​

    Private Sub BTN_UPDATE_Click(sender as object, e as EventArgs) Handles BTN_UPDATE_Click

     Dim updateQuery As String = "Update users set Fname='" & TextBoxFN.Text & '",Lname="'&TextBoxLN.Text&"',age="&TextBoxAGE.Text&" WHERE Id="&TextBoxID.Text&"" ExecuteQuery(updateQuery)

        MessageBox.Show("Data update")

    End sub

​

    Private Sub BTN_DELETE_Click(sender as object, e as eventArgs) handels  BTN_DELETE.Click 

        Dim deleteQuery As String = "delete from User where Id=" & TextBoxID.Text

        ExecuteQuery(deleteQuery)

        MessageBox.Show("User deleted")

    end sub

End Class

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​