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