Как использовать datareader для получения данных в текстовое поле из выпадающего списка

Question

У меня есть форма с одним списком и текстовым полем.
Теперь у меня есть база данных SQL с таблицей с именем balance.Он состоит из двух столбцов, один из которых customername, а другой - obbalance.
Теперь я привязал все имя клиента к списку.
Что мне нужно сделать, это:
Когда пользователь выбираетимя клиента из выпадающего списка, в текстовом поле должно отображаться obbalance из выбранных customername.Здесь имя клиента не будет повторяться, только одно имя с клиентом.
Что я могу сделать?Пожалуйста, помогите мне.

    Dim conectionstring As String
    conectionstring = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\SHOPPROJECT\SHOPPROJECT\shop.mdf;Integrated Security=True;User Instance=True"


    Dim ST As String = ComboBox1.SelectedText

    Dim sqlcon As New SqlConnection(conectionstring)

    Dim sqlcmd As New SqlCommand("SELECT OBBALANCE FROM BALANCE WHERE CUSTOMERNAME =  " & " '" & ST & "'" & "", sqlcon)
    MessageBox.Show(TextBox1.Text)


    Dim result As Object

    Try
        sqlcon.Open()
        ' Dim sdr As SqlDataReader = sqlcmd.ExecuteReader()
        result = sqlcmd.ExecuteScalar()

        If result IsNot Nothing Then
            TextBox1.Text = result.ToString()
            MessageBox.Show(TextBox1.Text)

        End If

    Catch ex As SqlException
        MessageBox.Show(ex.Message)

    End Try
End Sub

Я сделал это, но все еще не вижу значения в текстовом поле, а obbalance - это значение flost из базы данных sql

Answer 1

Private Sub doSomething()
Dim conectionstring As String
        conectionstring = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\SHOPPROJECT\SHOPPROJECT\shop.mdf;Integrated Security=True;User Instance=True"


    Dim ST As String = ComboBox1.SelectedText

    Dim sqlcon As New SqlConnection(conectionstring)

    Dim sqlcmd As New SqlCommand("SELECT OBBALANCE, CUSTOMERNAME FROM BALANCE" ,sqlcon)
    sqlcmd.CommandType = CommandType.Text

    Try
        sqlcon.Open()
        Dim sdr As SqlDataReader = sqlcmd.ExecuteReader()

        If sdr IsNot Nothing Then
            Dim dt As DataTable
            dt.Load(sdr)

            With yourCombobox
                .DataSource = dt
                .DisplayMember = "CUSTOMERNAME"
                .ValueMember = "OBBALANCE"

            End With

        End If

    Catch ex As SqlException
        MessageBox.Show(ex.Message)
    End Try
End Sub

Private Sub comboBoxChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles yourCombobox.SelectedIndexChanged

textbox.text = yourCombobox.SelectedValue.ToString

End Sub