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

256 - Cargar MsFlexGrid con ADO como conexión

Ejemplo que recorre un Recordset de tipo Ado, y va añadiendo los datos utilizando el método AddItem del FlexGrid

En el ejemplo hay una rutina lamada Cargar_MsFlexGrid con los siguientes parámetros:

Cargar_MsFlexGrid ( La_Conexión_ADO , La_Consulta_SQL, EL_Control_MsFlexGRid)

Nota: en el parámetro donde hay que pasar el Flexgrid, también se pude pasar un control MsHFlexGrid ( Microsoft Hierarchical FlexGrid)

Ejemplo

Agregar un CommandButton
indicar la consulta sql y la ruta de la base de datos en el ConnectionString que está en el FormLoad

Código fuente en el formulario

'*************************************************************************** '* Description : Llenar un MsFlexgrid con datos de una consulta usando ADO '* Controles y referencias: _ '* 1 - Un Microsoft Flexgrid o MsHFlexGrid _ 2 - Un Command1 _ 3 - La referencia a Microsoft Activex Data Objects xx '*************************************************************************** 'Variable para la conexión ADO Dim cnn As Connection Private Sub Cargar_MsFlexGrid(Conexion_ADO As Connection, _ Consulta_SQL As String, _ MsFlexGrid As Object) 'Variables para el Recordset, _ El campo de la base de datos _ El dato actual y un array para los anchos de columna Dim rst As Recordset Dim Campo As Field Dim Dato As String Dim n As Long Dim widthCol() As Long ' Nuevo recordset Set rst = New Recordset 'Deshabilita el redibujado del control _ para que la carga sea mas veloz MsFlexGrid.Redraw = False 'Abre el recordset rst.Open Consulta_SQL, Conexion_ADO 'Redimensiona el array a la cantidad de columnas ReDim widthCol(1 To rst.Fields.Count) Dato = vbNullString n = 1 'Recorre los campos de la tabla For Each Campo In rst.Fields 'almacena el ancho de los campos Dato = Dato & Campo.Name & vbTab widthCol(n) = TextWidth(Campo.Name & " ") n = n + 1 Next MsFlexGrid.FormatString = Left(Dato, Len(Dato) - 1) With MsFlexGrid .FixedCols = 0 End With 'REcorre todos los registros del recordset While Not rst.EOF n = 1 Dato = vbNullString For Each Campo In rst.Fields Dato = Dato & Campo.Value & vbTab 'si el dato NO es un valor nulo ... comprueba If Not IsNull(Campo.Value) Then ' si el ancho del dato actual es mayor _ al de su columna, entonces asigna el nuevo ancho If TextWidth(Campo.Value) > widthCol(n) Then widthCol(n) = TextWidth(Campo.Value) End If End If n = n + 1 Next 'Agrega la fila al Msflexgrid MsFlexGrid.AddItem Dato 'Mueve el recordset al siguiente registro rst.MoveNext Wend 'cierra el recordset y elimina la variable On Error Resume Next rst.Close Set rst = Nothing On Error GoTo 0 'Elimina la primer fila vacía MsFlexGrid.RemoveItem 1 'ajusta los encabezados de columna For n = 1 To MsFlexGrid.Cols MsFlexGrid.ColWidth(n - 1) = widthCol(n) Next 'Habilita nuevamente el Repintado del control MsFlexGrid.Redraw = True End Sub Private Sub Command1_Click() Call Cargar_MsFlexGrid(cnn, "Select * From Authors", MSFlexGrid1) End Sub Private Sub Form_Load() On Error GoTo ErrSub Dim ConString As String 'Cadena de conexión ( indicar la ruta de la base de datos ) ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C" & _ ":\Archivos de programa\Microsoft Visual Studio\" & _ "VB98\BIBLIO.MDB;Persist Security Info=False" Set cnn = New Connection With cnn .ConnectionString = ConString .CursorLocation = adUseClient 'Abre la conexión .Open End With Command1.Caption = " Cargar Flex Grid " Exit Sub ErrSub: MsgBox Err.Number & " " & " Error " & Err.Description, vbCritical End Sub Private Sub Form_Unload(Cancel As Integer) If Not cnn Is Nothing Then Set cnn = Nothing End If End Sub

Recursos visual basic - Enlaces relacionados

Otro ejemplo similar a este para cargar un recordset ADO

Buscar en Recursos vb