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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

110 - Ejemplo para copiar datos de un DataGrid al portapapeles

Ejemplo que al hacer click en una columna del DataGrid, se recorre mediante un bucle dicha columna y se copian los datos al clipboard

El evento del Datagrid que se dispara al hacer un click se llama HeadClick. Este tiene un parámetro llamado ColIndex que devuelve el índice de la columna del Data.

Para recorrer todos las filas, usamos la propiedad ApproxCount del datagrid, que nos devuelve la cantidad de rows que contiene el Datagrid. Luego con el método cellValue obtenemos los datos

Para el ejemplo colocar un control Datagrid llamado Datagrid1. Luego desde el menú Referencias de vb, checkear la referencia Microsoft Activex Data Objects para poder usar Ado

Por último colocar en la carpeta del programa, una base de datos cualquiera con una tabla llamada Tabla1 y llenarle algunos datos.

Código fuente en el form

'* Controles : Colocar un Datagrid y la referencia a ADO '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Variable para el Recordset Dim rec As Recordset 'Variable de Objeto para la conexión ADO Dim db As Connection Private Sub Form_Load() 'Creamos el objeto conexión Set db = New Connection 'Cursor db.CursorLocation = adUseClient 'Le pasamos la cadena de conexión y abrimos la base de datos ( cambiar la ruta) db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bd1.mdb;" 'Crea un recordset Set rec = New Recordset 'Llenamos el recordset con la consulta rec.Open "select * from tabla1", db, adOpenStatic, adLockOptimistic 'Llenamos el Datagrid con los datos del recordset anterior Set DataGrid1.DataSource = rec Set db = Nothing End Sub Private Sub Datagrid1_HeadClick(ByVal ColIndex As Integer) Dim Datos As String 'Recorremos todos los datos de la columna en la que hicimos click For i = 0 To DataGrid1.ApproxCount - 1 Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue _ (DataGrid1.GetBookmark(i)) & vbNewLine) DoEvents Next Clipboard.Clear 'Copiamos los datos del Datagrid al Clipboard Clipboard.SetText Datos End Sub

Este otro ejemplo es similar al anterior, donde se recorren las filas del datagrid y se suman los valores de una columna indicada

Descargar

Método CellValue

( Descripción de la ayuda de visual basic )

Devuelve el valor interno de una columna para una fila especificada de un control DataGrid. ( No acepta argumentos con nombres.)

Sintaxis

objeto.CellValue marcador

La sintaxis del método CellValue consta de las siguientes partes:

Parte Descripción

objeto :Una expresión de objeto que da como resultado un objeto de la lista
marcador Requerido. Une xpresión de cadena que contiene los datos sin formato almacenados en una celda seleccionada del control DataGrid.

Comentarios

Cuando se usa el método CellValue, utilice la colección Columns para especificar la columna del control DataGrid y establecer la parte marcador a una fila determinada.

El uso del método CellValue devuelve el mismo valor que el valor de la propiedad Value del objeto Column actual, excepto en que puede indicar una fila específica del control DataGrid.

El uso del método CellValue para extraer información de una celda no afecta a la selección actual.

Ejemplo

Este ejemplo recupera todos los valores de una columna dada del intervalo de filas seleccionadas y los carga en una matriz para su posterior uso.

Sub Command1_Click ()
   Dim I
   ReDim CalcArray (0 to DataGrid1.SelBookmarks.Count - 1)
   For I = 0 to DataGrid1.SelBookmarks.Count -1
   ' Pone el valor de la fila actual de la matriz de filas seleccionada
   ' en la celda correspondiente de CalcArray.
      CalcArray(I) = _
       DataGrid1.Columns(1).CellValue(DataGrid1.SelBookmarks(I))
   Next I
End Sub

Buscar en Recursos vb