Autor Tema: Ayuda Con Msflexgrid (Leído 1346 veces)

gervb · « **en:** Lunes 12 de Marzo de 2007, 01:55 »

Hola a todos, estoy realizando una busqueda en un programa que consta de varios formularios y dos de ellos se encargan de realizar esta tarea, bueno el tema es asi tengo un msflexgrid y se como conectarlo a la base de datos y que me lo muestre y todo; pero lo que quiero hacer esta vez es manejar la cantidad de columnas del msflexgrid de modo que me muestre los campos que yo le ordene y no todos los de la base(utilizo access y data no ado).
Si lo entendieron y saben algo, por favor diganme como se realiza este proceso.
Gracias de antemano.

ArKaNtOs · « **Respuesta #1 en:** Lunes 12 de Marzo de 2007, 02:40 »

Pues para eso no necesitas una función especifica del msflexgrid, si ya tienes conectado el msflexgrid al control data atraves de la propiedad datasource, es simple solo realiza un query a la BD y automaticamente el msflexgrid te mostrara los valores que deseas

por ejemplo algo asi:

data1.recordsource ="SELECT campo1, campo2 FROM mitabla WHERE campo1=campo2"
data1.refresh

y en el msflexgrid se reflejara esa consulta

Mollense · « **Respuesta #2 en:** Lunes 12 de Marzo de 2007, 02:42 »

Hola gervb.-

Bueno, te cuento como lo hacía yo, vos veras después si te sirve !!

Lo único que haces con esta función es pasarle como parámetros el MSHFlexGrid donde se van a mostrar los datos y un recordset con el resultado de la consulta a tu tabla. Y como en la consulta están solamente los campos que vos seleccionás me parece que puede ser una solución.

Código: Text

 
Public Sub CargarGrid(ByRef flx1 As MSHFlexGrid, ByRef rs1 As Recordset)
 
    If rs1 Is Nothing Then Exit Sub
 
    flx1.Rows = 1
    flx1.Clear
   
    flx1.row = 0
    flx1.Col = 0
         
    On Error GoTo exitsub
    
    flx1.Cols = rs1.Fields.Count
       
    For lcol = 0 To flx1.Cols - 1
        flx1.TextMatrix(0, lcol) = rs1.Fields(lcol).Name
    Next lcol
         
    rs1.MoveFirst
 
    
    Do Until rs1.EOF
        lrow = lrow + 1
        flx1.Rows = flx1.Rows + 1
        flx1.FixedRows = 1
        flx1.row = lrow
        For lcol = 1 To flx1.Cols
            dato = rs1.Fields(lcol - 1).Value
            If (Len(dato) &#62; 0) Then
                
            Else
                dato = &#34;&#34;
            End If
            flx1.TextMatrix(lrow, lcol - 1) = dato
        Next lcol
        rs1.MoveNext
    Loop
exitsub:
End Sub
 

Salutes

SoloCodigo

Autor Tema: Ayuda Con Msflexgrid (Leído 1346 veces)

gervb

Ayuda Con Msflexgrid

ArKaNtOs

Re: Ayuda Con Msflexgrid

Mollense

Re: Ayuda Con Msflexgrid