Sección de ejemplos vb.net

60 - Guardar y eliminar registros en DataGridview

Ejemplo para actualizar y guardar cambios realizados en un control DataGridview

El ejemplo tiene tres botones , uno para actualizar los cambios realizados en la grilla, otro para eliminar el registro seleccionado y otro para crear uno nuevo

Controles en un windows form

Un DataGridview
Tres controles Button ( btn_delete, btn_Update, btn_new) para eliminar , guardar y crear un nuevo registro
Cuatro button ( btn_first, btn_Previous, btn_next y btn_last) para moverse por los registros de la tabla usando los métodos MoveFirst , MoveNext etc.. del componente Bindingsource
Establecer la cadena de conexión y la instrucción sql para cargar la tabla en el datagridview

vista previa del proyecto para guardar y eliminar datos en un datagridview en vb.net

Código fuente

Option Explicit On Option Strict On ' Espacios de nombres ' ''''''''''''''''''''''''''''''''''''''''' Imports System.Data.SqlClient Public Class Form1 'BindingSource Private WithEvents bs As New BindingSource ' Adaptador de datos sql Private SqlDataAdapter As SqlDataAdapter ' Cadena de conexión Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Initial Catalog=demo_bd;" & _ "Integrated Security=true" ' flag Private bEdit As Boolean ' actualizar los cambios al salir ' '''''''''''''''''''''''''''''''''''''''' Private Sub Form1_FormClosing( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing If bEdit Then 'preguntar si se desea guardar If (MsgBox( _ "Guardar cambios ?", _ MsgBoxStyle.YesNo, _ "guardar")) = MsgBoxResult.Yes Then Actualizar(False) End If End If End Sub Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' propiedades del datagrid ' ''''''''''''''''''''''''''''''''''''' With DataGridView1 ' alternar color de filas .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite .DefaultCellStyle.BackColor = Color.Beige ' Establecer el origen de datos para el DataGridview .DataSource = bs End With ' botones ' ''''''''''''''''''''''''''''''''''''' btn_Update.Text = "Guardar cambios" btn_delete.Text = "Eliminar registro" btn_new.Text = "Nuevo" btn_first.Text = "<<" btn_Previous.Text = "<" btn_next.Text = ">" btn_last.Text = ">>" ' cagar los datos cargar_registros("Select * From alumnos Order by Apellido", DataGridView1) End Sub Private Sub cargar_registros( _ ByVal sql As String, _ ByVal dv As DataGridView) Try ' Inicializar el SqlDataAdapter indicandole el comando y el connection string SqlDataAdapter = New SqlDataAdapter(sql, cs) Dim SqlCommandBuilder As New SqlCommandBuilder(SqlDataAdapter) ' llenar el DataTable Dim dt As New DataTable() SqlDataAdapter.Fill(dt) ' Enlazar el BindingSource con el datatable anterior ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' bs.DataSource = dt With dv .Refresh() ' coloca el registro arriba de todo .FirstDisplayedScrollingRowIndex = bs.Position End With bEdit = False Catch exSql As SqlException MsgBox(exSql.Message.ToString) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub ' botón para guardar los cambios y llenar la grilla Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btn_Update.Click Actualizar() End Sub ' Eliminar el elemento actual del BindingSource y actualizar Private Sub btn_delete_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btn_delete.Click If Not bs.Current Is Nothing Then ' eliminar bs.RemoveCurrent() 'Guardar los cambios y recargar Actualizar() Else MsgBox("No hay un registro actual para eliminar", _ MsgBoxStyle.Exclamation, _ "Eliminar") End If End Sub Private Sub Actualizar(Optional ByVal bCargar As Boolean = True) ' Actualizar y guardar cambios If Not bs.DataSource Is Nothing Then SqlDataAdapter.Update(CType(bs.DataSource, DataTable)) If bCargar Then cargar_registros("Select * From alumnos Order by Apellido", DataGridView1) End If End If End Sub Private Sub btn_first_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btn_first.Click, btn_last.Click, btn_next.Click, btn_Previous.Click ' Botones para moverse por los registros ' ''''''''''''''''''''''''''''''''''''''''''''' If sender Is btn_Previous Then bs.MovePrevious() ElseIf sender Is btn_first Then bs.MoveFirst() ElseIf sender Is btn_next Then bs.MoveNext() ElseIf sender Is btn_last Then bs.MoveLast() End If End Sub Private Sub DataGridView1_CellEndEdit( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _ Handles DataGridView1.CellEndEdit bEdit = True End Sub ' nuevo registro Private Sub btn_new_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btn_new.Click bs.AddNew() End Sub End Class

Buscar en Recursos vb