MSHFLEXGRID et ADO

Question

Vous qui savez un petit coup de main SVP :
Voilà le code 
Private Sub Form_Load()
    Dim Ct As New ADODB.Connection
    Dim RC As New ADODB.Recordset
    Set Ct = New ADODB.Connection
    Ct.Provider = "Microsoft.Jet.Oledb.4.0"
    Ct.ConnectionString = "d:\data\base.mdb"
    Ct.Open
    
    Set RC = New ADODB.Recordset
    RC.Open "select * from CLI where Gr = 3", Ct

""""""" j'ai mis sur la feuille un MSHFLEXGRID au nom de MSHFLEXGRID1"      
    
End Sub

Comment puis-je vois les enregistrement sur mon MSHFLEXGRID (j'arrive à en voir qu'un seul) j'ai essayé : MSHFLEXGRID1.DATASOURCE = RC

Ou encore :

MSHFLEXGRID1.DATASOURCE = RC

Bref je ne sais plus.... merci de me débloquer ou de m'indiquer les erreurs éventuelles afin d'avancer. Merci

koagnium · Answer

Dim sConnect As String
    Dim sSQL As String
    Dim dfwConn As ADODB.Connection
    Dim i As Integer 

  ' définir les chaînes
    sConnect = "Provider=MSDASQL.1;Extended Properties='DRIVER=SQL Server;SERVER=HERVE;UID=sa;PWD=bsplinks;APP=Visual Basic;WSID=HERVE;DATABASE=AIRExport'"
    sSQL = "select top 10 Code_Client,Nom_Client,NumeroCompte_Client,Adresse_Client,Telephone_Client,Fax_Client,Email_Client from Client Order by Nom_Client"

    ' ouvrir la connexion
    Set dfwConn = New Connection
    dfwConn.Open sConnect

    ' créer un jeu d'enregistrements à partir de la collection fournie
    Set datPrimaryRS = New Recordset
    datPrimaryRS.CursorLocation = adUseClient
    datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly

    Set MSHFlexGrid1.DataSource = datPrimaryRS

    With MSHFlexGrid1

        .Redraw = False
        ' définir les largeurs des colonnes de la grille
        .ColWidth(0) = -1
        .ColWidth(1) = -1
        .ColWidth(2) = -1
        .ColWidth(3) = -1
        .ColWidth(4) = -1
        .ColWidth(5) = -1
        .ColWidth(6) = -1

        ' définir le style de la grille
        .AllowBigSelection = True
        .FillStyle = flexFillRepeat

        ' mettre l'en-tête en gras
        .Row = 0
        .Col = 0
        .RowSel = .FixedRows - 1
        .ColSel = .Cols - 1
        .CellFontBold = True

        ' estomper les autres colonnes
        For i = .FixedCols To .Cols() - 1 Step 2
            .Col = i
            .Row = .FixedRows
            .RowSel = .Rows - 1
            .CellBackColor = &HC0C0C0   ' gris clair
        Next i

        .AllowBigSelection = False
        .FillStyle = flexFillSingle
        .Redraw = True

    End With

 8-)

MSHFLEXGRID et ADO

1 réponse

Discussions similaires