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

181 - Cargar un FlexGrid con Ado

Rutina de ejemplo que carga un recordset de tipo Ado en un control MsFlexGrid.

Vista del ejemplo:

Pasos :

Especificar la referencia a Microsoft Activex Data Object desde el menú Proyecto - Referencias.
Un CommandButton y Commondialog para elegir la base de datos
Un TextBox para escribir la consulta SQL
Un control Microsoft FlexGrid

Al presionar el Command1, se le envía a la rutina Cargar_FlexGrid, el path de la base de datos, la consulta SQL escrita en el control textbox, y como tercer parámetro el control FlexGrid a utilizar.

Código fuente para el formulario

Option Explicit ' \\ Declaraciones Apis ( para el manifest y los temas de windows) ' ------------------------------------------------------------------------------------------ Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub ' -------------------------------------------------------------------------------------- ' \\ -- Botón para seleccionar la base de datos ' -------------------------------------------------------------------------------------- Private Sub Command1_Click() With CommonDialog1 .FileName = vbNullString .DialogTitle = " Seleccionar base de datos MDB" .Filter = " Archivos MDB|*.MDB" ' -- Abrir el díálogo para seleccionar el archivo de base de datos .ShowOpen ' -- Comprobar que se seleccionó un archivo If .FileName = "" Then Exit Sub If text1.Text <> "" Then ' -- Se envía el path de la base de datos seleccionado , la consulta sql y el control MsFlexGrid Call Cargar_FlexGrid(.FileName, text1.Text, MSFlexGrid1) Else MsgBox " Falta establecer una consulta SQL", vbCritical End If End With End Sub ' -------------------------------------------------------------------------------------- ' \\ -- Sub para cargar los registros en la Grilla ' -------------------------------------------------------------------------------------- Private Sub Cargar_FlexGrid( _ path_Base As String, _ Consulta_SQL As String, _ FlexGrid As MSFlexGrid) On Local Error GoTo error_Handler ' -- Variables para la conexión y para el recordset ADO Dim cn As ADODB.Connection, Rst As ADODB.Recordset ' -- Variables para las filas y columnas del Flexgrid Dim Columna As Integer, Fila As Integer ' -- Matriz y variable para los anchos de columna Dim Ancho_Columna() As Single, Ancho_Campo As Single ' -- Crear y Abrir una nueva conexión Set cn = New ADODB.Connection ' -- Cadena de conexión con la ruta de la base de datos cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & path_Base & ";" & _ "Persist Security Info=False" ' -- Abre cn.Open ' -- Llena el recordset con la consulta Set Rst = cn.Execute(Consulta_SQL, , adCmdText) ' -- Configurar el Grid With FlexGrid ' -- Deshabilitar el repintado del control ( Para que la carga sea mas veloz ) .Redraw = False ' -- Seleccionar registros del Grid por Fila .SelectionMode = flexSelectionByRow ' -- Cantidad de filas inicial .Rows = 2 ' -- Modo de encabezados .FixedRows = 1 .FixedCols = 0 ' -- Cantidad de filas y columnas .Rows = 1 .Cols = Rst.Fields.Count ' -- Redimensionar el Array a la cantidad de campos de la tabla ReDim Ancho_Columna(0 To Rst.Fields.Count - 1) ' -- Recorrer los campos del recordset For Columna = 0 To Rst.Fields.Count - 1 ' -- Añade el título del campo al encabezado de columna .TextMatrix(0, Columna) = Rst.Fields(Columna).Name ' -- Guardar el ancho del campo en la matriz Ancho_Columna(Columna) = TextWidth(Rst.Fields(Columna).Name) Next Columna Fila = 1 ' -- Recorrer todos los registros del recordset Do While Not Rst.EOF .Rows = .Rows + 1 ' Añade una nueva fila For Columna = 0 To Rst.Fields.Count - 1 ' -- Combobar que el valor no es nulo If Not IsNull(Rst.Fields(Columna).Value) Then ' -- Agrega el registro en la fila y columna específica .TextMatrix(Fila, Columna) = Rst.Fields(Columna).Value ' -- Almacena el ancho Ancho_Campo = TextWidth(Rst.Fields(Columna).Value) If Ancho_Columna(Columna) < Ancho_Campo Then Ancho_Columna(Columna) = Ancho_Campo End If End If Next ' -- Siguiente registro Rst.MoveNext Fila = Fila + 1 'Incrementa la fila Loop ' -- Cierra el recordset y la conexión abierta Rst.Close cn.Close ' -- Establece los ancho de columna de la grilla For Columna = 0 To FlexGrid.Cols - 1 .ColWidth(Columna) = Ancho_Columna(Columna) + 240 Next ' -- Volver a Habilitar el repintado del Grid .Redraw = True End With ' -- Error Exit Sub error_Handler: MsgBox Err.Description, vbCritical End Sub Private Sub Form_Load() Me.Caption = " Ejemplo para cargar un Recordset ADO en un MsFlexGrid " End Sub

Descargar este ejemplo

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb