使用数据集vb.net

Question

使用Visual Studio 2010

我想使用Windows窗体拖放数据源。

网格自动生成，导航条带有添加，保存，删除等少数控件。

但它在主表不工作，meanS当我想添加新的，它显示保存，但它没有保存在实际的数据表中。请帮助更新，插入和删除。

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你必须键入我觉得自己的发言。
这是一个老项目的一个片段，我写了我自己的Querys到DB。

''' <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