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:
<span class="codigo"> 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 </span>
y el de eliminar:
<span class="codigo"> 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 </span>