G
Guest
I just can't seem to get the datagridview to update. I'm using 2005 vb.net
Here's my code for loading the grid (works fine) and my attempt at updating
via a save button...
Private SxAdapter As New OleDbDataAdapter()
Private SxSource As New BindingSource()
Private SxTable As New DataTable()
Private Sub GetData(ByVal selectCommand As String)
Try
SQL = "Select LastName, FirstName, TestName, TestDate, Score
from TestScores"
SxAdapter = New OleDbDataAdapter(selectCommand, CS)
Dim MyCommandBuilder As New OleDbCommandBuilder(SxAdapter)
SxTable.Locale = System.Globalization.CultureInfo.InvariantCulture
Me.SxAdapter.Fill(SxTable)
Me.SxSource.DataSource = SxTable
Catch ex As OleDbException
MessageBox.Show("Error")
End Try
End Sub
in the form load...
Me.DataGridView1.DataSource = Nothing
Me.DataGridView1.Rows.Clear()
Me.DataGridView1.DataSource = SxSource
GetData("Select LastName, FirstName, TestName, TestDate, Score from
TestScores")
and the save button...
Try
Me.Validate()
Me.SxSource.EndEdit()
Dim myBuilder As OleDb.OleDbCommandBuilder = New
OleDb.OleDbCommandBuilder(Me.SxAdapter)
Me.SxAdapter.Update(CType(Me.SxSource.DataSource, DataTable))
MsgBox("Update Successful")
Catch ex As Exception
MsgBox("Update Failed")
End Try
I'm stumpled...
Here's my code for loading the grid (works fine) and my attempt at updating
via a save button...
Private SxAdapter As New OleDbDataAdapter()
Private SxSource As New BindingSource()
Private SxTable As New DataTable()
Private Sub GetData(ByVal selectCommand As String)
Try
SQL = "Select LastName, FirstName, TestName, TestDate, Score
from TestScores"
SxAdapter = New OleDbDataAdapter(selectCommand, CS)
Dim MyCommandBuilder As New OleDbCommandBuilder(SxAdapter)
SxTable.Locale = System.Globalization.CultureInfo.InvariantCulture
Me.SxAdapter.Fill(SxTable)
Me.SxSource.DataSource = SxTable
Catch ex As OleDbException
MessageBox.Show("Error")
End Try
End Sub
in the form load...
Me.DataGridView1.DataSource = Nothing
Me.DataGridView1.Rows.Clear()
Me.DataGridView1.DataSource = SxSource
GetData("Select LastName, FirstName, TestName, TestDate, Score from
TestScores")
and the save button...
Try
Me.Validate()
Me.SxSource.EndEdit()
Dim myBuilder As OleDb.OleDbCommandBuilder = New
OleDb.OleDbCommandBuilder(Me.SxAdapter)
Me.SxAdapter.Update(CType(Me.SxSource.DataSource, DataTable))
MsgBox("Update Successful")
Catch ex As Exception
MsgBox("Update Failed")
End Try
I'm stumpled...