Tengo un proyecto en VB 2008. Tiene una base de datos llamada: "archivoreferencia.mdf" de ella saco una tabla que contiene unicamente los nombres de los usuarios. Al editarla en ejecución no guarda cambios despues de eliminar.
Codigo del boton eliminar:
Private Sub BtnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim bm As BindingManagerBase = Me.BindingContext(BindingSource1)
Dim fila As DataRowView
Try
fila = bm.Current
fila.Row.Delete()
posicion()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Codigo del sub posicion(sirve para mostrar en que posición dentro de la base de datos se encuentra):
Private Sub posicion()
Dim bm As BindingManagerBase = Me.BindingContext(BindingSource1)
Dim qposicion As Short
qposicion = bm.Position + 1
Lbposicion.Text = qposicion.ToString & "/" & bm.Count
If bm.Count = 0 Then
Btnbuscar.Enabled = False
Else
Btnbuscar.Enabled = True
End If
End Sub
Se guardan los contenidos en el evento Form_closing del formulario:
Private Sub administraciónuser_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
If DataSet11.HasChanges() Then
Me.SqlDataAdapter1.Update(DataSet11)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Da el siguiente error:
Update requiere que deletecommant sea válido cuando se pasa la colección datarow con filas eliminadas.
No se como arreglarlo. De antemano muchas gracias.

LinkBack URL
About LinkBacks
Citar
