problème avec System.StackOverflowException

Version imprimable

04/11/2011, 15h19
Mario Rousson

problème avec System.StackOverflowException

Bonjour,

j'aimerais savoir pourquoi j'ai ce message d'erreur dans ma procédure et comment l'éviter.

Citation:

L'exception System.StackOverflowException n'a pas été gérée
InnerException:

J'ai une première boucle de 0 à 4000 et pour chaque boucle j'ai une procédeure comprend une deuxième boucle qui vérifie les doublons pour 150 enregistrements environ.

L'erreur apparaît lorsque la première boucle arrive au niveau 1700 environ.

merci
04/11/2011, 15h34
Maniz

Cette exception e lève généralement quand tu surcharge la mémoire de ton Pc, en gros, quand il à plus de place.

Citation:

StackOverflowException est levé pour les erreurs de dépassement de capacité de la pile d'exécution, généralement en cas de récurrence très profonde ou non limitée.

La il se retrouve à se demander ou placer les nouveaux éléments, puis plante.

Si je comprend bien ce que tu me décris, ta boucle plante après avoir vérifié 1700 fois 150 enregistrement?
Ca dépend beaucoup de la façon dont tu gère la vérifiation, mais je pense que tu devrais la revoir de façon à décharger la mémoire de ton pc.

ok c'est ce que je pensais, je dois oublier de détruire certains objets à chaque boucle j'imagine.

ça arrive toujour lors de la vérification d'un doublon ma function est la suivante.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function DoublonEsTuLa(ByVal SQL As String) As OleDbDataReader
        Dim dr As OleDbDataReader
        Try
            Me.OuvrirConnection()
            Dim Cmd As New OleDbCommand
            With Cmd
                .Connection = Me._cn
                .CommandType = CommandType.Text
                .CommandText = SQL
            End With
            'Obtention des enregistrements
            dr = Cmd.ExecuteReader()
            Return dr
        Catch ex As Exception
            Me.FermerConnection()
            Throw New ApplicationException("La Commande à échoué", ex)
        Finally
       End Try
    End Function

je vais repasser mes procédures pour voir ce qui me gruge

04/11/2011, 16h45
Pol63

stackoverflow n'est pas un problème de mémoire, pour la mémoire c'est outofmemoryexception

stackoverflow veut dire que tu as dépassé la taille maxi de la pile
quand tu appelles une méthode, elle est mise sur la pile, si elle en appelle une autre, elle est mise sur la pile aussi, et à la sortie d'une méthode ca dépile

si tu as une méthode A qui appelle la méthode A, alors celle ci appellera A, et ce une infinité de fois, arrivé à quelques milliers, le stackoverflow sera déclenché

donc tu as surement un problème de récursivité sans fin

j'ai repasser tout mon code et je voix pas ou ça cloche alors j'aimerais le vérifier avec vous si je peut le me le permettre

PS. Soyez indulgent je suis amateur et c'est possible que mon code soit pas très évolué

premièrement à l'ouverture de la page je charge les infos de ma bd
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub MajAnaliTechnique_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load LVSetup() DGVSetup() Dim SqlSymb As String = "SELECT TblSymbole.Symbole, TblSymbole.[Actif] FROM TblSymbole WHERE (((TblSymbole.[Actif])=False));" Dr = Ad.FournirDataReader(SqlSymb) While Dr.Read Dim symbtemp As String = CStr(Dr("Symbole")) ArListSymb.Add(symbtemp) TSCBoxSymb.Items.Add(symbtemp) End While Ad.FermerConnection() Dr.Close() NbrAct = ArListSymb.Count TSLabCompteur.Text = NbrAvencement.ToString & " / " & NbrAct.ToString TSCBoxSymb.Sorted = True ArListSymb.Sort() End Sub
Je charge mes infos dans un arraylist et dans un combobox car je peut executer mes procédures de deux façons.

Jusque la pas de problème il me semble.

Pour démarrer l'execution de ma procédure d'analyse de chaque symbole avec mon arraylist je procède comme suit...et c'est peut-être la que ça cloche.

j'ai un bouton pour faire démarrer le tout

Code:

1
2
3
4
5
6
7
8
Private Sub TSButAvancer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSButAvancer.Click
        If NbrAvencement > ArListSymb.Count Then
            Exit Sub
        End If
        TSLabCompteur.Text = (NbrAvencement + 1).ToString & " / " & NbrAct.ToString
        TSTBoxSymb.Text = ArListSymb(NbrAvencement)
        NbrAvencement = NbrAvencement + 1
    End Sub

