Как отображать данные в таблице данных в текстовом поле? 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() 

Я сделал немного поправку к коду дается Shadow Fiend и, наконец, это работает! Благодарю.

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