Show data from the database

See more:

VB

Hello everyone, I want to write the item code in the text box saved in the database. It will show me the item price label in the same database without pressing any button.

I don't know what the code is

What I have tried:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Textbox7.Text = "1" Or Trim(txtUserName.Text) = "111" Then
            Dim Connection As New SqlConnection(connStr)
            Dim cmdAddType As SqlCommand = New SqlCommand("addBreakFast", Connection)
            cmdAddType.CommandType = CommandType.StoredProcedure
            cmdAddType.Parameters.Add(New SqlParameter("@StudentID", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@Studentname", SqlDbType.NVarChar, 100))
            cmdAddType.Parameters.Add(New SqlParameter("@Studentloc", SqlDbType.NVarChar, 100))
            cmdAddType.Parameters.Add(New SqlParameter("@BUILDING", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@COUNTER", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@USER", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@cash", SqlDbType.Int))
            cmdAddType.Parameters.Add(New SqlParameter("@Bno", SqlDbType.Int))
            cmdAddType.Parameters.Add(New SqlParameter("@stype", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@mtype", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@SDesc", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@Scode", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@DName", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@SupName", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@CashItem", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@CashItem2", SqlDbType.NVarChar, 50))
            cmdAddType.Parameters.Add(New SqlParameter("@CashItem3", SqlDbType.NVarChar, 50))

            cmdAddType.Parameters("@StudentID").Value = txtUserName.Text
            cmdAddType.Parameters("@Studentname").Value = Textbox9.Text
            cmdAddType.Parameters("@Studentloc").Value = Label9.Text
            cmdAddType.Parameters("@BUILDING").Value = ULOCATION
            cmdAddType.Parameters("@COUNTER").Value = UCOUNTER

            If Textbox4.Text = "" Then
                cmdAddType.Parameters("@cash").Value = 0
            Else
                cmdAddType.Parameters("@cash").Value = Textbox4.Text
            End If
            If Textbox10.Text <> "" Then
                '    cmdAddType.Parameters("@CashItem").Value = 0
                'Else
                cmdAddType.Parameters("@CashItem").Value = Textbox10.Text
            End If
            If Textbox11.Text <> "" Then
                If Textbox10.Text = "" Then
                    Response.Write("")
                    Response.Write("alert('Please Fill First Barcode First....')")
                    Response.Write("")
                    Exit Sub
                End If
                cmdAddType.Parameters("@CashItem2").Value = Textbox11.Text
            End If
            If Textbox12.Text <> "" Then
                If Textbox11.Text = "" Then
                    Response.Write("")
                    Response.Write("alert('Please Fill Second Barcode First....')")
                    Response.Write("")
                    Exit Sub
                End If
                cmdAddType.Parameters("@CashItem3").Value = Textbox12.Text
            End If

            cmdAddType.Parameters("@Bno").Value = Bno
            cmdAddType.Parameters("@USER").Value = Session.Contents("name")
            cmdAddType.Parameters("@stype").Value = Textbox5.Text
            cmdAddType.Parameters("@mtype").Value = Textbox8.Text
            cmdAddType.Parameters("@SDesc").Value = Label11.Text
            cmdAddType.Parameters("@Scode").Value = Label12.Text
            cmdAddType.Parameters("@Dname").Value = Label13.Text
            cmdAddType.Parameters("@Supname").Value = Session.Contents("name")
            If Trim(txtUserName.Text) = "111" Then
                If Textbox10.Text <> 0 Or Textbox10.Text <> "" Then
                    Connection.Open()
                    cmdAddType.ExecuteNonQuery()
                    Button2.Enabled = False
                    Connection.Close()
                    Button2.Enabled = False
                    lblout.Visible = True
                    lblout.Text = "BreakFast Information Inserted Sucessfully"
                    PrintReceipt()

                    PrintReceipt()
                Else
                    Response.Write("")
                    Response.Write("alert('Please enter Extra Cash details...')")
                    Response.Write("")
                End If
            Else
                Connection.Open()
                cmdAddType.ExecuteNonQuery()
                Button2.Enabled = False
                Connection.Close()
                Button2.Enabled = False
                lblout.Visible = True
                lblout.Text = "BreakFast Information Inserted Sucessfully"
            End If
            ' lblout.Visible = True
            ' lblout.Text = "BreakFast Information Inserted Sucessfully"

        ElseIf Textbox7.Text = 2 Then
            Response.Write("")
            Response.Write("alert('Student registered in blocked list....')")
            Response.Write("")
        ElseIf Textbox7.Text = 3 Then
            Response.Write("")
            Response.Write("alert('Student Status is Inactive... ')")
            Response.Write("")
        End If
        ' Response.Redirect("ReadBarcode.aspx")

        Textbox10.Text = String.Empty
        Textbox11.Text = String.Empty
        Textbox12.Text = String.Empty

    End Sub