如何在對話框結果vb.net中將sql數據綁定到標簽

Question

我目前在vb.net Windows窗體應用程序中工作，由sql server支持。 我目前正在嘗試加載對話框結果，並且需要將標簽自動加載到對話框結果中。 但是，每當我嘗試將sql結果綁定到標簽中時，都會出現錯誤。 我之前用sql查詢加載的DGV中的數據完成了此操作，但這給了我一些問題。 當我嘗試將變量“ datareader”加載到“ f.labelshear.text = datareader”時，出現錯誤。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles M01.Click

    Dim dr As DialogResult
    Dim f As New CellContent

    Using conn1 As New SqlConnection(connstring)
        conn1.Open()
        Using comm1 As SqlCommand = New SqlCommand("SELECT Shear FROM Production.dbo.tblFabWipLog WHERE FabWipID = 1", conn1)
            Dim datareader As SqlDataReader = comm1.ExecuteReader
            datareader.ToString()
            f.LabelShear.Text = datareader


        End Using
    End Using

End Sub

Answer 1

我懷疑您的第一個代碼和第二個代碼都不起作用。 聲明了datareader之后，您必須對datareader.Read()進行編碼，然后再在f.LabelShear.Text = datareader(0).Tostring進行綁定。

Answer 2

這是最終代碼

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles M01.Click
    Try
        Dim dt As New DataTable
        Using conn1 As New SqlConnection(connstring)
            conn1.Open()
            Using comm1 As SqlCommand = New SqlCommand("SELECT Shear FROM Production.dbo.tblFabWipLog WHERE FabWipID = 1", conn1)
                Dim sqlda As New SqlDataAdapter(comm1)
                sqlda.Fill(dt)
                Dim dr As DialogResult
                Dim f As New CellContent
                f.LabelShear.Text = dt.Rows(0)("Shear").ToString
                f.ShowDialog()
                conn1.Close()
            End Using
        End Using

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

End Sub