Discussion :

[Astro8899]

Bonjour,

Je fait une application en vb.net. Je veux transferer mon dataset vers un fichier texte. J'utilise la methode ReadXml. Mon problème est que quand j'ouvre mon fichier texte tout est en dédordre. J'aimerais savoir comment je pourrais faire pour quand j'ouvre mon fichier texte, que les informations soit bien afficher par colonne avec les bonne information en dessous de chaque colonne. Si il y a d autre methode aussi j'aimerais les connaitres. merci

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim horsprods As New DataSet(dataSetName)
   Dim xmlFilename As String = "c:\XmlDocument.doc"
            Dim streamWrite As New System.IO.FileStream _
               (xmlFilename, System.IO.FileMode.Create)
            horsprods.WriteXml(streamWrite)
            streamWrite.Close()

[Astro8899]

J'ai oublié de dire que je veux envoyer le fichier par courriel. Je suis capable de mettre l information de mon dataset dans un fichier text mais le tout est mélanger genre pas de colonne. J'aimerais savoir si a partir soit de la requete soit du datatable ou du dataset prendre l information et la mettre dans un fichier texte pour que les données soit lisible comme si on lisait un listview pour l envoyer par courriel.

Merci

[tomlev]

J'utilise la methode ReadXml. Mon problème est que quand j'ouvre mon fichier texte tout est en dédordre. J'aimerais savoir comment je pourrais faire pour quand j'ouvre mon fichier texte, que les informations soit bien afficher par colonne avec les bonne information en dessous de chaque colonne.

Ce que tu appelles "en désordre", c'est le format XML
Ce n'est pas du tout du désordre, c'est même très bien organisé, mais si j'ai bien compris ce n'est pas ce que tu veux... mais il n'y a pas de méthode qui écrive le DataSet en colonnes automatiquement. La méthode WriteXml écrit le DataSet dans un fichier au format XML, si tu veux l'écrire dans un format spécifique, il faut le faire manuellement en parcourant toutes les lignes de toutes les tables du DataSet.

[Astro8899]

Salut Tomlev,

Merci pour l'information. Effectivement je sais que le format Xml est bien. Mais j'aimerais savoir si il y a moyen dans ce cas là de prendre les informations que j'ai pris dans mon dataset et que j'affiche dans mon listview par la suite de les envoyer par courriel. Je suis capable d'envoyer un courriel et même de mettre une piece jointe avec le courriel. Je suis capable aussi de mettre du texte d'un textbox dans mon courriel mais pas d'un listview.

Merci

[tomlev]

tu ne peux pas envoyer le fichier XML dans ton mail ? ce serait le plus simple...

Sinon, pour écrire le contenu du DataSet dans un fichier dans le format que tu veux, tu peux faire quelque chose comme ça :

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
' Ouverture du fichier
Using wr As New StreamWriter(nomDuFichier)
 
    ' Parcours de toutes les tables du DataSet
    For Each DataTable table In horsprods.Tables
 
        ' On écrit le nom de la table
        wr.WriteLine("Table {0}", table.TableName)
 
        ' On écrit les noms de chaque colonne de la table
        For Each DataColumn column In table.Columns
            wr.Write(vbTab & column.Name)
        Next
        wr.WriteLine()
 
        ' Parcours de toutes les lignes de la table
        For Each DataRow row In table.Rows
 
            ' On écrit chaque champ de la ligne
            For Each DataColumn column In table.Columns
                wr.Write(vbTab & row[column].ToString())
            Next
            wr.WriteLine()
 
        Next
        wr.WriteLine()
 
    Next
 
End Using

Ensuite il n'y a plus qu'à envoyer le fichier par mail, comme indiqué dans ce tuto (c'est en C#, mais le principe est le même)

[Astro8899]

Salut Tomlev,

C'est excatement ce que je cherchais. Merci

Voici mon code que j'ai fait et qui me donne ce que je veux.

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
Dim nomdufichier As String = "C:\test.doc"
Dim colum As DataColumn
Dim wr As New StreamWriter(nomdufichier)
Dim a As Integer = 0
 
wr.WriteLine(vbTab & vbTab & vbTab & "Rapport de Prescription du jour")
 
wr.Write("Vétérinaire" & vbTab & vbTab & "client" & vbTab & vbTab & vbTab & "Produit" & vbTab & vbTab & "Format" & vbTab & "Quantité" & vbTab & "RxNo" & Chr(13) & Chr(10))
 
 
For a = 0 To Me.ListHorsProg.Items.Count - 1
 
wr.Write(Me.ListHorsProg.Items(a).SubItems(0).Text _
& Me.ListHorsProg.Items(a).SubItems(1).Text & vbTab _
& Me.ListHorsProg.Items(a).SubItems(2).Text & vbTab _
& Me.ListHorsProg.Items(a).SubItems(5).Text & Chr(13) & Chr(10))
 
Next
wr.Close()

A y penser fallait juste le savoir. Merci encore

[tomlev]

Juste 2 remarques sur ton code :
- si tu as les donner dans un DataSet, il vaut mieux les lire dans le DataSet que dans la ListView (ou autre élément d'interface graphique)
- le fait d'appeler ton fichier "test.doc" n'en fait pas un document Word, ça reste un simple fichier texte