Discussion :

[abzange]

Bonjour à tous,

je suis nouveau en vb.net et je rencontre quelques soucis au niveau des datagridview:

j'arrive bien à en créer une, à la remplir (enfin je pense), mais je ne parviens pas à la faire afficher... J'ai créé dans la partie design une datagridview, mais je ne sais pas comment la relier à celle qui est dans mon code... si quelqu'un pouvait m'éclairer sur ce sujet, ce serait super sympa!

j'en profite aussi pour poser une autre question: j'ai comme finalité d'aller chercher un fichier texte avec mes premières lignes de la datagridbox, et mon calcul rajoute une ligne. Auriez vous une idée de comment faire ça (quand ma première question sera résolue, j'aurais codé la partie "calcul" et rajout d'une ligne, mais je en sais pas comment lire un fichier texte, mettre les valeurs qu'il contient dans la datagridbox, faire mon calcul, puis enregistrer le tout dans le même fichier) L'idéal serait de pouvoir spécifier à la base si on souhaite créer un nouveau fichier, ou aller chercher un fichier déjà existant...

merci mille fois pour votre aide!

[hunteshiva]

Bonjour,

J'ai créé dans la partie design une datagridview, mais je ne sais pas comment la relier à celle qui est dans mon code...

ça ne se relie pas.
soit tu affiche celle qui est dans ton code

Code :

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

1
2
3
4
5
' Préparation du DataGrid crée via le code
MonDataGridView.Location = New Point(104, 104)
MonDataGridView.Size = New Size(75, 23)
' Ajout du Datagid au formulaire
Me.Controls.Add(MonDataGridView)

soit tu remplis celle que tu a crée dans la partie design.


peux tu nous préciser un peu plus sur ce que tu as?
ou en est tu dans le code? tu utilise un DataSet (ou DataReader)?
Quels sont les éléments que tu veux lier?

Un fichier, une BDD (SQL, Access, ...?) et un DatagridView ?

[abzange]

merci, je vais essayer ça!

pour la seconde question, je veux en fait que ma datagridview soit chargée depuis un fichier texte (ça, je sais pas faire), je fais mon calcul qui rajoute une ligne à la datagridview (ça, c'est ok), et ensuite, je veux sauvegarder la nouvelle datagridview dans le fichier texte

j'espère que c'est un peu plus clair comme ça!

[hunteshiva]

La solution la plus simple est d’effacer le fichier Texte,
d'en créer un nouveau avec le même nom,
et d'enregistrer dont datagridview dedans

Code pour creer un fichier:

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
        Try
 
            'Instanciation du StreamWriter avec passage du nom du fichier 
            Dim monStreamWriter As StreamWriter = New StreamWriter("MonChemin\Monfichier.txt")
 
            'Ecriture du texte dans votre fichier
            monStreamWriter.WriteLine("Ma toute première ligne...")
            monStreamWriter.WriteLine("Ma seconde ligne...")
            monStreamWriter.WriteLine("Ma troisième ligne...")
 
            'Fermeture du StreamWriter (Trés important)
            monStreamWriter.Close()
 
        Catch ex As Exception
 
            'Code exécuté en cas d'exception
            Response.Write(ex.Message)
 
        End Try

[abzange]

merci bien, je vais essayer ça pour enregistrer le fichier!

par contre, comment puis-je faire pour ouvrir un fichier texte et mettre les données dans le datagrid?

merci!!

[hunteshiva]

Ah j’avais pas vu, *désolé*

chargée depuis un fichier texte (ça, je sais pas faire)

je te conseille de faire un petit tout du coté de ce tuto
la manipulation de fichiers texte (VB.Net)

Il va falloir que tu adapte tes données sorties de ton fichier texte pour les mettre dans ton DataGridView.
je sais pas comment est ton fichier Texte, généralement on utilise la fonction "Split" pour exploser les données dans un tableau.

[abzange]

pas de souci, bien sûr!!

merci pour le lien, je vais y faire un tour et je te tiens au courant!

[abzange]

Bonjour à tous,

je me permets de revenir vers vous car j'ai réussi à lire un fichier, ajouter une ligne et écrire le tout dans un nouveau fichier.

Mon code marche si j'écris moi même le premier fichier (celui qui est lu), en mettant un retour chariot en fin de ligne. Je fais tourner une première fois la procédure, ça me crée un nouveau fichier, qui ressemble à ce que je demandais.

Je fais alors tourner une seconde fois ma procédure en lisant le fichier que je viens de créer et là, ça buggue. Visiblement, il me lit bien la première ligne, mais pas les suivantes. D'où ma question concernant la bonne utilisation du vbcrlf?

Merci de votre aide!!

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
Imports System.IO
 
Public Module Module1
    Public hist(999999) As String
    Public indice As Integer
End Module
 
Public Class Form2
 
    Public AppPath As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)
 
    Sub lecturefichier(ByRef fichier As String)
 
        Dim FichierTexte As String
        Dim i As Integer
        Dim Tableau(0) As String
        Try
            Dim ObjetFichier As StreamReader = New StreamReader(fichier)
            Do
                FichierTexte = ObjetFichier.ReadLine()
                If FichierTexte Is Nothing Then
                    i = i - 1
                Else
                    If i = 0 Then
                        ReDim Tableau(i)
                    Else
                        ReDim Preserve Tableau(i)
                    End If
                    Tableau(i) = FichierTexte
                End If
 
                i = i + 1
            Loop Until FichierTexte Is Nothing
            ObjetFichier.Close()
            i = i - 1
        Catch exc As Exception
            MsgBox("Fichier inexistant")
        End Try
 
 
 
        hist = Tableau
    End Sub
 
    Public Sub EcrireFichier(ByVal CheminFichier As String, ByVal Texte As String)
        Dim FreeF As Integer
        FreeF = FreeFile() 'Possibilité de mettre 1
        'Texte = Replace(Texte, vbLf, vbCrLf)
        FileOpen(FreeF, CheminFichier, OpenMode.Output)
        Print(FreeF, Texte)
        FileClose(FreeF)
    End Sub
 
 
    Sub test(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        lecturefichier("Z:\test2.txt")
 
        Dim tt() As String
        Dim tabl(4, 2) As String
        Label1.Text = hist(0).ToString
        For i = 0 To 3
            Dim truc As String = hist(i)
 
            tt = Split(truc, "@")
            Label2.Text = tt(0).ToString
            For j = 0 To 2
                tabl(i, j) = CStr(tt(j))
            Next
        Next
        Label1.Text = tabl(1, 2).ToString
 
        For k = 0 To 2
            tabl(4, k) = k * 10 + 4
        Next
 
        Dim txtt(4) As String
        Dim txt As String = Nothing
 
        For li = 0 To 4
            txtt(li) = CStr(tabl(li, 0)) & "@" & CStr(tabl(li, 1)) & "@" & CStr(tabl(li, 2)) & vbCrLf
        Next
 
 
        For co = 0 To 4
            txt = txt & txtt(co)
        Next
 
        EcrireFichier("Z:\test3.txt", txt)
    End Sub
 
End Class

[abzange]

bon, en fait, j'ai trouvé une solution, peut-être pas la plus jolie, mais elle marche!

j'ai "juste" rajouté un caractère @ (mon séparateur) en fin de ligne, et là, tout marche bien comme il faut!

bonne fin de journée à tous!

[hunteshiva]

Tant que ça marche
Bon bien sur il faut pas faire ça a tout bout de champ.