Discussion :

[jlm57]

Bonjour,

J'ai un dataset qui fonctionne.

J'aimerai le sauvegarder par une sérialisation binaire.
Apparemment la sérialisation fonctionne car je retrouve le fichier sur mon disque dur.

Par contre après la désérialisation, le dataset est vide car lorsque je veux accéder aux données en visualisant le contenu par "MessageBox.Show(ds.Tables("MaTable").Rows.Count)", j'obtient 0 et quand je demande "MessageBox.Show(ds.Tables("MaTable").Rows(0)("Nom"))", le programme m'affiche "Aucune ligne à la position 0".

Voici le code complet :

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
 
------------------------ Sérialisation --------------------------
 
Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
 
Dim fmtServices As BinaryFormatter
fmtServices = New BinaryFormatter()
 
Dim writeDs As Stream = New FileStream("D:\MonFichier.bin", FileMode.OpenOrCreate)
fmtServices.Serialize(writeDs, DatabaseDataSet)
writeDs.Close()
 
End Sub
 
----------------------- Désérialisation --------------------
 
Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
 
Dim fmtServices As New BinaryFormatter
 
Dim readDs As Stream = New FileStream("D:\MonFichier.bin", FileMode.Open)
DatabaseDataSet = fmtServices.Deserialize(readDs)
readDs.Close()
 
MessageBox.Show(ds.Tables("MaTable").Rows.Count)
MessageBox.Show(ds.Tables("MaTable").Rows(0)("Nom"))
End Sub

Qu'est-ce qui manque?

Merci

[tomlev]

Tu affectes le résultat de Deserialize à la variable DatabaseDataSet, mais après c'est la variable ds que tu manipules...

Sinon, pour info, le DataSet gère nativement la sérialisation XML, via les méthodes WriteXml et ReadXml... évidemment ça prend plus de place que la sérialisation binaire, mais c'est plus portable

[jlm57]

Merci Tomlev pour ta réponse mais çà ne marche pas même si j'utilise tout le temps ds ou DatabaseDataset.

D'ailleurs dans un module j'avais déclarer Public ds as Dataset = (DatabaseDataset)

J'aimerais resté en binaire.

[tomlev]

Merci Tomlev pour ta réponse mais çà ne marche pas même si j'utilise tout le temps ds ou DatabaseDataset.

Ben écoute, j'ai fait le test et pour moi ça marche très bien, donc je pense que c'est quand même lié à ton problème de variable

D'ailleurs dans un module j'avais déclarer Public ds as Dataset = (DatabaseDataset)

Et alors ? Si ensuite tu fais "DatabaseDataSet = fmtServices.Deserialize(readDs)", ds n'est plus égal à DatabaseDataSet... ce n'est pas parce qu'à un moment tu as dit que les 2 étaient égaux, qu'ils vont toujours le rester. Si tu remplaces l'un des 2, l'autre ne va pas suivra "automagiquement"...

[jlm57]

Ah oui! C'était çà. Cà marche.

Merci beaucoup Tomlev