Variable utilisé avant d’être affecté

Version imprimable

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:

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

21/08/2012, 08h59
Invité

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

A la place de

Code:

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

ecrit

Code:

Dim msg_admin_objet As String = TextBox1.Text.Substring(debut_obj, longeur_obj)
21/08/2012, 11h58
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 ^^
21/08/2012, 12h16
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

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:

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:

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:

For Each ligne

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

21/08/2012, 13h29
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

ok pol63 voila l'intégralité du code, je ne le trouve pas étrange, il me permet d'extraire les infos voulu d'une textbox et la sauvegarde dans la bdd

Code:

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
            Dim msg_admin_num As String
            Dim msg_admin_date As String
            Dim msg_admin_heure As String
            Dim msg_admin_origine As String
            Dim msg_admin_objet As String
            Dim msg_admin_complet As String
 
            msg_admin_num = TextBox1.Text.Substring(33, 10) 'extrait le n° du msg à la position connue
            msg_admin_date = TextBox1.Text.Substring(52, 10) 'extrait la date à la position connue
            msg_admin_heure = TextBox1.Text.Substring(65, 8) 'extrait l'heure a la position connue
            msg_admin_complet = TextBox1.Text 'extrait la totalité du message
 
            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
 
 
            '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
            MyNewRow("origine") = msg_admin_origine
            MyNewRow("objet") = msg_admin_objet
            MyNewRow("complet") = msg_admin_complet
            dst_admin.Tables("administratif").Rows.Add(MyNewRow)
 
            Dim MyCommBuild As New MySqlCommandBuilder(da_admin)
            da_admin.Update(dst_admin, "administratif")

21/08/2012, 16h05
Pol63

dans ta boucle for tu vas modifier 2 variables (donc potentiellement x passages dans la boucle)
à la fin de ta boucle for tu ajoutes une ligne à la base de données, donc pas x ligne, et le contenu de cette ligne sera le dernier tour de boucle

pourquoi alors faire x tour de boucle pour enregistrer une seule donnée ?
21/08/2012, 16h13
BenoitM

Citation:

Envoyé par 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

C'est nettement mieux de mettre la variable à Nothing comme tu l'as conseilé, certes le message n'est pas toujours une erreur mais ca l'est souvent, donc plutot que de skipper les warnings, il vaut mieux les lire faire attention à se qu'il raconte et trouver la solution pour les faire disparaitre si besoin celui-ci n'est pas valide.