Sección de códigos , trucos y ejemplos para visual basic

454 - Validar DataGrid

Simple ejemplo que utiliza el evento BeforeColUpdate, para validar los datos en un control DataGrid

El ejemplo se conecta a la base de datos Nwind.mdb del directorio de vb, y carga en el recordset 3 campos.

Luego, al intentar modificar un valor o dato en las columnas 0 y 1, si el valor ingresado contiene menos de 6 caracteres se muestra un mensaje y cancela la actualización dentro del evento colocando la variable Cancel con el valor true

Controles

Un Datagrid
La referencia a Microsoft Activex data Objects

Código fuente en el form

Option Explicit ' variables Dim cn As ADODB.Connection Dim rs As ADODB.Recordset ' BeforeColUpdate : Validar antes de Actualizar los datos de la columna 1 y columna 2 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub DataGrid1_BeforeColUpdate( _ ByVal ColIndex As Integer, _ OldValue As Variant, _ Cancel As Integer) ' Verifica si en la columna 1 ( Nombre de la compañia) _ o la columna 2 Nombre del cont. , la cantidad de caracteres es _ mayor a 6, si no cancela la atualización If ColIndex = 0 Or ColIndex = 1 Then With DataGrid1 ' Len((.Columns(xx).Value) .. contiene el valor de la celda If Len((.Columns(0).Value) < 6) Or Len((.Columns(1).Value < 6)) Then Cancel = True ' cancela MsgBox "Los datos deben contener al menos 6 caracterers." & _ "No se actualizarán los cambios", vbExclamation End If End With End If End Sub Private Sub Form_Load() 'Nueva conexión ado Set cn = New ADODB.Connection ' propiedades With cn .CursorLocation = adUseClient .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft" & _ " Visual Studio\VB98\NWIND.MDB;Persist Security " & _ "Info=False" .Open ' abre la conexión End With ' Abre el Recordset Set rs = New ADODB.Recordset rs.Open "SELECT [NombreCompañía],[NombreContacto],[CargoContacto] " & _ " FROM Proveedores", cn, adOpenStatic, adLockOptimistic 'llenar el datagrid Set DataGrid1.DataSource = rs End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Datagrid - listado de ejemplos

Buscar en Recursos vb