Discussion :

[dubidon]

Bonjour, voila j'avais déja ouvert un topic pour un problème de chargement de combobox, ou j'utilisais deux combobox dans une form, chacune lié à une table et à un bindingsource et j'avais un problème de chargement aléatoire d'une de mes combobox. Bref du cou après moulte recherche, une exportation de mon projet sous un pc équipé de windows xp ... j'ai toujours le même problème.

Du cou je me demandais s'il était possible de transférer les données contenues par mes deux dataset dans deux fichier text et une fois ces fichiers text chargés, de les lier à mes combobox, ainsi je n'aurais peut être plus ce problème de rafraichissement. Sachant que j'ai des lables qui doivent aussi être lié aux données et que les labels doivent aussi évoluer en focntion du choix de mes combobox.

d'avance merci

@++
dubidon

[Aspic]

Tu veux ecrire les données de des dataset dans deux fichiers textes et ensuite les charger pour tes combobox ?

[dubidon]

oui c'est exactement çà, sauf qu'en plus d'y relier aux combobox, il faut que ce soit relié a des labels aussi et que ces labels évolue en fonction de mes combobox ou sinon trouver une solution qui arrangerait le problème

@++
dubidon

[Aspic]

Alors ce tutoriel est ce qu'il te faut
Utilisation des fichiers en .NET

[dubidon]

j'ai bien étudié le tutoriel, mais il me manque quelques infos, genre comment lire un fichier ligne par ligne, pour pouvoir remplir ma combobox ligne par ligne et puis aussi comment passer les infos de mon dataset dans un fichier text ?? Car je sais qu'un dataset est composé de d'une ou plusieurs datatable, mais comment accéder aux lignes du datatable ??

merci

@++
dubidon

[SaumonAgile]

comment lire un fichier ligne par ligne

http://faqcsharp.developpez.com/?pag...adwritetxtfile

[dubidon]

éhé, merci bien après quelques modifs j'ai reussi a charger ma combobox avec un fichier text, me reste plsuq u'a trouver comment transférer mes données de mon dataset dans le fichier text et trouver comment supprimer toutes les infos du fichier

@++
dubidon

[Aspic]

j'ai bien étudié le tutoriel, mais il me manque quelques infos, genre comment lire un fichier ligne par ligne, pour pouvoir remplir ma combobox ligne par ligne

Pourtant c'était ecrit dans le tutos :

'il existe les methodes ReadBlock qui permet de lire un block d'octet et Readline
'qui permet de lire une ligne entière.
'la methode ReadToEnd lis tous le fichier en un coup.
'Utiliser la methode Peek pour parcourir le fichier en le lisant par block et par ligne. Voir exemple :
''''
''''
'While Flux.Peek <> -1 'tans que possible
' Dim result As String = Flux.ReadLine 'lis une ligne !
'End While

++

[dubidon]

ouhlala c'est vrai que c'est écrit, j'suis passé à coté, mais bon du cou j'ai réussi à charger ma combobox comme je le voulais.

J'ai aussi développé une procédure qui doit charger des données contenues dans mon dataset dans un fichier.

