テキストボックスのデータテーブルにデータを表示する方法は？ vb.net

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

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() 

私は影の悪鬼によって与えられたコードに少し修正を行なったし、最終的にそれは働きます！ありがとう。

Answer 2

このコードを試してください。

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()