Botones editar,actualizar o borrar en VB .NET

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:
Pregunta
Cómo puedo crear los tipicos botones de actualizar, editar o borrar en VB .NET?
Respuesta de Fabián Soto Mora
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

Volver al árbol de categoríasVolver al árbol de categorías

Comentarios

Jorge

06/11/2007
Depende para que es la operación:
Porque sí es una simple operación de base de datos; el usar dataset es exagerado!!

yo recomiendo usar Comando parejo

dataset esta pensado para escenario mas complejo

Atte.
Jpedraza
Microsoft Certified Professional
Coordinador MUG Profesional
Http://groups.msn.com/guarosmsdn-net

xGs_Manco

06/11/2007
Botón buscar:
Public Function Buscar(ByVal ced As String) As Integer
Dim conn As SqlConnection
Dim ds As DataSet
Dim da As SqlDataAdapter
Dim SqlCadena As String
Dim sqlComando As SqlCommand

Try
da = New SqlDataAdapter()
ds = New DataSet()
conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa")
SqlCadena = "Select * from tblduenos where ced = @ced "
sqlComando = New SqlCommand(SqlCadena, conn)
sqlComando.Parameters.AddWithValue("@ced", ced)
sqlComando.CommandType = CommandType.Text
conn.Open()
da.SelectCommand = sqlComando
da.Fill(ds, "tblduenos")
If ds.Tables("tblduenos").Rows.Count > 0 Then
Return 1
Else
Return 0
End If
Catch ex As Exception
MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error")
Finally
conn.Close()
End Try
End Function

Boton Modificar
Public Sub Modificar(ByVal des As String)
Dim conn As SqlConnection
Dim SqlCadena As String
Dim sqlComando As SqlCommand
Try
conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa")
SqlCadena = "update tblanimales set descripcion = @des where des = @des"
sqlComando = New SqlCommand(SqlCadena, conn)
sqlComando.CommandType = CommandType.Text
sqlComando.Connection.Open()

sqlComando.Parameters.Add("@des", SqlDbType.VarChar, 25)
sqlComando.Parameters("@des").Value = des

sqlComando.ExecuteNonQuery()

Catch ex As Exception
MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error")
Finally
conn.Close()
End Try
End Sub

Boton Guardar
Public Sub Guardar(ByVal des As String)
Dim conn As SqlConnection
Dim SqlCadena As String
Dim sqlComando As SqlCommand
Try
conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa")
SqlCadena = "insert into tblanimales ( descripcion) values ( @des)"
sqlComando = New SqlCommand(SqlCadena, conn)
sqlComando.CommandType = CommandType.Text
sqlComando.Connection.Open()

sqlComando.Parameters.Add("@des", SqlDbType.VarChar, 25)
sqlComando.Parameters("@des").Value = des

sqlComando.ExecuteNonQuery()
MsgBox("Registro guardado correctamente", MsgBoxStyle.Information, "Guardado")

Catch ex As Exception
MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error")
Finally
conn.Close()
End Try
End Sub

Boton Eliminar
Sub Eliminar(ByVal des As String)
Dim conn As SqlConnection
Dim SqlCadena As String
Dim sqlComando As SqlCommand
Try
conn = New SqlConnection("Data Source=(LOCAL);Initial Catalog=bdmacondo;User ID=sa;Password=sa")
SqlCadena = "Delete from tblanimales where des = @des"
sqlComando = New SqlCommand(SqlCadena, conn)
sqlComando.CommandType = CommandType.Text
sqlComando.Connection.Open()
sqlComando.Parameters.Add("@des", SqlDbType.Int, 4)
sqlComando.Parameters("@des").Value = des
sqlComando.ExecuteNonQuery()
MsgBox("Registro eliminado correctamente", MsgBoxStyle.Information, "Eliminado")

Catch ex As Exception
MsgBox("Ocurrió un error desconocido durante el proceso", MsgBoxStyle.Information, "Error")
Finally
conn.Close()

End Try
End Sub
FAQ relacionadas

Para ver más FAQ relacionadas accede a las categorías:

Volver al árbol de categoríasVolver al árbol de categorías