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

211 - Obtener el valor de una celda de un DataGrid

<Volver> - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Ejemplo simple para recuperar el valor de la celda seleccionada de un control Datagrid

El valor de la celda se visualiza en el caption del formulario, consultando la propiedad Col , Text y Row del DataGrid

vista del datagrid

Se necesita colocar un DataGrid1

Código fuente en un formulario:

Option Explicit Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 'Muestra en el caption del fomulario _ el valor de la celda seleccionada Me.Caption = DataGrid1.Text & " Celda: " & CStr(DataGrid1.Row) & _ " Columna: " & CStr(DataGrid1.Col) End Sub Private Sub Form_Load() Dim bd As String 'Path de la base de datos bd = App.Path & "\BIBLIO.MDB" 'Cadena de conexión Adodc1.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & bd & ";" 'Cadena SQL Adodc1.RecordSource = "SELECT * FROM Authors" 'Carga el Recordset en el datagrid Set DataGrid1.DataSource = Adodc1 End Sub

Ejemplo 2

Ejemplo para obtener el valor de las celdas del Datagrid pero accediéndolas en un bucle anidado. Es decir en el bucle principal se recorren todas las filas, y en el otro las columnas. Dentro del ForNext que recorre las columnas, se obtiene el valor de la celda mediante la colección CellValue del objeto Columns del Grid.

Nota. El resultado se imprime y muestra en la ventana Inmediato del IDE de Visual basic.

Código fuente ( Agregar al Form un DataGrid, un botón y la referencia de ADO )

Option Explicit ' \\ -- Recorrer datos de un DataGrid en un bucle ' \\ -- Autor : Luciano Lodola -- www.recursosvisualbasic.com.ar ' - -------------------------------------------------------------------------------- ' \\ -- Variables para la conexión Private rs As ADODB.Recordset Private cn As ADODB.Recordset ' ------------------------------------------------------------------------------- ' \\ -- Botón que recorre el GRID ' ------------------------------------------------------------------------------- Private Sub Command1_Click() Dim i As Long ' -- Fila Dim j As Long ' -- Columna Dim sValue As String ' -- Valor de la celda Dim sLine As String ' -- Valor de la linea ( La fila completa ) Screen.MousePointer = vbHourglass With DataGrid1 ' -- recorrer todas los registros del GRID For i = 0 To .ApproxCount - 1 ' -- Recorrer las columnas For j = 0 To .Columns.Count - 1 ' -- Obtener el valor de la celda actual If Not IsNull(.Columns(j).CellValue(.GetBookmark(i))) Then sValue = CStr(.Columns(j).CellValue(.GetBookmark(i))) Else sValue = "" End If ' -- Almacenar los datos de la fila sLine = sLine & sValue & ";" Next ' -- Imprimir resultado Debug.Print sLine sValue = "" sLine = "" Next End With Screen.MousePointer = vbDefault End Sub ' ------------------------------------------------------------------------------- ' \\ -- Inicio ' ------------------------------------------------------------------------------- Private Sub Form_Load() Dim bd As String ' -- Ruta de la base de datos bd = "C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB" ' -- Crear conexión Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & bd & ";" cn.CursorLocation = adUseClient ' -- Ejecutar comando SQL ( seleccionar las primeras 100 filas ) Set rs = cn.Execute("SELECT Top 150 * FROM Authors") ' -- Enlazar los datos al GRID Set DataGrid1.DataSource = rs End Sub ' ------------------------------------------------------------------------------- ' \\ -- Fin ' ------------------------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) ' -- Quitar conexión al Grid Set DataGrid1.DataSource = Nothing ' -- Descargar recordset If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If ' -- Descargar conexión If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End Sub

Recursos vb - Enlaces relacionados

Recursos .NET - Enlaces relacionados

DatagridView

Buscar en Recursos vb