Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Private constr As String = "workstation ID = pvfc_db26.mssql.somee.com;packet size=4096;user id=pvfc_login;pwd=pvfc_login;data source=pvfc_db26.mssql.somee.com;persist security info=False;initial catalog=pvfc_db26;TrustServerCertificate=True"
    'Private constr As String = "Data Source=DESKTOP-1340B0T\SQLEXPRESS; Initial Catalog=PVFC; User id=pvfc_login; Password=pvfc_login"
    Private con As New SqlConnection(constr)

    ' Page gets loaded
    ' Fetch data of id=11
    ' users change the data
    ' updated data is stored

    Protected Sub connect() Handles c_update.Click
        Dim constr As String = "workstation ID = pvfc_db26.mssql.somee.com;packet size=4096;user id=pvfc_login;pwd=pvfc_login;data source=pvfc_db26.mssql.somee.com;persist security info=False;initial catalog=pvfc_db26;TrustServerCertificate=True"

        Dim con As New SqlConnection
        con.ConnectionString = constr

        Dim cmd As New SqlCommand
        cmd.Connection = con
        cmd.CommandText = "UPDATE CUSTOMER_T "
        cmd.CommandText &= "SET CUSTOMER_NAME = @name, "
        cmd.CommandText &= "CUSTOMER_Address= @address, "
        cmd.CommandText &= "Postal_Code = @Postal "
        cmd.CommandText &= "WHERE Customer_ID = @id;"

        'cmd.Parameters.Add("@price", p_price.Text)
        cmd.Parameters.AddWithValue("@name", c_name.Text)
        cmd.Parameters.AddWithValue("@address", c_addr.Text)
        cmd.Parameters.AddWithValue("@Postal", c_postal.Text)
        cmd.Parameters.AddWithValue("@id", c_id.Text)

        Try
            con.Open()
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            Response.Write("Updated")
        Catch ex As Exception
            Response.Write("Error: " & ex.Message & " " & cmd.CommandText)
        Finally
            con.Close()
        End Try
    End Sub

    Protected Sub Fetch_details() Handles c_id.SelectedIndexChanged
        Dim constr As String = "workstation ID = pvfc_db26.mssql.somee.com;packet size=4096;user id=pvfc_login;pwd=pvfc_login;data source=pvfc_db26.mssql.somee.com;persist security info=False;initial catalog=pvfc_db26;TrustServerCertificate=True"

        Dim con As New SqlConnection
        con.ConnectionString = constr

        Dim cmd As New SqlCommand
        cmd.Connection = con
        cmd.CommandText = "Select * FROM CUSTOMER_T WHERE Customer_id = " & c_id.Text

        Try
            con.Open()
            Dim read_pid As SqlDataReader
            read_pid = cmd.ExecuteReader()
            Do While read_pid.Read()
                c_name.Text = read_pid("Customer_Name")
                c_addr.Text = read_pid("Customer_Address")
                'c_city.SelectedValue = read_pid("Customer_City")
            Loop
        Catch ex As Exception
            Response.Write(ex.Message)
        Finally
            con.Close()
        End Try

    End Sub


    Protected Sub Page_Load() Handles MyBase.Load
        ' Connection Stringf boss
        If Not Me.IsPostBack Then

            Dim constr As String = "workstation ID = pvfc_db26.mssql.somee.com;packet size=4096;user id=pvfc_login;pwd=pvfc_login;data source=pvfc_db26.mssql.somee.com;persist security info=False;initial catalog=pvfc_db26;TrustServerCertificate=True"

            Dim con As New SqlConnection
            con.ConnectionString = constr

            Dim cmd As New SqlCommand
            cmd.Connection = con
            cmd.CommandText = "Select * FROM CUSTOMER_T"

            Try
                con.Open()
                Dim read_pid As SqlDataReader
                read_pid = cmd.ExecuteReader()
                Do While read_pid.Read()
                    c_id.Items.Add(read_pid("Customer_id"))
                Loop
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            Finally
                con.Close()
            End Try
        End If
    End Sub

End Class