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

346 - Cargar un Flexgrid con la propiedad Clip y el método Getstring de Ado

Ejemplo para poder acelerar y cargar rapidamente , registros en un flexgrid

El siguiente código fuente lo que hace es utilizar la propiedad Clip del control Microsoft Flexgrid , en conjunto con el método Getstring que poseen los recordset Ado , y de este modo acelerar bastante la carga de los registros en la grilla, comparandolo por ejemplo si se cargarian con el método AddItem o con la propiedad TextMatrix mediante un bucle, es decir en forma recursiva

En el ejemplo, al presionar un CommandButton, le pasa a la función Cargar_FlexGrid, elrecordset y la conexión Ado

Formulario

vista previa del formulario con el Flexgrid cargado

Controles

Colocar la referencia a Microsoft Activex data objects para poder acceder a ADO
Un command1
Un control FlexGrid

Nota: indicar la base de datos en la cadena de conexión ( por defecto usa la que se instala con visual basic, Biblio.mdb)

Código fuente en el formulario

Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Recibe la conexión ado y el recordset ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Llenar_FlexGrid(cn As Connection, Rs As Recordset) On Error GoTo ErrSub Screen.MousePointer = vbHourglass ' Deshabilita el repintado del Flexgrid MSFlexGrid1.Redraw = False ' Mueve el recordset al primer registro Rs.MoveFirst ' Agrega las filas necesarias en el FlexGRid MSFlexGrid1.Rows = Rs.RecordCount + 1 ' Agrega las columnas necesarias MSFlexGrid1.Cols = Rs.Fields.Count Dim c As Integer ' recorre los campos del recordset For c = 0 To Rs.Fields.Count - 1 ' Agrega los encabezados de columna MSFlexGrid1.TextMatrix(0, c) = Rs.Fields(c).Name Next ' Selecciona MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 0 MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1 MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 'Devuelve o establece el contenido de las celdas en _ una región de FlexGrid seleccionada. No está disponible en tiempo de diseño. _ ( Esta linea de código es la que carga los registros ) MSFlexGrid1.Clip = Rs.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString) MSFlexGrid1.Row = 1 ' habilita nuevamente el Redraw en el control MSFlexGrid1.Redraw = True ' Cierra y elimina las referencias ( recordset y la conexión ) Rs.Close Set Rs = Nothing cn.Close Set cn = Nothing Screen.MousePointer = vbDefault Exit Sub ErrSub: ' Mensaje de error MsgBox Err.Description, vbCritical Screen.MousePointer = vbDefault End Sub Private Sub Command1_Click() ' variables para la conexión ado y el recordset Dim cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim path_Bd As String ' path de la base de adtos ( usa la bd Biblio.mdb del directorio de visual basic ) path_Bd = "C:\Archivos de programa\Microsoft Visual Studio\VB98\biblio.mdb" ' abre la base de datos pasando la cadena de conexión cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_Bd _ & ";Persist Security Info=False" ' Abre el recordset Rs.Open "SELECT * FROM Authors", cn, adOpenStatic, adLockReadOnly ' carga el flexgrid ( pasa la conexión ado y el recordset _ con los registros a cargar ) Call Llenar_FlexGrid(cn, Rs) End Sub Private Sub Form_Load() Command1.Caption = " cargar Flexgrid " Me.Caption = " Propiedad Clip del Flexgrid y método GetString del recordset " MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 MSFlexGrid1.ColWidth(0) = 1000 MSFlexGrid1.ColWidth(1) = 5000 End Sub

Recursos Visual basic - Enlaces relacionados

Imprimir MsFlexGrid usando la propiedad Clip

Buscar en Recursos vb