¿Cómo llenar un flexgrid?

Realizo un sistema en visual basic 6.0 con una base de datos en mysql
Ya he realizado la conexión e incluso tengo ya datos en ella, mi pregunta es: ¿Cómo llenar un flexgrid con datos de una tabla de la bd?

1 Respuesta

Respuesta
1
Hi que tal como estas, aquí te recomendaría que uses el Listview se ve más elegante que el MsFlexGrid
Aquí un poco de código
Public Sub Conectar()
    Dim X As Object
    Set Cn = New ADODB.Connection
    With Cn
         .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=NOMBREDELABASEDEDATOS"
         .Open
    End With
    End Sub
Sub AccesoTabla(Rs As ADODB.Recordset, Tabla As String)
        Conectar
        Set Rs = New ADODB.Recordset
        With Rs
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockOptimistic
            .Open Tabla, Cn
        End With
    End Sub
En el Formulario
General Declaraciones
Private RsListado  as adodc.recordset
 en Form LoAD
Accesotabla(RsListado, " Escribe la consulta completa o solo puedes poner una variable donde se encuentre
todo el Select para tu listado")
Sub LlenarListview
    While RsListado.EOF = False
        Set LST = ListView1.ListItems.Add(, , RsListado!Campo1)
            LST.SubItems(1) = RsListado!Campo2
            LST.SubItems(2) = RsListado!Campo3
            LST.SubItems(3) = RsListado!Campo4
            LST.SubItems(4) = RsListado!Campo5
RsListado.MoveNext
End Sub
Ok
Dejame intentar,
gracias, saludos
Ok. Amigo, cualquier cosa estamos en contacto!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas