Cómo puedo crear los tipicos botones de actualizar, editar o borrar en VB .NET? La FAQ Botones editar,actualizar o borrar en VB .NET tiene Pertenece a la categoría:
| Respuesta de Fabián Soto Mora |
15/10/07 |
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
|
| Comentarios sin revisar |
|
Entre los comentarios no revisados puede haber algunos interesantes que se hayan enviado recientemente.
|
Se han encontrado 2 comentarios sin revisar
|
|
