Foros del web, para los que viven de bits

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

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!

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