Buenas antes q todo.. de nuevo estoy por aqui nesesitando un codigo q me funcione para eliminar datos de una base de datos access desde visual basic ya tengo el Formulario con los botones de agregar y me agrega y todo a la base de datos pero me falta el de eliminar consegui un codigo pero no me funciona me muesta error espero me auden.... por cierto mu agradecido por el tema anterior q publique gracias a unos amigos de aqui pude solucionar el asunto..
Public Class Form2
Private Sub ALUMNOSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALUMNOSBindingNavigatorSaveItem.Click
Me.Validate()
Me.ALUMNOSBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Base_de_Datos_ de_AlumnosDataSet)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Horario' Puede moverla o quitarla según sea necesario.
Me.HorarioTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.Horario)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Turno' Puede moverla o quitarla según sea necesario.
Me.TurnoTableAdapter.Fill(Me.Base_de_Datos_de_Alum nosDataSet.Turno)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Dias' Puede moverla o quitarla según sea necesario.
Me.DiasTableAdapter.Fill(Me.Base_de_Datos_de_Alumn osDataSet.Dias)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.CURSOS' Puede moverla o quitarla según sea necesario.
Me.CURSOSTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CURSOS)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.ESTADO' Puede moverla o quitarla según sea necesario.
Me.ESTADOTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.ESTADO)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.CIUDAD' Puede moverla o quitarla según sea necesario.
Me.CIUDADTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CIUDAD)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.ALUMNOS' Puede moverla o quitarla según sea necesario.
Me.ALUMNOSTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.ALUMNOS)
End Sub
Private Sub CMDCargar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ALUMNOSBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALUMNOSBindingNavigator.RefreshItems
End Sub
Private Sub CMDInforme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDInforme.Click
Reporte1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Validate()
Me.ALUMNOSBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Base_de_Datos_ de_AlumnosDataSet)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub ALUMNOSDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ALUMNOSDataGridView.CellContentClick
End Sub
Private Sub Cedula_de_IdentidadTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cedula_de_IdentidadTextBox.TextChanged
End Sub
Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
End Sub
Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Validate()
Me.ALUMNOSBindingSource.Clear() 'En esta linea me muestra error y deberia eliminar'
Me.TableAdapterManager.UpdateAll(Me.Base_de_Datos_ de_AlumnosDataSet)
End Sub
End Class
