如何在获取文本框值时使用 datareader

Question

嘿朋友，我正在使用带有*组合框*的表单，其中我从 sqldatabase 名为balance，该sqldatabase 有两列，一列是customername，另一列是 另一个现在是不平衡的。

在表单中，我绑定了表中的所有客户名称，现在我有一个文本框，我想做的是 当用户选择组合框时。所选项目中的任何一个客户名称我需要在文本框中显示所选客户的平衡

我已经使用了数据阅读器，但它显示错误你可以帮助我吗........

    Dim ST As String = ComboBox1.SelectedItem

    Dim sqlcon As New SqlConnection(conectionstring)

    Dim sqlcmd As New SqlCommand("SELECT OBBALANCE FROM BALANCE WHERE CUSTOMERNAME =  " & " '" & ST & "'" & "", sqlcon)
    Dim sdr As New SqlDataReader


    Try
        con.Open()
        sdr = sqlcmd.ExecuteReader
        While (sdr.Read())
            Textbox7.Text = sdr[1]

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

    End Try

我无法理解如何要读取请帮助我读取数据，表中第一个是列名，接下来是 obbalance 字段

Answer 1

由于您要从数据库中读取单个值，因此请使用 ExecuteScalar 方法而不是使用数据读取器。

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)
Dim result as Object

Try
    con.Open()

    result = sqlcmd.ExecuteScalar()

    If result IsNot Nothing Then
         Textbox7.Text = result.ToString() 
    End If

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

End Try

更新：
修改代码以检查 null。
删除了 datareader 对象，因为不再需要它。
从查询中删除了不必要的字符。

Answer 2

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)
  Dim sdr As SqlDataReader


    Try
        sqlcon.Open() 'edited
        sdr = sqlcmd.ExecuteReader()
        While (sdr.Read())
            TextBox1.Text = sdr("OBBALANCE").ToString() 'sdr(1) is wrong since there is only one item
        End While
    Catch ex As SqlException
        MessageBox.Show(ex.Message)


    End Try