J'arrive a écrire dans le fichier, mais à chaque fois çà n'écrit qu'une ligne et c'est toujours la derniere de mon dataset. J'ai l'impression qu'en fait à chaque fois çà écrit sur la première ligne de mon fichier text en écrasant celle ayant été écrit précédement , y'aurait t'il une commande indiquant un retour à la ligne ?

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
 
   Public Sub charge_fichier(ByVal req As String)
        Try
            'on instancie la connexion
            objetconnection = New SqlConnection
 
            'on donne les valeurs à la connexion
            objetconnection.ConnectionString = strConn
 
            'on instancie un objet Commande
            ObjetCommand = New SqlCommand(req)
 
            'on ouvre la connexion
            objetconnection.Open()
 
            'initialiser l'objet Command
            ObjetCommand.Connection() = objetconnection
 
            'on instancie un objet datareader
            ObjetDatareader = ObjetCommand.ExecuteReader
 
 
            If ObjetDatareader.HasRows Then
                ' tant que le DataReader a une ligne d'enregistrements
                While ObjetDatareader.Read
                    Dim Flux As New StreamWriter(Application.StartupPath & "\test.txt", False) 'crée un fichier nommé test.txt
                    Flux.Write(ObjetDatareader.GetValue(1)) 'écrit les données dans le fichier
                    Flux.Close() 'ferme le fichier ===> important !!
                End While
            Else
                'si il n'y a pas de ligne on informe
                MessageBox.Show("Il n'y a pas de données", "Infos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not (ObjetDatareader Is Nothing) Then ObjetDatareader.Close()
            If Not (objetconnection Is Nothing) Then objetconnection.Close()
        End Try
    End Sub
End Class

merci

@++
dubidon

[SaumonAgile]

Quand tu prends des notes en cours, tu n'ouvres pas et ne fermes pas ton classeur à chaque phrase.
Là c'est pareil, tu ouvres le fichier avant de tout écrire au début.
Ensuite, tu écris toutes les données.
Enfin, tu refermes le fichier.

Ton code pour l'instant écrase toujours le fichier existant à chaque ligne.

Une autre solution pour ton problème serait d'ouvrir le StreamWriter en lui disant d'écrire après les données existantes. Mais ce ne serait qu'une rustine pour un code mal écrit. Tu dois plutot utiliser la première méthode que je t'ai donné.

Et au passage, s'il n'y a pas de donnée, ce n'est pas la peine de mettre un 's' à 'donnée' :

Code :

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

MessageBox.Show("Il n'y a pas de données", "Infos", MessageBoxButtons.OK, MessageBoxIcon.Information)

[dubidon]

Merci saumonagile pour ton aide, mais si j'ai bien compris il faudrait que j'ouvre mon streamwriter avant mon while et le fermer après mon while comme ceci :

Code :

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

1
2
3
4
5
6
 
                Dim Flux As New StreamWriter(Application.StartupPath & "\test.txt", False) 
                While ObjetDatareader.Read
                    Flux.Write(ObjetDatareader.GetValue(1)) 'écrit les données dans le fichier
                End While
                Flux.Close()

mais en faisant comme çà, tout s'écrit à la suite sans sauter de ligne et même sans aucun espace entre chaque information, du cou me manque toujours le moyen de lui indiquer de sauter un ligne a chaque fois


Et merci pour la correction de la faute d'orthographes

@++
dubidon

[SaumonAgile]

Code :

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

Flux.Write(Environment.NewLine);

[Aspic]

A la fin de chaque ajout tu rajoutes le séparateur VbCrLf:

Code :

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

flux.write(data & VbCrLf) 'ajoute un retour à la ligne.

[dubidon]

eh bien merci beaucoup pour cette dernière ligne. Tout fonctionne parfaitement bien.

Je met les codes au cas ou quelqu'un soit un jour intéressé ou qu'il rencontre les mêmes problèmes que moi avec les combobox et les bindingsources


charger fichier texte à partir d'une table

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
 
    Public Sub charge_fichier(ByVal req As String)
        Try
            'on instancie la connexion
            objetconnection = New SqlConnection
 
            'on donne les valeurs à la connexion
            objetconnection.ConnectionString = strConn  'strconn contient la chaine de connection
 
            'on instancie un objet Commande
            ObjetCommand = New SqlCommand(req)
 
            'on ouvre la connexion
            objetconnection.Open()
 
            'initialiser l'objet Command
            ObjetCommand.Connection() = objetconnection
 
            'on instancie un objet datareader
            ObjetDatareader = ObjetCommand.ExecuteReader
 
 
            If ObjetDatareader.HasRows Then
                ' tant que le DataReader a une ligne d'enregistrements
                File.Delete("\table.txt")  'on supprime le fichier si il existe déja
                Dim Flux As New StreamWriter(Application.StartupPath & "\table.txt", False) 'crée un fichier nommé table.txt
                While ObjetDatareader.Read
                    Flux.Write(ObjetDatareader.GetValue(1)) 'écrit les données dans le fichier
                    Flux.Write(Environment.NewLine) 'on suate une ligne
                End While
                Flux.Close() 'on ferme le fichier 
            Else
                'si il n'y a pas de ligne on informe
                MessageBox.Show("Il n'y a pas de donnée", "Infos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not (ObjetDatareader Is Nothing) Then ObjetDatareader.Close()
            If Not (objetconnection Is Nothing) Then objetconnection.Close()
        End Try
    End Sub

charger un combobox à partir d'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
 
      Try
            CMBNomHBene.Items.Clear()
            Dim sr As New StreamReader(Application.StartupPath & "\table.txt", False)
 
            line = sr.ReadLine()
            While (line <> "")
 
                CMBNomHBene.Items.Add(line)
                line = sr.ReadLine()
            End While
            sr.Close()
 
        Catch ex As IOException 'en cas d'erreurs
            MsgBox(ex.Message)
        End Try