Ensuite dans la methode textchange du textbox je fais ma procédure et à la fin je redemande un nouvel item du arraylist

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
40
41
42
43
44
45
Private Sub TSTBoxSymb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSTBoxSymb.TextChanged
        DGVDonnee.Rows.Clear()
        ListVAnalyseTech.Items.Clear()
        'Requête de récupération des informations à analyser
        Dim SSQLSect As String = "SELECT TblDonneesTest.DateDonnees, TblDonneesTest.Symbole, TblDonneesTest.Prix, TblDonneesTest.Volume FROM TblDonneesTest WHERE (((TblDonneesTest.Symbole)=""" & TSTBoxSymb.Text & """));"
        Dr = Ad.FournirDataReader(SSQLSect)
        Dim Prix As Double
        Dim Volume As Integer
        Dim DateDon As Date
        Try
            While Dr.Read
                If Not Dr.IsDBNull(Dr.GetOrdinal("DateDonnees")) Then
                    DateDon = CDate(Dr("DateDonnees"))
                Else
                DateDon = Nothing
                End If
                symbo = CStr(Dr("Symbole"))
                If Not Dr.IsDBNull(Dr.GetOrdinal("Prix")) Then
                    Prix = CDbl(Dr("Prix"))
                Else
                Prix = Nothing
                End If
                If Not Dr.IsDBNull(Dr.GetOrdinal("Volume")) Then
                    Volume = CInt(Dr("Volume"))
                Else
                Volume = Nothing
                End If
                DGVDonnee.Rows.Add(DateDon.ToShortDateString, Prix.ToString("F"), Volume.ToString)
            End While
        Finally
            Dr.Close()
            Ad.FermerConnection()
        End Try
        My.Application.DoEvents()
        Dim maxligne As Integer = 0
        If DGVDonnee.RowCount > 2 Then
            maxligne = DGVDonnee.RowCount
            If Doubrech(CDate(DGVDonnee.Item(0, DGVDonnee.RowCount - 2).Value), symbo) = False Then
                AnaPage()
            End If
        End If
        NbrAvencement = NbrAvencement + 1
        TSLabCompteur.Text = (NbrAvencement).ToString & " / " & NbrAct.ToString
        TSTBoxSymb.Text = ArListSymb(NbrAvencement)
    End Sub

c'est peut-être ici que ça cloche, lorque je change l'information dans un textbox à partir de la procédure textchange

quand dite vous?

04/11/2011, 19h59
Pol63

quand l'erreur se produit, le programme doit se mettre en pause et te montrer la ligne où le programme s’arrête
tu peux à ce moment là regarder la pile des appels et tu verras tout de suite d'où vient la réentrance

ça dit pas grand chose

c'est dans ma requête Fournir Datareader que ça cloche cette fois ci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function FournirDataReader(ByVal SQL As String) As OleDbDataReader
        Dim dr As OleDbDataReader
        Try
            Me.OuvrirConnection()
            Dim Cmd As New OleDbCommand
            With Cmd
                .Connection = Me._cn
                .CommandType = CommandType.Text
                .CommandText = SQL
            End With
            'Obtention des enregistrements
            dr = Cmd.ExecuteReader()
            Return dr
        Catch ex As Exception
            Me.FermerConnection()
            Throw New ApplicationException("La Commande à échoué", ex)
        End Try
    End Function

au niveau de la ligne: Dr= Cmd.executeReader()
quant je vais voir les détails c'est écrit: Impossible d'évaluer l'expression

je sais pas ou aller pour voir la pile

04/11/2011, 20h34
Pol63

en haut à droite de visual studio il y a plusieurs petites icones
en laissant la souris dessus un tooltip explique ce que c'est

il y a entre autre liste des erreurs, qui permet au fur et à mesure qu'on écrit du code de voir les erreurs de compilation
et aussi pile des appels qui permet quand on est en pause à un endroit du code de voir la provenance du code (ce bouton n'est visible qu'à l'exécution)
04/11/2011, 21h01
Mario Rousson

ok Merci Pol63 je connaissais pas la ferêtre de pile des appels c'est plein de textchange bla bla bla ... alors je vais modifier ma façon de faire la job.

merci beaucoup
04/11/2011, 21h32
Pol63

oui autre exemple, si tu dans le textchanged d'un textbox tu te retrouves à modifier le texte de celui ci, textchanged est relancé et ainsi de suite