[R] Problème avec MySql FetchData

[Ks10]

Bonjour tout le monde,

J'ai un problème qui me semble bizarre et je n'arrive pas à trouver la source du soucis.
J'ai pourtant retourner le code dans tous les sens mais je ne comprend pas.

En gros voici la structure de mon programme :

► Afficher le texte

Code : Tout sélectionner

ICI MON INTERFACE
#EndRegion ### END Koda GUI section ###

While 1
    ControlFocus("", "", "[CLASS:Edit; INSTANCE:1]") ; FOCUS DE MON INPUT EN PERMANENCE
    _CheckCB() ; FONCTION DE CHECK DE LINPUT


 $nMsg = GUIGetMsg()
 Switch $nMsg

            Case $Monbouton



  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd

Func _CheckCB()

    $chkcb = GUICtrlRead($input3)
    If StringLen($chkcb) = 13 Then
                $vrf_tj = IniRead(@ScriptDir & "\config.ini", "TMP", "Tj_actuel", "erreur")
                If Not _EzMySql_Query("SELECT * FROM `inventaire`.`" & $vrf_tj & "` WHERE reference = '" & $chkcb & "'") Then
                    MsgBox(64, "Informations", "Impossible de scannÃ[emoji767] cette rÃ[emoji767]fÃ[emoji767]rence. Code erreur : " & _EzMySql_ErrMsg())
                Else
                    For $i = 1 To _EzMySql_Rows() Step 1
                        $a1Row = _EzMySql_FetchData()

                    Next
                    If $chkcb = $a1Row[2] Then

                        $update_qte = "UPDATE `inventaire`.`" & $vrf_tj & "` SET `quantite` = '" & $a1Row[3] + 1 & "' WHERE `" & $vrf_tj & "`.`reference` = " & $chkcb & ";"
                        If Not _EzMySql_Exec($update_qte) Then
                            MsgBox(64, "Informations", "Impossible de modifier la quantitÃ[emoji767] de cette article." & @CRLF _
                            & "Code erreur : " & _EzMySql_ErrMsg())
                        EndIf
                        _GUICtrlListView_DeleteAllItems($List1)
                        $refresh_ref = _EzMySql_GetTable2d("SELECT * FROM `" & $vrf_tj & "`")
                        _ArrayDelete($refresh_ref, 0)
                        _GUICtrlListView_AddArray($List1, $refresh_ref)
                        Sleep(250)
                        GUICtrlSetData($input3, "")
                    Else
                        $ref_abs = MsgBox($MB_YESNO, "Informations", "La rÃ[emoji767]fÃ[emoji767]rence " & $chkcb & " n'existe pas." & @CRLF _
                        & "Voulez-vous crÃ[emoji767]e cette rÃ[emoji767]fÃ[emoji767]rence ?")
                        If $ref_abs = $IDYES Then
                            $Form3 = GUICreate("GStock - Ajout Produit", 399, 175, -1, -1)
                            GUISetBkColor(0x000000)
                            $Label7 = GUICtrlCreateLabel("DÃ[emoji767]signation : ", 8, 16, 69, 17)
                            GUICtrlSetColor(-1, $COLOR_WHITE)
                            $Input4 = GUICtrlCreateInput("", 88, 16, 305, 21)
                            $Label8 = GUICtrlCreateLabel("RÃ[emoji767]fÃ[emoji767]rence : ", 8, 56, 63, 17)
                            GUICtrlSetColor(-1, $COLOR_WHITE)
                            $Input5 = GUICtrlCreateInput($chkcb, 88, 56, 305, 21, $ES_READONLY)
                            $Label9 = GUICtrlCreateLabel("QuantitÃ[emoji767] de dÃ[emoji767]part : ", 8, 96, 101, 17)
                            GUICtrlSetColor(-1, $COLOR_WHITE)
                            $Input6 = GUICtrlCreateInput("1", 120, 96, 273, 21, $ES_READONLY)
                            $Button3 = GUICtrlCreateButton("Validation du produit dans l'inventaire", 8, 128, 387, 41)
                            GUICtrlSetBkColor(-1, 0xA6CAF0)

                            GUISetState(@SW_SHOW)
                            While 1
                                $nMsg = GUIGetMsg(1)
                                Select

                                        Case $nMsg[0] = $Button3
                                            $add_designation = GUICtrlRead($Input4)
                                            $add_reference = GUICtrlRead($Input5)
                                            $add_qte = GUICtrlRead($Input6)

                                            If $add_designation = "" Then

                                                MsgBox(64, "Informations", "Veuillez remplir la dÃ[emoji767]signation s'il vous plait.")
                                            Else
                                                $add_inv = "INSERT INTO `inventaire`.`" & $vrf_tj & "` (`id`, `designation`, `reference`, `quantite`) VALUES (NULL, '" & $add_designation & "', '" & $add_reference & "', '" & $add_qte & "');"
                                                If Not _EzMySql_Exec($add_inv) Then
                                                    MsgBox(64, "Informations", "Impossible d'ajouter ce produit." & @CRLF _
                                                    & "Code erreur : " & _EzMySql_ErrMsg())
                                                Else
                                                    _GUICtrlListView_DeleteAllItems($List1)
                                                    $refresh_ref = _EzMySql_GetTable2d("SELECT * FROM `" & $vrf_tj & "`")
                                                    _ArrayDelete($refresh_ref, 0)
                                                    _GUICtrlListView_AddArray($List1, $refresh_ref)
                                                    GUIDelete($Form3)
                                                    ExitLoop
                                            EndIf
                                        EndIf




                                EndSelect
                            WEnd
                        EndIf
                        GUICtrlSetData($input3, "")
                    EndIf


                EndIf
