MSHFlexgrid et Adodc

Question

J'ai sur un forms VB6 un controle ADODC et une MSHFlexgrid. L'adodc pointe vers une base de donn&#233;e access et affiche une source dans une mshflexgrid. Dans cette flexgrid j'ai un boolean ou j'affiche une image case &#224; cocher ou pas. Ce booleen est modifiable par l'user. Celui ci clic sur mon image pour la cocher ou pas. Mon probleme est que je veux mettre &#224; jour ma base de donn&#233;e en fonction de la valeur de la case. J'arrive &#224; mettre &#224; true ou false dans ma flexgrid mais j'arrive pas &#224; stocker cette valeur dans ma BD. Une aide serait la bien venue .

jpleroisse · Answer

Bonjour,
Un contr&#244;le MSHFLEXGRID ne permet pas de mettre les donn&#233;es &#224; jour, pour cel&#224;, tu dois utiliser un contr&#244;le DataGrid

jpleroisse

falstuff · Answer

Merci de ta r&#233;ponse jpleroisse, j'ai trouv&#233; une solution. en effet le mshflexgrid permet pas une MAJ des donn&#233;es, mais on peut modifier les valeurs dans la BD en d&#233;clarant une variable adodb
Pour ceux que ca interresse voici une solution (adapt&#233; &#224; mon applic) 

   Dim cnn1 As ADODB.Connection
    Set cnn1 = New ADODB.Connection


    If MSHFlexGrid1.Col = NumColSelect And MSHFlexGrid1.MouseRow > 0 Then
        Strcon = ServeurBD & ";Jet OLEDB:Database Password=" + "" + ";Data Source='" + Myrecord.CheminBD + "" + Myrecord.NomFichier + "'"
        cnn1.Open Strcon
        If MSHFlexGrid1.CellPicture = imgCaseCochee.Picture Then
            AfficheCelluleAvecCase MSHFlexGrid1.Row, NumColSelect, False
            MSHFlexGrid1.Col = 0            SQL "UPDATE Foyer SET Foyer.SelectMail 0 WHERE Foyer.codeF=" & MSHFlexGrid1
        Else
            AfficheCelluleAvecCase MSHFlexGrid1.Row, NumColSelect, True
            MSHFlexGrid1.Col = 0            SQL "UPDATE Foyer SET Foyer.SelectMail -1 WHERE Foyer.codeF=" & MSHFlexGrid1
        End If
        cnn1.Execute SQL
        cnn1.Close

MSHFlexgrid et Adodc

2 réponses

Discussions similaires