Implimenting update method on VB.Net Application
I am trying to get the update method to update data in datebase using a datagrid in VB.Net application. The code I have placed compiles but the data does not update. If anyone can please point me in the right direction in what it is I am doing wrong. Please help! I have posted the code below.
Imports System.Data
Imports System.Data.OleDb
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 'BowlingDataSet.Bowl' table. You can move, or remove it, as needed.
Me.BowlTableAdapter.Fill(Me.BowlingDataSet.Bowl)
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\bowling.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
' create a data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from Bowl", myConnection)
' create a new dataset
Dim ds As DataSet = New DataSet
da.Fill(ds, "Bowl")
DataGridView1.DataSource = ds.DefaultViewManager
Me.BowlTableAdapter.Fill(Me.BowlingDataSet.Bowl)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Public Function CreateCommandAndUpdate( _
ByVal connectionString As String, _
ByVal queryString As String) As DataSet
Dim dataSet As DataSet = New DataSet
Using connection As New OleDbConnection(connectionString)
connection.Open()
Dim adapter As New OleDbDataAdapter()
adapter.SelectCommand = New OleDbCommand( _
queryString, connection)
Dim builder As OleDbCommandBuilder = _
New OleDbCommandBuilder(adapter)
adapter.Fill(dataSet)
builder.GetUpdateCommand()
adapter.Update(dataSet)
End Using
Return dataSet
End Function
End Class