Enregistrer/charger une DataGridView

**juliendu67117** · 23/10/2017, 17h06

Bonjour,

Je suis entrain de créer un logiciel en VB pour rentrer des rapports dans un tableau.
J'aimerai savoir si il est possible d'enregistrer et de charger une DataGridView en fichier .txt ou excel sans passer par une base de donnée MYSQL car j'aimerai utiliser mon logiciel sur plusieurs ordinateurs et j'aimerai éviter de télécharger MYSQL sur chaques ordinateurs.

Merci d'avance pour vos réponse

Julien

**ZenZiTone** · 23/10/2017, 17h16

Quel est le but de l'enregistrement? Mettre à disposition les données sur d'autres support (Excel par exemple)? Ou juste faire du stockage entre sessions de travail?

**juliendu67117** · 23/10/2017, 17h28

Merci de ta réponse

C'est juste pour faire du stockage

**ZenZiTone** · 23/10/2017, 17h39

Dans ce cas je te conseilles d'utiliser la sérialisation XML. Malgré le terme barbare (j'ai toujours trouvé que le nom faisait peur

), c'est un moyen simple de persister un objet.

Je te laisse suivre le lien pour plus d'informations, mais grosso modo, tu as un une liste d'objets (qui représente les données de ton datagridview) que tu stock dans un fichier XML : on appelle ça la sérialisation. Ensuite, tu pourras reconstituer tes objets depuis ce fichier : on appelle ça la désérialisation.

**juliendu67117** · 23/10/2017, 18h31

Encore merci pour ton aide

Je viens d'essayer la serialisation mais j'ai un message d'erreur sur ma DataGridView

'System.Windows.Forms.DataGridView' dans l'assembly 'System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' n'est pas marqué comme sérialisable.

Mon code

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
 Private Sub Ajouter_rapport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter_rapport.Click
 
        Try
 
            Dim r As New Rapport_au()
            r.Daate = CStr(DateTimePicker1.Text)
            r.Nom = CStr(ComboBox1.Text)
            r.Poste = CStr(ComboBox2.Text)
            r.Rapport = CStr(RichTextBox1.Text)
            ListeRapport.Add(r)
 
            Call Afficher()
 
            ''vider les control de saisie
            ComboBox1.Text = ""
            ComboBox2.Text = ""
            RichTextBox1.Clear()
 
        Catch ex As Exception
            MsgBox("Erreur Ajout")
 
 
        End Try
    End Sub
 
    Sub Afficher()
        Try
            Dim i As Integer = 0
            DataGridView1.Rows.Clear()
            For Each s As Rapport_au In ListeRapport
                DataGridView1.Rows.Add()
                With DataGridView1.Rows(i)
                    .Cells(0).Value = s.Daate
                    .Cells(1).Value = s.Nom
                    .Cells(2).Value = s.Poste
                    .Cells(3).Value = s.Rapport
 
                End With
                i += 1
            Next
 
 
        Catch ex As Exception
            MsgBox("Erreur affichage")
        End Try
    End Sub
 
    Private Sub SupprimerRapport() Handles Supprimer_rapport.Click
 
        Try
            Dim resultat As String
            Dim nom As String = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
            For Each s As Rapport_au In ListeRapport
                If nom.Equals(s.Daate) Then
                    resultat = InputBox("Entrer Mot de passe pour supprimer")
                    If resultat = "Test" Then
                        ListeRapport.Remove(s)
                    Else
                        MsgBox("Mot de passe incorrect")
                    End If
 
                    Call Afficher()
                    Exit Sub ' quitter procedure
                End If
            Next
 
 
        Catch ex As Exception
            MsgBox("Erreur Supression")
 
        End Try
    End Sub
 
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs As FileStream
        fs = New FileStream("serialisation.txt", FileMode.Append, FileAccess.Write)
        Dim pp As New BinaryFormatter
        pp.Serialize(fs, DataGridView1)
        fs.Close()
 
 
    End Sub