Probleme Affichage DataGridView

**RoyalC** · 01/02/2017, 20h56

Salut a tous , pour finir mon programme j'aurais besoin de votre aide, j'ai créer un form, ajouter mes textbox,combox et un DataGridView , jusque la tous va bien la gestion et recuperation des données venant d'une bdd ms access se font impeccable mais le DataGridView deconne a l'affichage.
Il m'affiche bien les infos mais elles se surligne toutes quand j'utilise le slider vertical comme sur l'image ci dessous.

Nom : Sans berlin.jpg
Affichages : 455
Taille : 176,9 Ko

Nom : Sans berlin.jpg
Affichages : 455
Taille : 176,9 Ko

j'ai beau cherché dans les propriétés mais je trouve pas. En vba y'a le mode repaint dans un userform mais je sais pas si y'a la même chose en vb 2012

Merci d'avance pour votre aide

**wallace1** · 01/02/2017, 22h32

Envoyé par RoyalC

j'ai beau cherché dans les propriétés mais je trouve pas. En vba y'a le mode repaint dans un userform mais je sais pas si y'a la même chose en vb 2012

Essayes avec la méthode Invalidate (Refresh et Update)

**RoyalC** · 02/02/2017, 09h21

Merci pour ton aide , j'ai bien été lire les 3 méthodes mais pas moyen de la mettre en oeuvre.
J'ai essayé avec le me.update() mais je dois mal le placé car ca ne fait rien de plus

Si tu pouvez m’éclairer , je place mon code de mon form MembreInfo.

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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
Imports System.Data.OleDb
Imports System.IO
 
