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

181 - Cargar un FlexGrid con Ado

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

Vista del ejemplo:

vista del formulario de ejemplo con los controles necesarios para cargar una tabla en un control FlexGrid con los datos

Pasos :

Especificar la referencia a Microsoft Activex Data Object desde el menú Proyecto - referencias.
Un Text1 , un Command1 y Commondialog1 para elegir la base de datos
Un Text2 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 Text2, y como tercer parámetro el control FlexGrid a utilizar.

Código fuente para el formulario

Option Explicit ' Command para Seleccionar la bd '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar base de datos " .Filter = " Archivos MDB|*.MDB" 'Abre el díálogo .ShowOpen If .FileName = "" Then Exit Sub Text1 = .FileName If Text2 <> "" Then ' Se envía el path de la base de datos seleccionado , _ la consulta sql y el control MsFlexGrid Call Cargar_FlexGrid(.FileName, Text2, MSFlexGrid1) Else MsgBox " Falta Especicar una consulta SQL en el Text2", vbCritical End If End With End Sub 'Sub que carga los registros en la Grilla '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Cargar_FlexGrid( _ path_Base As String, _ Consulta_SQL As String, _ FlexGrid As MSFlexGrid) On Local Error GoTo ErrSub '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 ' Abre 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) FlexGrid.Rows = 2 FlexGrid.FixedRows = 1 FlexGrid.FixedCols = 0 'Cantidad de filas y columnas FlexGrid.Rows = 1 FlexGrid.Cols = Rst.Fields.Count 'Redimensiona el Array a la cantidad de campos de la tabla ReDim Ancho_Columna(0 To Rst.Fields.Count - 1) 'Recorre los campos For Columna = 0 To Rst.Fields.Count - 1 'Añade el título del campo al encabezado de columna FlexGrid.TextMatrix(0, Columna) = Rst.Fields(Columna).Name 'Guarda el ancho del campo en la matriz Ancho_Columna(Columna) = TextWidth(Rst.Fields(Columna).Name) Next Columna Fila = 1 'Recorre todos los registros del recordset Do While Not Rst.EOF FlexGrid.Rows = FlexGrid.Rows + 1 ' Añade una nueva fila For Columna = 0 To Rst.Fields.Count - 1 'Si el valor no es nulo If Not IsNull(Rst.Fields(Columna).Value) Then 'Agrega el registro en la fila y columna específica FlexGrid.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 FlexGrid.ColWidth(Columna) = Ancho_Columna(Columna) + 240 Next Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical End Sub Private Sub Form_Load() Text1 = "" Text2 = "" Me.Caption = " Ejemplo para cargar un Recordset ADO en un MsFlexGrid " End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb