Programación General > Visual Basic 6.0 e inferiores

 Cargar Datos En Un Msflexgrid1

<< < (2/2)

FAMPI_26:
:hola:  VBMC 2004 , BUENO ESTUVE PROBANDO EL CODIGO QUE ME DISTE , Y SIN EMBARGO ME SIGUEN SALIENDO ERRORES , TU CREES QUE ME PUEDES EN VIAR UN EJEMPLO YA HECHO , POR EJEMPLO : QUE PUEDA VER LA TABLA CUSTOMERS , DE LA BASE DE DATOS NORTHWIND EN UN MSFlexGrid

TE LO AGRADEZCO DE ANTEMANO   :D

 :whistling:

Brroz:
Hola.

Rellenar un flexgrid con los registros de un recordset es algo que debe de hacerse 'a pedal' recorriendo el recordset y rellenando las correspondientes filas/columnas con sus respectivos valores.

Por ejemplo, resumiendo:

--- Código: Text --- Public Sub EncherGrid(Byref flx1 as MsFlexGrid, Byref rs1 As Recordset)     If flx1 is nothing or rs1 is nothing then exit sub     flx1.Clear    flx1.Row = 0    flx1.Col = 0     rs1.MoveFirst     Dim lRow As Long, lCol As Long     flx1.Cols = rs1.Fields.Count + 1    flx1.Rows = rs1.RecordCount + 1     For lCol = 1 To flx1.Cols - 1        flx1.TextMatrix(0, lCol) = rs1.Fields(l1).Name    Next lng1        Do Until rs1.EOF        lRow = lRow + 1        flx1.TextMatrix(lRow, 0) = lRow        For lCol = 1 To flx1.Cols - 1            flx1.TextMatrix(lRow, lCol) = rs1.Fields(lCol - 1).Value        Next lCol        rs1.MoveNext    LoopEnd Sub  
Espero que os sirva.

Chao.

vbmc_2004:
Hola disculpa estuve sin
internet
te lo envio a mas tardar mañana domingo 16-01-2005 haaa otra cosa dime cual es el error que te da??


chau
y salu2
atte.

Navegación

[0] Índice de Mensajes

[*] Página Anterior