Problemas con TableAdapter.Update

[gfg08]

Hola, estoy realizando una aplicación en VB 2005, que hace ABM de alumnos. El tema es que utilizo DataSet para trabjar con los registros en memoria y para actualizar la BD (Access 2007) utilizo TableAdapter. El tema es que solo me toma las inserciones pero no las modificaciones ni eliminaciones . Adjunto el código para que lo vean mas claro. Gracias desde ya!


Private Sub cmdAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregar.Click
Dim Fila As Byte
Dim Reg As Integer
Dim xRow As DataRow
Reg = txtRegistro.Text
xRow = Me.PersonalDataSet.Tables("Alumnos").NewRow
xRow("Registro") = Reg
xRow("Apellido") = txtApellido.Text
xRow("Nombre") = txtNombre.Text
Fila = DataGridView1.RowCount
Me.PersonalDataSet.Tables("Alumnos").AcceptChanges ()
Me.PersonalDataSet.Tables("Alumnos").Rows.InsertAt (xRow, Fila)
Me.AlumnosTableAdapter.Update(Me.PersonalDataSet)
DataGridView1.Update()
End Sub


Private Sub cmdModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificar.Click
Dim Posicion As Byte
Dim Reg As Integer
Posicion = txtPosicion.Text - 1
Me.PersonalDataSet.Tables("Alumnos").AcceptChanges ()
Me.PersonalDataSet.Tables("Alumnos").BeginInit()
Me.PersonalDataSet.Tables("Alumnos").Rows(Posicion ).BeginEdit()
Reg = txtRegistro.Text
Me.PersonalDataSet.Tables("Alumnos").Rows(Posicion ).Item("Registro") = Reg
Me.PersonalDataSet.Tables("Alumnos").Rows(Posicion ).Item("Apellido") = CType(txtApellido.Text, String)
Me.PersonalDataSet.Tables("Alumnos").Rows(Posicion ).Item("Nombre") = CType(txtNombre.Text, String)

Me.AlumnosTableAdapter.Update(Me.PersonalDataSet)

DataGridView1.Update()

End Sub

Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEliminar.Click
Dim Posicion As Byte
Posicion = txtPosicion.Text - 1
Me.PersonalDataSet.Tables("Alumnos").AcceptChanges ()
Me.PersonalDataSet.Tables("Alumnos").BeginInit()
Me.PersonalDataSet.Tables("Alumnos").Rows(Posicion ).BeginEdit()
Me.PersonalDataSet.Tables("Alumnos").Rows.RemoveAt (Posicion)
Me.AlumnosTableAdapter.Update(Me.PersonalDataSet)
DataGridView1.Update()
End Sub

[piskui]

yo para el boton borrar uso el siguiente codigo, puedes probarlo a ver si te funciona, aunque ya sabes que ami no me lo guarda en la BD, pero si lo pruebas y te funciona sabremos que el codigo al menos esta bien jeje

Private Sub btBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBorrar.Click
Dim var As DataSet.tutablaRow
var = Me.DataSet.tutabla.FindByEmployee_ID(id fila a borrar o textbox en tu caso)
var.Delete()
'lo siguiente lo puse tras tu consejo, sin ello tb funciona, lo que esta en rojo.

Me.DataSet.Tables("Tutabla").AcceptChanges()
Me.DataSet.Tables("Tutabla").BeginInit()
Me.DataSet.Tables("Tutabla").Rows(posicion).BeginE dit()
Me.NorthwindDataSet.Tables("Tutabla").Rows.RemoveA t(posicion)

Me.EmployeesTableAdapter.Update(Me.DataSet.Tutabla )

Espero te que te sirva. un saludo!

[gfg08]

A ver ... pruebo y te digo...
gracias!