如何在文本框中的数据表中显示数据？ 网络

Question

再会。 我正在尝试将数据表中的数据显示到文本框控件。 但是当程序运行时，我无法按下计算按钮。 在此之前，我尝试在 datagridview 控件上显示数据并显示出来。 有没有人可以帮助我？ 非常感谢。

    provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
    dataFile = "C:\Users\User\Documents\SharkRay Database.accdb"
    connString = provider & dataFile
    myConnection.ConnectionString = connString
    myConnection.Open()

    Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select Sum([Shark Individual Weight]) From FishCaught Where [OperationID] =" & TextBoxOpID4.Text & " and [Scientific Name] ='" & ComboBoxSpeciesName2.SelectedItem & "'", myConnection)

    Dim ds As DataTable = New DataTable()
    da.Fill(ds)

    TextBoxAllSharkTW.Text = ds.ToString()

    myConnection.Close()

Answer 1

试试这个代码。

 provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
    dataFile = "C:\Users\User\Documents\SharkRay Database.accdb"
    connString = provider & dataFile
    myConnection.ConnectionString = connString
    myConnection.Open()

               Dim cmd As New OleDb.OleDbCommand("Select Sum([Shark Individual Weight]) From FishCaught Where [OperationID] =" & TextBoxOpID4.Text & " and [Scientific Name] ='" & ComboBoxSpeciesName2.SelectedItem & "'", myConnection)
        Dim count As Int32 = CInt(cmd.ExecuteScalar)

        TextBoxAllSharkTW.Text = cstr(count)
 myConnection.Close()

Answer 2

    Dim cmd As New OleDbCommand("Select Sum([Shark Individual Weight]) From    FishCaught Where [OperationID] =" & TextBoxOpID4.Text & " and [Scientific Name] ='" & ComboBoxSpeciesName2.SelectedItem & "'", myConnection)
    Dim count As Integer = cmd.ExecuteScalar()

    TextBoxSharkTWbySpecies.Text = count.ToString()
    cmd.Dispose()
    myConnection.Close()

我对Shadow Fiend给出的代码做了一点修改，终于成功了！ 谢谢。