EndIf

EndFunc

Voici ce que ma fonction _CheckCB() fait :

- Lit l'input
- VÃ[emoji767]rifie qu'il y a bien 13 caractères
- Si c'est le cas alors il va chercher la rÃ[emoji767]fÃ[emoji767]rence dans la table
- Si il la trouve , il rajoute 1 à la quantitÃ[emoji767] de cette rÃ[emoji767]fÃ[emoji767]rence
- Si il ne la trouve pas, il me propose de crÃ[emoji767]e ce produit dans la table.

Le code est fonctionnel si j'entre une rÃ[emoji767]fÃ[emoji767]rence correct dès l'ouverture du programme.
Si je rentre une rÃ[emoji767]fÃ[emoji767]rence incorrect cela m'affiche ce message :

Array variable has incorrect number of subscripts or subscript dimension range exceeded.

Je ne comprend pas ?

[jbnh]

Quelle array génère l'erreur ?

Egalement je ne comprend pas bien :

Si cette erreur est gérée des le début (que la réference n'existe pas) :

Code : Tout sélectionner

If Not _EzMySql_Query("SELECT * FROM `inventaire`.`" & $vrf_tj & "` WHERE reference = '" & $chkcb & "'") Then
                    MsgBox(64, "Informations", "Impossible de scanné cette référence. Code erreur : " & _EzMySql_ErrMsg())

Comment est-il possible d'arriver dans le deuxième else :

Code : Tout sélectionner

Else
                        $ref_abs = MsgBox($MB_YESNO, "Informations", "La référence " & $chkcb & " n'existe pas." & @CRLF _
 

Ou quelque chose m'échappe ?

[Ks10]

C'est cette array qui génère l'erreur je pense :

Code : Tout sélectionner

 
                If Not _EzMySql_Query("SELECT * FROM `inventaire`.`" & $vrf_tj & "` WHERE reference = '" & $chkcb & "'") Then
                    MsgBox(64, "Informations", "Impossible de scanné cette référence. Code erreur : " & _EzMySql_ErrMsg())
                Else
                    For $i = 1 To _EzMySql_Rows() Step 1
                        $a1Row = _EzMySql_FetchData()

                    Next
 

Ce code crée un tableau a partir de la requête.
Oui c'est possible car mon programme fonctionne, j'ai juste une erreur si je rentre une mauvaise référence quand je lance le programme.

[jbnh]

Si tu mentionnes une mauvaise référence tu devrais entrer dans le if et ne pas construire ton tableau, la condition de ton if ne marche pas je suppose...

[Ks10]

Et donc comment pallier ce problème ?
En sachant que dans cette situation :
- J'ouvre le programme
- Je rentre une bonne ref cela fonctionne
- Ensuite je peut rentrer une mauvaise référence a ma condition fonctionne parfaitement.

[Ks10]

Hello,

Alors j'ai continuer à travailler sur le problème et je l'est presque résolu.
Tout d'abord je vous explique ma méthode :

Dans l'ancien code je passé par une requête "SELECT" et je tenté de récupérer une erreur cependant dans le sens où ma requête est formulé même si je rentre une fausse référence celle-ci n'est pas considéré comme une erreur car dans phpmyadmin la requête renvoie un résultat dans les cases du type NULL. Donc le "If not _EzMySql_Query("SELECT ...") etc... " ne génère pas d'erreur car la commande est exécuté. Et dans la suite de la condition il n'est pas possible de gêrer la fausse référence.

Alors je me suis tourné vers une autre solution ! Celle ci :

Code : Tout sélectionner

"SELECT COUNT(*) FROM `inventaire`.`" & $vrf_tj & "` WHERE reference = '" & $chkcb & "'"

En gros on va rechercher une ligne qui correspond à cette référence si ce n'est pas le cas, la requête retournera 0 et sinon il retourne 1.
Alors voici le nouveau code concernant ma fonction _chkcb()

► Afficher le texte

Code : Tout sélectionner

Func _CheckCB()


    $chkcb = GUICtrlRead($input3)
                $vrf_tj = IniRead(@ScriptDir & "\config.ini", "TMP", "Tj_actuel", "erreur")
                If Not _EzMySql_Query("SELECT * FROM`inventaire`.`" & $vrf_tj & "` WHERE reference = '" & $chkcb & "'") Then
                    MsgBox(64, "Informations", "Impossible de scanné cette référence. Code erreur : " & _EzMySql_ErrMsg())
                Else
                    For $i = 1 To _EzMySql_Rows() Step 1
                        $a1Row = _EzMySql_FetchData()

                        $update_qte = "UPDATE `inventaire`.`" & $vrf_tj & "` SET `quantite` = '" & $a1Row[3] + 1 & "' WHERE `" & $vrf_tj & "`.`reference` = " & $chkcb & ";"
                        If Not _EzMySql_Exec($update_qte) Then
                            MsgBox(64, "Informations", "Impossible de modifier la quantité de cette article." & @CRLF _
                            & "Code erreur : " & _EzMySql_ErrMsg())
                        Else
                        _GUICtrlListView_DeleteAllItems($List1)
                        $refresh_ref = _EzMySql_GetTable2d("SELECT * FROM `" & $vrf_tj & "`")
                        _ArrayDelete($refresh_ref, 0)
                        _GUICtrlListView_AddArray($List1, $refresh_ref)
                        Sleep(250)
                        GUICtrlSetData($input3, "")
                        EndIf

                    Next

            If Not $chkcb = "" Then
                Sleep(1500)
                $verif_ref = _EzMySql_Query("SELECT COUNT(*) FROM `inventaire`.`" & $vrf_tj & "` WHERE reference = '" & $chkcb & "'")
                                    For $i = 1 To _EzMySql_Rows() Step 1
                                        $aRow = _EzMySql_FetchData()
                                        If $aRow[0] = 0 Then

                        $chkcb = GUICtrlRead($input3)
                        $vrf_tj = IniRead(@ScriptDir & "\config.ini", "TMP", "Tj_actuel", "erreur")
                        $ref_abs = MsgBox($MB_YESNO, "Informations", "La référence " & $chkcb & " n'existe pas." & @CRLF _
                        & "Voulez-vous crée cette référence ?")
                        GUICtrlSetData($Input3, "")
                        If $ref_abs = $IDYES Then
                            $Form3 = GUICreate("GStock - Ajout Produit", 399, 175, -1, -1)
                            GUISetBkColor(0x000000)
                            $Label7 = GUICtrlCreateLabel("Désignation : ", 8, 16, 69, 17)
                            GUICtrlSetColor(-1, $COLOR_WHITE)
                            $Input4 = GUICtrlCreateInput("", 88, 16, 305, 21)
                            $Label8 = GUICtrlCreateLabel("Référence : ", 8, 56, 63, 17)
                            GUICtrlSetColor(-1, $COLOR_WHITE)
                            $Input5 = GUICtrlCreateInput($chkcb, 88, 56, 305, 21, $ES_READONLY)
                            $Label9 = GUICtrlCreateLabel("Quantité de départ : ", 8, 96, 101, 17)
                            GUICtrlSetColor(-1, $COLOR_WHITE)
                            $Input6 = GUICtrlCreateInput("1", 120, 96, 273, 21, $ES_READONLY)
                            $Button3 = GUICtrlCreateButton("Validation du produit dans l'inventaire", 8, 128, 387, 41)
                            GUICtrlSetBkColor(-1, 0xA6CAF0)

                            GUISetState(@SW_SHOW)
                            While 1
                                $nMsg = GUIGetMsg(1)
                                Select

                                        Case $nMsg[0] = $Button3
                                            $add_designation = GUICtrlRead($Input4)
                                            $add_reference = GUICtrlRead($Input5)
                                            $add_qte = GUICtrlRead($Input6)

                                            If $add_designation = "" Then

                                                MsgBox(64, "Informations", "Veuillez remplir la désignation s'il vous plait.")
                                            Else
                                                $add_inv = "INSERT INTO `inventaire`.`" & $vrf_tj & "` (`id`, `designation`, `reference`, `quantite`) VALUES (NULL, '" & $add_designation & "', '" & $add_reference & "', '" & $add_qte & "');"
                                                If Not _EzMySql_Exec($add_inv) Then
                                                    MsgBox(64, "Informations", "Impossible d'ajouter ce produit." & @CRLF _
                                                    & "Code erreur : " & _EzMySql_ErrMsg())
                                                Else
                                                    _GUICtrlListView_DeleteAllItems($List1)
                                                    $refresh_ref = _EzMySql_GetTable2d("SELECT * FROM `" & $vrf_tj & "`")
                                                    _ArrayDelete($refresh_ref, 0)
                                                    _GUICtrlListView_AddArray($List1, $refresh_ref)
                                                    GUIDelete($Form3)
                                                    ExitLoop
                                            EndIf
                                        EndIf




                                EndSelect
                            WEnd
                        EndIf
                                        EndIf

            Next

            EndIf

                EndIf

    EndFunc

Alors avec ce code cela fonctionne mais à moitier ...
Je m'explique :

- Si je rentre une bonne référence avec un copié collé, pas de soucis le code est pris en compte.
- Si je rentre une mauvaise référence, pas de soucis le code est pris en compte.

- Si je rentre une bonne référence avec mon lecteur code barre, même si la référence est bonne il m'indique que celle-ci n'existe pas. WTF ?

Quelqu'un pourrait m'expliquer pourquoi ?

Merci d'avance

[Hugues]

Salut,

Je suppose que tu as du le vérifier, mais regarde que lorsque tu scannes un espace n'est pas rajouté à la fin de ta chaîne de caractère.

J'ai eu le soucis une fois, je scannais avec un lecteur DataMatrix, il me mettais bien la valeur dans mon InputBox, mais rajoutais un espace à la fin...

[Ks10]

Merci Hugues pour ta réponse mais ce n'est pas ça

J'ai trouver mon problème xD
En faite en tout début j'avait mis une condition un peu contradictoire "If Not $chkcb = "" Then " du coup le programme traduisé "Si l'input n'est pas vide " alors "la référence n'existe pas".

J'ai donc remplacé par :

Code : Tout sélectionner

If $chkcb = "" Then

Else

; ICI MON CODE POUR UNE REFERENCE ABSENTE

Endif
 

Bref j'ai fait mes tests et sa passe crème
Merci quand même