How to Update Dynamic Textbox value to SQL?

See more:

VB

Hi,

I have 2 dynamically created buttons 1 dynamically created textbox and 1 dynamically created label.

When i press one button the value of the textbox will get incremented. and in the same fashion when ipress other button the textbox value will get decremented.

Now i need to update SQL directly when i press the Buttons. When its getting updated it should look for the name in sql from the label box.

I below code , its getting updated however only last label's sql data is getting updated. Please help me.

 Dim i As Integer = new_Textboxes.Length
Dim i As Integer = new_Textboxes.Length
 Private but1() As Button = {}
 Private new_Textboxes() As TextBox = {}



 Dim lb As Integer
        For lb = 1 To ListBox1.Items.Count
            For Each listboxitem In ListBox1.Items
                lbl = New Label
                lbl.Location = New Point(300, 200 + (lb * 25))
                lbl.Name = "Label" & lb
                lbl.Width = 155
                lbl.Text = ListBox1.GetItemText(listboxitem)
                Me.Controls.Add(lbl)
                lb = lb + 1
            Next listboxitem
        Next lb


but1(m) = New Button
            With but1(m)
                .Name = "NewButton" & m.ToString()
                If but1.Length < 2 Then
                    .SetBounds(500, 222, 26, 20)
                Else
                    .Left = but1(m - 1).Left
                    .Top = but1(m - 1).Top + but1(m - _
                        1).Height + 6
                    .Size = but1(m - 1).Size
                End If
                .Tag = m
                .Text = "+"
            End With
            Me.Controls.Add(but1(m))
            AddHandler but1(m).Click, AddressOf oBtnAdd_Click

            but2(n) = New Button
            With but2(n)
                .Name = "NewButton" & n.ToString()
                If but2.Length < 2 Then
                    .SetBounds(590, 222, 26, 20)
                Else
                    .Left = but2(n - 1).Left
                    .Top = but2(n - 1).Top + but2(n - _
                        1).Height + 6
                    .Size = but2(n - 1).Size
                End If
                .Tag = n
                .Text = "-"
            End With
            Me.Controls.Add(but2(n))
            AddHandler but2(n).Click, AddressOf oBtnSubst_Click

new_Textboxes(i) = New TextBox
            With new_Textboxes(i)
                .Name = "NewTextBox" & i.ToString()
                If new_Textboxes.Length < 2 Then
                    .SetBounds(545, 225, 25, 25)
                Else
                    .Left = new_Textboxes(i - 1).Left
                    .Top = new_Textboxes(i - 1).Top + new_Textboxes(i - _
                        1).Height + 6
                    .Size = new_Textboxes(i - 1).Size
                End If
                .Tag = i
                .Text = 0
            End With
            Me.Controls.Add(new_Textboxes(i))

 Public Sub oBtnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles oBtnAdd.Click
        Dim btn As Button = sender
        Dim txt As TextBox = CType(Me.Controls("NewTextBox" & btn.Tag), TextBox)
        Dim count As Integer = Integer.Parse(txt.Text)
        txt.Text = count + 1
        Dim con As New OleDb.OleDbConnection()
        Dim cmd2 As New OleDb.OleDbCommand()
        con.ConnectionString = "Provider=SQLOLEDB.1;Password=$impadmins123;Persist Security Info=True;User ID=simp;Initial Catalog=Employee Information;Data Source=SRAVI6"
        con.Open()
        cmd2.Connection = con
        cmd2.CommandText = "update QueueManagement set QueueHandler='" & txt.Text & "' where AgentName='" & lbl.Text & "'"
        cmd2.ExecuteNonQuery()
        con.Close()
    End Sub