vb6 - remplir une msFlexGrid avec une BDD

Question

Bonjour,

le principale est dans le titre..

j'aimerai pouvoir remplis une MsFlexGrid à partir d'une base de donnée..

(je veux simplement afficher les données de ma BDD dans une feuille VB)

merci

KenouiK · Answer

Ma Solution : dans le Form_Load

Dim SQL As String
    Dim Requete As Recordset
    Dim vrai As Boolean
    Dim x As String
    
    SQL = "SELECT Num_Moniteur, Nom_Moniteur, Prenom_Moniteur, "
    SQL = SQL & "tel_Moniteur, Adresse_Moniteur, "
    SQL = SQL & "Code_Postal_Moniteur, Ville_Moniteur "
    SQL = SQL & "FROM Moniteur "
    SQL = SQL & "Order by Nom_Moniteur asc"
    
    Set Requete = CapArmor.OpenRecordset(SQL)
        If Not Requete.BOF Then
        Requete.MoveFirst
        vrai = True
        x = 1
    
        While vrai = True
            If Not Requete.EOF Then
                msfGrille.Rows = x + 1
                msfGrille.Row = x
                For i = 0 To 6
                    msfGrille.Col = i
                    msfGrille = Requete.Fields(i)
                Next
                
                Requete.MoveNext
                x = x + 1
                vrai = True
            Else
                vrai = False
            End If
        Wend
    Else
        msfGrille.Rows = 2
        msfGrille.Row = 1
        For i = 0 To 6
            msfGrille.Col = i
            msfGrille = ""
        Next
        msfGrille.Col = 1
        msfGrille = "Pas d'enregistrement"
    End If

Vb6 - remplir une msFlexGrid avec une BDD

1 réponse

Votre réponse

Discussions similaires

Newsletters