Ingeniero

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 , guardary 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
 
 
[pic]
 
Código fuente
Texto planoImprimir
1. Option Explicit On  2. Option Strict On  
3.   
4. ' Espacios de nombres  
5. ' '''''''''''''''''''''''''''''''''''''''''  
6. Imports System.Data.SqlClient  
7.   
8. Public Class Form1  
9.   
10.     'BindingSource  
11.     Private WithEvents bs As New BindingSource  
12.   
13.     ' Adaptador de datos sql  
14.     Private SqlDataAdapter As SqlDataAdapter  15.   
16.     ' Cadena de conexión  
17.     Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _  
18.                                  "Initial Catalog=demo_bd;" & _  
19.                                  "Integrated Security=true"  
20.   
21.     ' flag  
22.     Private bEdit As Boolean  
23.   
24.   
25.     ' actualizar los cambios al salir  26.     ' ''''''''''''''''''''''''''''''''''''''''  
27.     Private Sub Form1_FormClosing( _  
28.         ByVal sender As Object, _  
29.         ByVal e As System.Windows.Forms.FormClosingEventArgs) _  
30.             Handles Me.FormClosing  
31.   
32.         If bEdit Then  
33.             'preguntar si se desea guardar  
34.             If (MsgBox( _  
35.                    "Guardar cambios ?", _  
36.                      MsgBoxStyle.YesNo, _  
37.                     "guardar")) = MsgBoxResult.Yes Then  
38.   
39.                 Actualizar(False)  
40.             End If  
41.         End If  
42.     End Sub  
43.   
44.     Private Sub Form1_Load( _  
45.         ByVal sender As System.Object, _  
46.        ByVal e As System.EventArgs) Handles MyBase.Load  
47.   
48.         ' propiedades del datagrid  
49.         ' '''''''''''''''''''''''''''''''''''''  
50.         With DataGridView1  
51.             ' alternar color de filas  
52.             .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite  
53.             .DefaultCellStyle.BackColor = Color.Beige  54.             ' Establecer el origen de datos para el DataGridview  
55.             .DataSource = bs  
56.         End With  
57.   
58.         ' botones  
59.         ' '''''''''''''''''''''''''''''''''''''  
60.         btn_Update.Text = "Guardar cambios"  
61.         btn_delete.Text = "Eliminar registro"  
62.         btn_new.Text = "Nuevo"  
63.   
64.        btn_first.Text = ""  
68.   
69.         ' cagar los datos  
70.         cargar_registros("Select * From alumnos Order by Apellido", DataGridView1)  
71.   
72.     End Sub  
73.   
74.     Private Sub cargar_registros( _  
75.         ByVal sql As String, _  
76.         ByVal dv As DataGridView)  
77.   
78.         Try  
79.            ' Inicializar el SqlDataAdapter indicandole el comando y el connection string  
80.             SqlDataAdapter = New SqlDataAdapter(sql, cs)  
81.   
82.             Dim SqlCommandBuilder As New SqlCommandBuilder(SqlDataAdapter)  
83.   
84.             ' llenar el DataTable  
85.             Dim dt As New DataTable()  
86.             SqlDataAdapter.Fill(dt)  
87.   
88....