Bonjour à tous !

Je me casse la tête depuis quelques heures sur ce problème ! J'ai beau chercher et essayer des solutions mais en vain. J'ai un Datagrid dans lequel il y a un champ ischeck (avec un lien vers la bd SQL comme bit). Je veux que lorsque la personne coche la case, la valeur tombe 1 pour ce champs après avoir cliquer sur le bouton à la fin.

Votre aide est plus qu'apprécié ! Je suis vraiment coincé...

voici le code pour le datagrid :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
 Private Sub envoyer_Click(sender As Object, e As EventArgs) Handles envoyer.Click
        Dim Connexion As New SqlConnection("Data Source=SQL\SERVEUR;Initial Catalog=MYNAME;User Id=USER;Password=PASS")
        Dim combo As String = ""
        combo = ComboBox1.Text
        Try
            Connexion.Open()
 
            Dim Requete As String = ""
            Dim Requete2 As String = "SELECT ischeck FROM SuiviReception"
            Dim MonDataSet As New DataSet
            If CheckBox2.Checked Then
                Requete = "SELECT * FROM SuiviReception where NomTransporteur ='" & combo & "'"
            Else
                Requete = "SELECT * FROM SuiviReception where NomTransporteur ='" & combo & "' AND ischeck = '0' OR (ischeck is null)"
 
            End If
            Dim Commande As New SqlCommand(Requete, Connexion)
            Dim Adaptateur As New SqlDataAdapter(Commande)
            Try
                Adaptateur.Fill(MonDataSet, "SuiviReception")
 
                'DEBUT EFFACEMENT COLONNE
                MonDataSet.Tables("SuiviReception").Columns("CreeLe").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("HeureLog").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("ID").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("EstBillot").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("EstPlanche").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("Emplacement").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("Essence").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("_NombreEssieux").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("DateDouane").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("PoidsVide").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("PoidsPlein").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("TripTicket").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("Periode").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("Optimisticlockfield").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("ReferenceCueillette").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("NomTypeRemorque").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("NumeroOlympicFournisseur").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("EstSupprime").ColumnMapping = MappingType.Hidden
                MonDataSet.Tables("SuiviReception").Columns("NomTransporteur").ColumnMapping = MappingType.Hidden
                'FIN EFFACEMENT COLONNE
 
                'DEBUT CHANGEMENT DE NOM COLONNE
                MonDataSet.Tables("SuiviReception").Columns("DateLog").ColumnName = "Date"
                MonDataSet.Tables("SuiviReception").Columns("NumeroCueillette").ColumnName = "Cueillette"
                MonDataSet.Tables("SuiviReception").Columns("NomFournisseur").ColumnName = "Fournisseur"
                MonDataSet.Tables("SuiviReception").Columns("NumeroReceptionTempo").ColumnName = "# Reception Tempo"
                MonDataSet.Tables("SuiviReception").Columns("PoidsNet").ColumnName = "Poids Net"
                MonDataSet.Tables("SuiviReception").Columns("RapportMesurage").ColumnName = "Rapport"
                MonDataSet.Tables("SuiviReception").Columns("QuantiteMesure").ColumnName = "PMP"
                MonDataSet.Tables("SuiviReception").Columns("QuantiteTotal").ColumnName = "Quantite Total"
                MonDataSet.Tables("SuiviReception").Columns("ischeck").ColumnName = "Imprimer"
                'FIN CHANGEMENT DE NOM COLONNE
 
                'DEBUT LARGEUR COLONNE
                DG_DataGrid.DataSource = MonDataSet.Tables("SuiviReception")
                Dim DGTSPersonnes As New DataGridTableStyle
                DGTSPersonnes.MappingName = "SuiviReception"
                DG_DataGrid.TableStyles.Add(DGTSPersonnes)
                Try
                    DGTSPersonnes.GridColumnStyles(3).Width = 150 'Fournisseur Colonne
                    DGTSPersonnes.GridColumnStyles(4).Width = 75 'Poids Net
                    DGTSPersonnes.GridColumnStyles(5).Width = 80 'Quantite Total
 
                    'DEBUT CENTRER COLONNE
                    DGTSPersonnes.GridColumnStyles(0).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(1).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(2).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(3).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(4).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(5).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(6).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(7).Alignment = HorizontalAlignment.Center
                    DGTSPersonnes.GridColumnStyles(8).Alignment = HorizontalAlignment.Center
 
                    'FIN CENTRER COLONNE
                    DGTSPersonnes.DataGrid.Refresh()
                Catch ex As Exception
                End Try
                'FIN LARGEUR COLONNE
 
                DG_DataGrid.DataSource = MonDataSet.Tables("SuiviReception")
 
 
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 
 
 
    End Sub
Et le bouton ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Adaptateur.Update(MonDataSet, "SuiviReception")
        MsgBox("Données mises à jour")
    End Sub