Botones editar,actualizar o borrar en VB .NET

Aquí les dejo el codigo de los botones actualizar o editar y eliminar en una base de datos en Access 2003, desde VB .NET, espero que les sea de interes..



Codigo de Botones:


ejemplo de actualizar:





Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i, rwno As Integer

Dim colname As String

Dim value As Object

colname = InputBox("Digite el nombre de la columna que desea modificar"

rwno = InputBox("Digite el Número de fila recuerde que empieza de (0)"

value = InputBox("Escriba el Cambio que desea aplicar"

Try

DataSet11.Tables(0).Rows(rwno).Item(colname) = value

i = OleDbDataAdapter1.Update(DataSet11)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

MessageBox.Show("El número de actualizaciones es = " & i)

End Sub



y el de eliminar:



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

Dim rno As Integer

rno = InputBox("Digite el número de fila que desea eliminar empezando de: 0"

Try

DataSet11Tables(0).Rows(rno).Delete()

i = OleDbDataAdapter1.Update(DataSet11)

Catch ex As Exception

MsgBox(ex.Message)

End Try

MessageBox.Show("Número de filas eliminadas = " & i)

End Sub




y el de eliminar:




Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

Dim rno As Integer

rno = InputBox("Digite el número de fila que desea eliminar empezando de: 0"

Try

DataSet11Tables(0).Rows(rno).Delete()

i = OleDbDataAdapter1.Update(DataSet11)

Catch ex As Exception

MsgBox(ex.Message)

End Try

MessageBox.Show("Número de filas eliminadas = " & i)

End Sub