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

Question

嘿，朋友，我正在使用一个带有 *combobox* 的表单，其中我从 sqldatabase 命名为 balance 并且 sqldatabase 有两列一是 customername 和 另一个现在是不平衡的。

在表格中我绑定了表格中的所有客户姓名，现在我有一个我想做的文本框 当用户选择 combobox.selected 项目时，我需要在 tat 文本框中显示所选客户的任何一个客户名称

我使用了数据阅读器，但它显示错误你能帮我........

    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

更新：
修改代码以检查是否为空。
删除了不再需要的数据读取器对象。
从查询中删除了不必要的字符。

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