Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
 
Partial Class Default7
    Inherits System.Web.UI.Page
    Dim con As SqlConnection
    Dim cmd As SqlCommand
    Dim cmb As SqlCommandBuilder
    Dim adp As SqlDataAdapter
    Dim data As DataSet3
    Dim dr As DataRow
    Dim selct, uptext As String
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        con = New SqlConnection("Data Source=ACER;Initial Catalog=preethi;Integrated Security=True")
        con.Open()
    End Sub
 
    Private Sub fillcontrols()
         TextBox1.Text = data.Tables(0).Rows(0).Item(0)
        TextBox2.Text = data.Tables(0).Rows(0).Item(1)
        TextBox3.Text = data.Tables(0).Rows(0).Item(2)
    End Sub
 
    Protected Sub Update_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
             uptext = "update cooldrinks set drinkname = @drinkname ,color = @color, price = @price"
             cmd = New SqlCommand(uptext, con)
             cmd.Parameters.AddWithValue("@drinkname", TextBox1.Text)
            cmd.Parameters.AddWithValue("@color", TextBox2.Text)
            cmd.Parameters.AddWithValue("@price", TextBox3.Text)
            cmd.ExecuteNonQuery()
            Response.Write("Data Updated Successfully")
 
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
 
 
    End Sub
 
    Protected Sub AddNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        clearcontrols()
    End Sub
    Private Sub clearcontrols()
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox1.Focus()
 
    End Sub
 
    Protected Sub Insert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Ssql As String
        Try
            Ssql = "insert into cooldrinks(drinkname,color,price)values(@drinkname,@color,@price)"
            cmd = New SqlCommand(Ssql, con)
            cmd.Parameters.AddWithValue("@drinkname", TextBox1.Text)
            cmd.Parameters.AddWithValue("@color", TextBox2.Text)
            cmd.Parameters.AddWithValue("@price", TextBox3.Text)
            cmd.ExecuteNonQuery()
            clearcontrols()
 
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
        Response.Write("One Record inserted Successfully")
    End Sub
 
    Protected Sub Delete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Ssql As String
        Ssql = "delete from cooldrinks where price = @price "
        cmd = New SqlCommand(Ssql, con)
        cmd.Parameters.AddWithValue("@price", TextBox3.Text)
        cmd.ExecuteNonQuery()
        Response.Write("Deleted")
    End Sub
 
    Protected Sub LoadTable_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
 
            selct = "select * from cooldrinks"
            adp = New SqlDataAdapter(selct, con)
            data = New DataSet3()
            adp.Fill(data, "cooldrinks")
            fillcontrols()
 
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
End Class