Public Class InformationDesMembres
    Private Sub AddTouristSite_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2
        Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2
        count()
        getMembreID()
        getrecords()
    End Sub
    Sub count()
        ConnDB()
        Dim sql As String = "select COUNT (*) FROM Membre_Berlin "
        Dim cmd As New OleDbCommand(sql, conn)
        dr = cmd.ExecuteReader()
        While (dr.Read())
            ibltotal.Text = (dr(0).ToString())
        End While
    End Sub
    Private Sub getMembreID()
        Try
            Dim MembreID As New Random
            Dim numbers As Integer = MembreID.Next(1, 102200)
            Dim digitss As String = numbers.ToString("00000")
            txtMembreID.Text = digitss
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Sub clear()
        txtNom.Text = ""
        txtPrenom.Text = ""
        CBregiment.SelectedIndex = -1
        txtContingent.Text = ""
        cbGrade.SelectedIndex = -1
        txtEntreele.Text = ""
        txtsortiele.Text = ""
        txtMail.Text = ""
        TxtVille.Text = ""
        txtCp.Text = ""
        txtprofession.Text = ""
        TxtFonction.Text = ""
        PictureBox1.Image = BackgroundImage
 
    End Sub
    Private Sub getrecords()
        Try
            sqL = "SELECT  * FROM Membre_Berlin "
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            dgw.Rows.Clear()
            Do While dr.Read = True
                dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6), dr(7), dr(8), dr(9), dr(10), dr(11), dr(12))
            Loop
        Catch ex As Exception
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub
    Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
        Me.Close()
    End Sub
    Private Sub btnupload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupload.Click
        Dim OpenFile As New OpenFileDialog()
        Try
            With OpenFile
                .FileName = ""
                .Title = "Envoyez Une Photo Du Membre..."
                .Filter = "Image file (*.jpg)|*.jpg|(*.png)|*.png|(*.jpeg)|*.jpeg|(*.gif)|*.gif| All Files (*.*)|*.*"
 
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    Me.PictureBox1.Image = System.Drawing.Bitmap.FromFile(.FileName)
                Else
                End If
            End With
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
    Private Sub ValidationMembre()
        Try
            sqL = "SELECT MembreNom FROM Membre_Berlin WHERE  MembreNom = '" & Trim(txtNom.Text) & "' AND MembrePrenom = '" & Trim(txtPrenom.Text) & "' AND MembreRegiment = '" & Trim(CBregiment.Text) & "'"
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            If dr.HasRows Then
                MsgBox("Le Membre Existe Déjà Dans la Base de Donnée")
            Else
                AddMembreInfo()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub
    Private Sub AddMembreInfo()
        If Len(Trim(txtContingent.Text)) = 0 Then
            MessageBox.Show("Merci de Renseigner Le Champ Contingent", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtContingent.Focus()
        ElseIf Len(Trim(txtNom.Text)) = 0 Then
            MessageBox.Show("Merci de Renseigner Le Champ Nom", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtNom.Focus()
        ElseIf Len(Trim(txtPrenom.Text)) = 0 Then
            MessageBox.Show("Merci de Renseigner Le Champ Prénom", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtPrenom.Focus()
        ElseIf Len(Trim(CBregiment.Text)) = 0 Then
            MessageBox.Show("Merci de Renseigner Le Champ Régiment", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            CBregiment.Focus()
            Exit Sub
        End If
 
        Try
            ConnDB()
            Dim cmd As New OleDbCommand("INSERT INTO Membre_Berlin VALUES(@MembreID,@MembreNom,@MembrePrenom,@MembreRegiment,@MembreContingent,@MembreGrade,@MembreEntreeLe,@MembreSortieLE,@mail,@ville,@cp,@profession,@fonction,@photo)", conn)
            cmd.Parameters.AddWithValue("@MembreID", txtMembreID.Text)
            cmd.Parameters.AddWithValue("@MembreNom", txtNom.Text)
            cmd.Parameters.AddWithValue("@MembrePrenom", txtPrenom.Text)
            cmd.Parameters.AddWithValue("@MembreRegiment", CBregiment.Text)
            cmd.Parameters.AddWithValue("@MembreContingent", txtContingent.Text)
            cmd.Parameters.AddWithValue("@MembreGrade", cbGrade.Text)
            cmd.Parameters.AddWithValue("@MembreEntreeLe", txtEntreele.Text)
            cmd.Parameters.AddWithValue("@MembreSortieLE", txtsortiele.Text)
            cmd.Parameters.AddWithValue("@Mail", txtMail.Text)
            cmd.Parameters.AddWithValue("@Ville", TxtVille.Text)
            cmd.Parameters.AddWithValue("@CP", txtCp.Text)
            cmd.Parameters.AddWithValue("@Profession", txtprofession.Text)
            cmd.Parameters.AddWithValue("@fonction", TxtFonction.Text)
 
 
            Dim ms As New MemoryStream()
            PictureBox1.Image.Save(ms, Imaging.ImageFormat.Jpeg)
            Dim data As Byte() = ms.GetBuffer()
            Dim p As New OleDbParameter("@photo", OleDbType.Binary)
            p.Value = data
            cmd.Parameters.Add(p)
            cmd.ExecuteNonQuery()
            MessageBox.Show(" Les Informations Ont été Enregistré avec Succés", "Registration Report", MessageBoxButtons.OK)
            getrecords()
            count()
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        'AddMembreInfo()
        ValidationMembre()
        getrecords()
    End Sub
    Private Sub Btnrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnrefresh.Click
        clear()
        getrecords()
        getMembreID()
    End Sub
    Private Sub Del_Membre()
        Try
            sqL = "DELETE * FROM Membre_Berlin WHERE MembreID ='" & Trim(txtMembreID.Text) & "'"
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub
    Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        If MsgBox("Êtes Vous Sur de Vouloir éffacer Le Membre ?", MsgBoxStyle.YesNo, "Validation") = MsgBoxResult.Yes Then
            Del_Membre()
            getrecords()
            clear()
        End If
    End Sub
    Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
        Try
            sqL = "UPDATE Membre_Berlin SET MembreNom = '" & txtNom.Text & "', MembrePrenom = '" & txtPrenom.Text & "',MembreRegiment = '" & CBregiment.Text & "', MembreContingent = '" & txtContingent.Text & "', MembreGrade = '" & cbGrade.Text & "', MembreEntreeLe = '" & txtEntreele.Text & "', MembreSortieLE = '" & txtsortiele.Text & "', Mail = '" & txtMail.Text & "', Ville = '" & TxtVille.Text & "', CP = '" & txtCp.Text & "', Profession = '" & txtprofession.Text & "', fonction = '" & TxtFonction.Text & "', photo = @d1 WHERE MembreID = '" & txtMembreID.Text & "'"
 
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            Dim i As Integer
            SetImg()
            i = cmd.ExecuteNonQuery
            If i > 0 Then
                MsgBox("Le Membre a été Mis à Jours Avec Succés", MsgBoxStyle.Information, "Mise à Jours Des Informations Du Membre")
                getrecords()
            Else
                MsgBox("Impossible De Mettre à Jours Le Membre", MsgBoxStyle.Information, "Mise à Jours Des Informations Du Membre")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
        getrecords()
 
    End Sub
    Private Sub BindToText()
        With dgw
            txtMembreID.Text = .CurrentRow.Cells(0).Value
        End With
    End Sub
    Private Sub dgw_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgw.CellClick
        BindToText()
    End Sub
    Sub SetImg()
        Dim ms As New MemoryStream()
        Dim bmpImage As New Bitmap(PictureBox1.Image)
        bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
 
        Dim data As Byte() = ms.GetBuffer()
        Dim p As New OleDbParameter("@d1", OleDbType.Binary)
        p.Value = data
        cmd.Parameters.Add(p)
    End Sub
    Private Sub MembrePix()
        Try
            ConnDB()
            Dim arrImage() As Byte
            Dim myMS As New IO.MemoryStream
            Dim da As New OleDbDataAdapter(("select * from Membre_Berlin where MembreID ='" & Trim(txtMembreID.Text) & "'"), conn)
 
            Dim dt As New DataTable
            da.Fill(dt)
            If dt.Rows.Count > 0 Then
                If Not IsDBNull(dt.Rows(0).Item("photo")) Then
                    arrImage = dt.Rows(0).Item("photo")
                    For Each ar As Byte In arrImage
                        myMS.WriteByte(ar)
                    Next
                    Me.PictureBox1.Image = System.Drawing.Image.FromStream(myMS)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try
    End Sub
    Private Sub txtMembreID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMembreID.TextChanged
        Try
            ConnDB()
            Dim da As New OleDbDataAdapter(("select * from Membre_Berlin where MembreID ='" & Trim(txtMembreID.Text) & "'"), conn)
            Dim dt As New DataTable
            da.Fill(dt)
            If dt.Rows.Count > 0 Then
                Me.txtNom.Text = dt.Rows(0).Item(1) & ""
                Me.txtPrenom.Text = dt.Rows(0).Item(2) & ""
                Me.CBregiment.Text = dt.Rows(0).Item(3) & ""
                Me.txtContingent.Text = dt.Rows(0).Item(4) & ""
                Me.cbGrade.Text = dt.Rows(0).Item(5) & ""
                Me.txtEntreele.Text = dt.Rows(0).Item(6) & ""
                Me.txtsortiele.Text = dt.Rows(0).Item(7) & ""
                Me.txtMail.Text = dt.Rows(0).Item(8) & ""
                Me.TxtVille.Text = dt.Rows(0).Item(9) & ""
                Me.txtCp.Text = dt.Rows(0).Item(10) & ""
                Me.txtprofession.Text = dt.Rows(0).Item(11) & ""
                Me.TxtFonction.Text = dt.Rows(0).Item(12) & ""
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        MembrePix()
    End Sub
 
 
End Class

Merci d'avance.

**RoyalC** · 04/02/2017, 11h34

Résolu en faite ca venait juste des propriétés du fond des cellules qui etaient mal programmé, couleur du fond des cellules transparente alors qu'elle devait etre white !!!
Merci pour votre aide.

Probleme Affichage DataGridView [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager