Работа с набором данных vb.net

Question

Использование Visual Studio 2010

Я пытаюсь использовать окно перетаскивания из источника данных.

Сетка генерируется автоматически и с панелью навигации с несколькими элементами управления, такими как добавление, сохранение, удаление.

Но это не работает на основной таблице, значит, когда я хочу добавить новый, он показывает сохраненный, но не сохраненный в фактических данных. пожалуйста, помогите обновить, вставить и удалить.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'Agents_DataSet.trans' table. You can move, or remove it, as needed.
    Me.TransTableAdapter.Fill(Me.Agents_DataSet.trans)



End Sub


Private Sub TransBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransBindingNavigatorSaveItem.Click
    Me.Validate()
    Me.TransBindingSource.EndEdit()
    Me.TableAdapterManager.UpdateAll(Me.Agents_DataSet)

End Sub

Answer 1

, поскольку Access не поддерживает LINQ, я думаю, вы должны печатать операторы самостоятельно.
Это фрагмент старого проекта, в котором я написал свои собственные запросы в БД.

''' <summary>
''' ExecuteQuery - Execute the query and returns true the excecution was successful
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ExecuteQuery(ByVal sQuery As String) As Boolean
    Dim cConnection As OleDb.OleDbConnection = ConnectToAccess()
    Try
        Dim cmd As New OleDb.OleDbCommand(sQuery, cConnection)
        cmd.ExecuteNonQuery()
        Return (True)
    Catch ex As Exception
        Return False
    Finally
        If cConnection IsNot Nothing Then cConnection.Close()
    End Try
End Function

РЕДАКТИРОВАТЬ и здесь соединение OleDb:

''' <summary>
''' ConnectToAccess - Etablish conncetion to the selected access Database
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ConnectToAccess() As OleDb.OleDbConnection
    Try
        Dim myOleDbConnection As New OleDb.OleDbConnection
        myOleDbConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=access.mdb;Jet OLEDB:Database Password=yourPassword;")
        myOleDbConnection.Open()
        Return myOleDbConnection
    Catch ex As Exception
        MsgBox("Couldnt etablish the connection to Access. ", ex)
        Return Nothing
    End Try
End Function