Discussion :

[_ChToM_]

Slt

voila, j'ai fait un programme VB6 qui tourne pas mal, mais depuis peu, toujours sur les mêmes enregistrements (lors d'un parcours de recordset), il me pete une erreur : Code 6 - Dépassement de capacité.

J'ai bien essayé de passer en mode debug, mais en vain car en mode debug, tout marche nickel.

Je ne sais pas trop quoi faire pour réparer cette erreur.

Est-il possible de vider la mémoire comme on peut le faire en Java (garbage collector...)?

Merci d'avance.

[Phifi]

voila, j'ai fait un programme VB6 qui tourne pas mal, mais depuis peu, toujours sur les mêmes enregistrements (lors d'un parcours de recordset), il me pete une erreur : Code 6 - Dépassement de capacité.

Voyons un peu ce code ?

[_ChToM_]

OK, en fait, je pensais que VB6 gérait bien les opérations sur les String...

Apparement non, car il me mettait une erreur lorsque j'essayais la chose suivante:

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
    Dim Second_Temp As String
    Dim Minute_Temp As String
    Dim Heure_Temp As String
    Dim valeur_de_retour as String
 
    Second_Temp = val(Right(Time1, 2))
    Minute_Temp = val(Mid(Time1, 4, 2)) + val(tmp)
    Heure_Temp = val(Left(Time1, 2))
 
    If Minute_Temp > 59 Then
        Minute_Temp = Minute_Temp - 60
        Heure_Temp = Heure_Temp + 1
    End If
    If Heure_Temp > 23 Or Heure_Temp < 0 Then
        Heure_Temp = Heure_Temp - 24
    End If
    valeur_de_retour = Format(Heure_Temp, "0#") & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")

En changeant le type de second_temp, minute_temp, et heure_temp, ca "résout" mon problème.

Y'a encore un truc que j'ai mal fait?


Désolé pour le dérangement

[Le Pharaon]

Plus haut tu disais que c'est un problème de recordset alors que dans le code il n y a pas de recordset

[_ChToM_]

Ben en fait, j'étais persuadé que le problème venait d'un RecordSet.

Ce que je voulais dire avec l'histoire du RecordSet, c'est que je sais d'avance que sur l'enregistrement 618 et 652, il va me péter une erreur de dépassement de capacité.

Et je ne pige pas pourquoi.

Apparement, c'était à cause du type des variables dans le code juste au dessus... M'enfin, ce qui me paraît bizarre, c'est que ce soit toujours sur les mêmes enregistrements.

[_ChToM_]

Heu, toujours dans la catégorie "Erreur VB6", je demande "Dépassement de capacité" (elle me manquait pas cette erreur... )

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
    Dim return_value As Boolean
    Dim idx As Integer
    Dim size_tmp As Integer
    Dim code_tmp As Integer
    Dim cod_err_tmp As Integer
    Dim cod_fct_tmp As Integer
    Dim cod_err_tmp2 As Integer
    Dim cod_fct_tmp2 As Integer
    
    return_value = False
    idx = 1
    size_tmp = tab_destinataire(idx_dest).size_tab_stat_get
    
    Do While idx < size_tmp And return_value = False
        code_tmp = tab_destinataire(idx_dest).get_value_tab(idx).code_get
        cod_err_tmp = tab_destinataire(idx_dest).get_value_tab(idx).cod_err_get
        cod_fct_tmp = tab_destinataire(idx_dest).get_value_tab(idx).cod_fct_get
        cod_err_tmp2 = val(ModTraitErr.tab_info(15))
        cod_fct_tmp2 = val(ModTraitErr.tab_info(2))
        If code_tmp = COD_STAT _
            And cod_err_tmp = cod_err_tmp2 _
            And cod_fct_tmp = cod_fct_tmp2 Then
                return_value = True
        Else
            idx = idx + 1
        End If
    Loop

J'ai souligné l'endroit de l'erreur en bleu. ModTraitErr.tab_info est un tableau de String. Qu'est ce que je fais mal encore?

[AlainTech]

Ce que je voulais dire avec l'histoire du RecordSet, c'est que je sais d'avance que sur l'enregistrement 618 et 652, il va me péter une erreur de dépassement de capacité.

Tu as laissé tourner le test jusqu'à l'enregistrement 618?