从 sql-query 获取单个值到文本框中答案

【问题标题】：get single value from sql-query into a textbox从 sql-query 获取单个值到文本框中
【发布时间】：2013-09-23 14:12:33
【问题描述】：

我的 sql 查询的结果是一个我想在标签中显示但不知道如何显示的值。我有一个创建数据集的解决方案，将查询结果放入该数据集并按行（0），列（0）获取它，但我想有一种更聪明的方法。

Private myquery As String

Sub New(ByVal query As String)
    myquery = query
End Sub
Public Sub query_Send()
    Dim myconn As New SqlConnection("Data Source=DB;Integrated Security=TRUE")
    Dim mycmd As SqlCommand = New SqlCommand(Me.myQuery, myconn)
    Dim myTable As New DataTable
    Dim previousConnectionState As ConnectionState = myconn.State
    Try
        If myconn.State = ConnectionState.Closed Then
            myconn.Open()
            Dim myDA As New SqlDataAdapter(mycmd)
            myDA.Fill(myTable)
            tb.text = **...**
        End If
        If previousConnectionState = ConnectionState.Closed Then
            myconn.Close()
        End If
    End Try
End Sub

【问题讨论】：

标签： vb.net dataset streamreader

【解决方案1】：

您可以使用SqlCommand.ExecuteScalar Method

Dim querystr as String = "select value from MyTable where ID=5"
Dim mycmd As New SqlCommand(querystr, connection)
dim value as Object = mycmd.ExecuteScalar()

您可以将value 放入您的文本框中。 ExecuteScalar 返回结果集第一行的第一个值（相当于 row(0).column(0) ）当没有记录返回时，value 是 nothing。

【讨论】：

对我有用，谢谢 CODE Dim sql As String Dim cmd As New OleDb.OleDbCommand con.Open() sql = "SELECT MAX(pos) FROM rac" cmd.Connection = con cmd.CommandText = sql Dim value As Object = cmd.ExecuteScalar Me.TextBox6.Text = value + 1

【解决方案2】：

尝试更多类似的东西：

    Using myconn As New SqlConnection("Data Source=DB;Integrated Security=TRUE")
        Dim myDA As New SqlDataAdapter()
        myDA.SelectCommand = New SqlCommand(myQuery, myconn)
        myDA.Fill(myTable)
        Return myTable 
    End Using

或者您可以使用

获取第一行中的第一项

myTable.Rows(0).ItemArray(0).ToString()

【讨论】：