Discussion :

[gastoncs]

Bonjour , j'ai ce message d'erreur que j'ai traduit de l'anglais : Variable utilisé avant d’être affecté
Ce n'est pas vraiment une erreur car mon programme fonctionne mais la variable "msg_admin_objet" est souligné en vert avec le message ci dessus :
voila l'extrait de mon programme, je ne comprend pas comment je pourrais faire pour ne pas avoir cette erreur !

Code vb :

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
For Each ligne As String In TextBox1.Text.Split(ControlChars.NewLine) 'pour chaque ligne de la textbox je sépare les caractéres
 
                'objet
                Dim debut_obj As Integer = TextBox1.Text.IndexOf("Objet : ") + 8
                Dim fin_obj As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_obj)
                Dim longeur_obj As Integer = fin_obj - debut_obj
                msg_admin_objet = TextBox1.Text.Substring(debut_obj, longeur_obj)
            Next
 
 
            'enregistrement du message administratif dans la base de donnée
            Dim MyNewRow As DataRow = dst_admin.Tables("administratif").NewRow
 
            MyNewRow("numero") = msg_admin_num
            MyNewRow("date") = msg_admin_date
            MyNewRow("heure") = msg_admin_heure
 
            'Le problème est ici
            MyNewRow("objet") = msg_admin_objet

[Invité]

C'est normal tu utilise la variable "msg_admin_objet" avant de la déclarer.

A la place de

Code :

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

msg_admin_objet = TextBox1.Text.Substring(debut_obj, longeur_obj)

ecrit

Code :

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

Dim msg_admin_objet As String = TextBox1.Text.Substring(debut_obj, longeur_obj)

[Pol63]

c'est un avertissement de visual studio, pas forcément une erreur
quand on déclare une variable il n'y a rien dedans
si on l'utilise après sans rien ca peut etre un comportement anormal, si dans ton code tu es sur qu'une valeur sera bien dedans au moment de l'utilisation il n'y a pas de soucis à laisser en l'état

après modifier des variables dans une boucle sans les utiliser ca me parait plus étrange mais vs ne fait pas d'avertissements pour ca ^^

[tomlev]

S'il n'y a rien dans TextBox1, tu ne vas pas rentrer dans la boucle, et donc msg_admin_objet ne sera pas initialisé et vaudra Nothing

[gastoncs]

Oui je comprend, mais en faite j'extrait des données d'une textbox, de facon a ce que je separe les chaines de caractére par les espaces pour extraire celle qui m'intéresses situé dérriére un libelle par exemple "Origine" et "Objet" dans le cas ci dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For Each ligne As String In TextBox1.Text.Split(ControlChars.NewLine) 'pour chaque ligne de la textbox je sépare les caractéres
                'origine 
                Dim debut_org As Integer = TextBox1.Text.IndexOf("Origine : ") + 10
                Dim fin_org As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_org)
                Dim longeur_org As Integer = fin_org - debut_org
                msg_admin_origine = TextBox1.Text.Substring(debut_org, longeur_org)
                'objet
                Dim debut_obj As Integer = TextBox1.Text.IndexOf("Objet : ") + 8
                Dim fin_obj As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_obj)
                Dim longeur_obj As Integer = fin_obj - debut_obj
                msg_admin_objet = TextBox1.Text.Substring(debut_obj, longeur_obj)
            Next

et après une fois que j'ai les valeurs, (ps: elle seront toujours là) je les enregistre dans ma base de données mysql avec :

Code :

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

1
2
3
4
5
6
7
8
9
            Dim MyNewRow As DataRow = dst_admin.Tables("administratif").NewRow
 
 
            MyNewRow("origine") = msg_admin_origine
            MyNewRow("objet") = msg_admin_objet
            dst_admin.Tables("administratif").Rows.Add(MyNewRow)
 
            Dim MyCommBuild As New MySqlCommandBuilder(da_admin)
            da_admin.Update(dst_admin, "administratif")

le probléme est si je suis ce que ma dit gcorbineau les deux variables crée dans le

Code :

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

For Each ligne

ne sont pas visible pour mon insertion dans la base de donnée, alors comment bien faire ?

[Pol63]

laisse ton code en l'état et ignore l'avertissement
si tu veux réellement supprimer l'avertissement sur la déclaration de ta variable tu rajoutes = nothing derrière

par contre si tu nous n'as pas omis de code dans le copier coller vers le forum, ce code reste étrange