Aqui lhes deixo o código dos botões atualizar ou editar e eliminar em um banco de dados em Access 2003, desde VB .NET, espero que lhes interesse...
<br><br>
Código de Botões:
<br>
exemplo de atualizar:
<br>
<br>
<span class=codigo>
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
Dim i, rwno As Integer<br />
Dim colname As String<br />
Dim value As Object<br />
colname = InputBox("Digite o nome da coluna que deseja modificar"<br />
rwno = InputBox("Digite o Número de fila, lembre que começa de (0)"<br />
value = InputBox("Escreva a Mudança que deseja aplicar"<br />
Try<br />
DataSet11.Tables(0).Rows(rwno).Item(colname) = value<br />
i = OleDbDataAdapter1.Update(DataSet11)<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
End Try<br />
MessageBox.Show("O número de atualizações é = " & i)<br />
End Sub<br />
<br />
e o de eliminar:<br />
<br />
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />
Dim i As Integer<br />
Dim rno As Integer<br />
rno = InputBox("Digite o número de fila que deseja eliminar começando de: 0"<br />
Try<br />
DataSet11Tables(0).Rows(rno).Delete()<br />
i = OleDbDataAdapter1.Update(DataSet11)<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
MessageBox.Show("Número de filas eliminadas = " & i)<br />
End Sub
</span>
<br><br>
e o de eliminar:
<br><br>
<span class=codigo>
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />
Dim i As Integer<br />
Dim rno As Integer<br />
rno = InputBox("Digite o número de fila que deseja eliminar començando de: 0"<br />
Try<br />
DataSet11Tables(0).Rows(rno).Delete()<br />
i = OleDbDataAdapter1.Update(DataSet11)<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
MessageBox.Show("Número de filas eliminadas = " & i)<br />
End Sub
</span>
Por Fabián Soto Mora
