datagridview will not update

[thomasp]

I know this is a vague question, but I am not sure what information to give.
I am using VB2005 beta and the datagridview is pulling data from one of
three tables in an Access database. For some reason when I edit the feilds
that I have not set as readonly, the changes do not get written to the
database. I have the code that loads the datagridview posted below. Thanks
for any suggestions.

Thanks,

Thomas

Private Sub frmViewTables_L oad(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

'Variable used to track if the form is loading
'it will be used to keep some events from running
'when the form is loading

bolIsLoading = True
Me.Cursor = Cursors.WaitCur sor
Me.Refresh()

'Set the form up based on which Table will be displayed
Select Case intDataTable
Case Is = 1
Me.LCMRTableAda pter.Fill(Me.TA MDataSet.LCMR)
Me.DataGridView 1.DataSource = Me.TAMDataSet.L CMR
Me.Text = "LCMR DataTable"
Case Is = 2
Me.Q36TableAdap ter.Fill(Me.TAM DataSet.Q36)
Me.DataGridView 1.DataSource = Me.TAMDataSet.Q 36
Me.Text = "Q36 DataTable"
Case Is = 3
Me.UTAMSTableAd apter.Fill(Me.T AMDataSet.UTAMS )
Me.DataGridView 1.DataSource = Me.TAMDataSet.U TAMS
Me.Text = "UTAMS DataTable"
End Select

'Set up the header row
With DataGridView1.C olumnHeadersDef aultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(DataGridVi ew1.Font, FontStyle.Bold)
End With

' Create a new cell style.
Dim style As New DataGridViewCel lStyle
With style
.BackColor = Color.Beige
'.ForeColor = Color.Brown
End With

With DataGridView1
.EditMode = DataGridViewEdi tMode.EditOnEnt er
.AutoSizeRowsMo de = _
DataGridViewAut oSizeRowsMode.D isplayedCells
.AutoSizeColumn sMode = _
DataGridViewAut oSizeColumnsMod e.DisplayedCell s
.ColumnHeadersB orderStyle = _
DataGridViewHea derBorderStyle. Raised
.ColumnHeadersV isible = True
.CellBorderStyl e = _
DataGridViewCel lBorderStyle.Si ngle
.GridColor = SystemColors.Ac tiveBorder
.AllowUserToAdd Rows = False
.AllowUserToOrd erColumns = True
.AllowUserToRes izeColumns = True
.BackgroundColo r = Color.Honeydew

.Columns("DTG") .DefaultCellSty le.Format = "dd-MMM-yy HH:mm:ss"
.Columns("Dista nce").DefaultCe llStyle.Alignme nt =
DataGridViewCon tentAlignment.M iddleRight
.Columns("ID"). ReadOnly = True
Select Case intDataTable
Case Is = 1
.Columns("Dista nce").ReadOnly = True
.Columns("Direc tion").ReadOnly = True
.Columns("RDist ance").ReadOnly = True
.Columns("RDire ction").ReadOnl y = True
Case Is = 2
.Columns("Dista nce").ReadOnly = True
.Columns("Direc tion").ReadOnly = True
.Columns("RDist ance").ReadOnly = True
.Columns("RDire ction").ReadOnl y = True
.Columns("Db"). ReadOnly = True
.Columns("Veloc ity").ReadOnly = True
Case Is = 3

End Select
End With

' Apply the style as the default cell style.
DataGridView1.A lternatingRowsD efaultCellStyle = style

Me.Cursor = Cursors.Default
Me.Refresh()

'form has finished loading
bolIsLoading = False

End Sub

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.c om<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

[Cor Ligthert [MVP]]

Thomas,

I see a lot of non relevant code for the update. However is there some code
to update as well?

Cor
<th*****@msala. net> schreef in bericht
news:43******** *************** @news.newsdemon .com...

I know this is a vague question, but I am not sure what information to
give.
I am using VB2005 beta and the datagridview is pulling data from one of
three tables in an Access database. For some reason when I edit the
feilds
that I have not set as readonly, the changes do not get written to the
database. I have the code that loads the datagridview posted below.
Thanks
for any suggestions.

Thanks,

Thomas

Private Sub frmViewTables_L oad(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles MyBase.Load

'Variable used to track if the form is loading
'it will be used to keep some events from running
'when the form is loading

bolIsLoading = True
Me.Cursor = Cursors.WaitCur sor
Me.Refresh()

'Set the form up based on which Table will be displayed
Select Case intDataTable
Case Is = 1
Me.LCMRTableAda pter.Fill(Me.TA MDataSet.LCMR)
Me.DataGridView 1.DataSource = Me.TAMDataSet.L CMR
Me.Text = "LCMR DataTable"
Case Is = 2
Me.Q36TableAdap ter.Fill(Me.TAM DataSet.Q36)
Me.DataGridView 1.DataSource = Me.TAMDataSet.Q 36
Me.Text = "Q36 DataTable"
Case Is = 3
Me.UTAMSTableAd apter.Fill(Me.T AMDataSet.UTAMS )
Me.DataGridView 1.DataSource = Me.TAMDataSet.U TAMS
Me.Text = "UTAMS DataTable"
End Select

'Set up the header row
With DataGridView1.C olumnHeadersDef aultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(DataGridVi ew1.Font, FontStyle.Bold)
End With

' Create a new cell style.
Dim style As New DataGridViewCel lStyle
With style
.BackColor = Color.Beige
'.ForeColor = Color.Brown
End With

With DataGridView1
.EditMode = DataGridViewEdi tMode.EditOnEnt er
.AutoSizeRowsMo de = _
DataGridViewAut oSizeRowsMode.D isplayedCells
.AutoSizeColumn sMode = _
DataGridViewAut oSizeColumnsMod e.DisplayedCell s
.ColumnHeadersB orderStyle = _
DataGridViewHea derBorderStyle. Raised
.ColumnHeadersV isible = True
.CellBorderStyl e = _
DataGridViewCel lBorderStyle.Si ngle
.GridColor = SystemColors.Ac tiveBorder
.AllowUserToAdd Rows = False
.AllowUserToOrd erColumns = True
.AllowUserToRes izeColumns = True
.BackgroundColo r = Color.Honeydew

.Columns("DTG") .DefaultCellSty le.Format = "dd-MMM-yy HH:mm:ss"
.Columns("Dista nce").DefaultCe llStyle.Alignme nt =
DataGridViewCon tentAlignment.M iddleRight
.Columns("ID"). ReadOnly = True
Select Case intDataTable
Case Is = 1
.Columns("Dista nce").ReadOnly = True
.Columns("Direc tion").ReadOnly = True
.Columns("RDist ance").ReadOnly = True
.Columns("RDire ction").ReadOnl y = True
Case Is = 2
.Columns("Dista nce").ReadOnly = True
.Columns("Direc tion").ReadOnly = True
.Columns("RDist ance").ReadOnly = True
.Columns("RDire ction").ReadOnl y = True
.Columns("Db"). ReadOnly = True
.Columns("Veloc ity").ReadOnly = True
Case Is = 3

End Select
End With

' Apply the style as the default cell style.
DataGridView1.A lternatingRowsD efaultCellStyle = style

Me.Cursor = Cursors.Default
Me.Refresh()

'form has finished loading
bolIsLoading = False

End Sub

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.c om<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

[thomasp]

Well, that may be my problem. I thought that as long as the field was not
set to readonly and I had editonenter set that VB would handle the updating.
I was not aware that I needed to add code for the update to occur. Please
point me in the direction of what code I need to have the datagridview
update the database.

Thanks,

Thomas

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.c om<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

[Cor Ligthert [MVP]]

Thomas,

This is absolute not the right sample, however it shows you at least how to
update.

Better is of course to use an update button for an update. Than you have as
well to check for errors as by instance concurrency errors (that is if
somebody made changes in the maintime). However in my opinion is it nice to
see the basic. (The absolute most simple update version as there is, is at
the bottom).

This sample does a little bit it in the way as you thought it was working.

http://www.windowsformsdatagridhelp....7-5595f8147624

I hope this helps,

Cor

<th*****@msala. net> schreef in bericht
news:43******** **************@ news.newsdemon. com...

Well, that may be my problem. I thought that as long as the field was not
set to readonly and I had editonenter set that VB would handle the
updating.
I was not aware that I needed to add code for the update to occur. Please
point me in the direction of what code I need to have the datagridview
update the database.

Thanks,

Thomas

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.c om<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access