Utilise un CascadingDropDown (le remplir)

Version imprimable

03/04/2009, 11h41
zooffy

Utilise un CascadingDropDown (le remplir)

Bonjour

J'essai de mettre en oeuvre un série e liste déroulante en cascade, le choix de la première rempli la suivante et ainsi de suite.

J'ai trouvé la doc du AjxControlToolKit censé faire cela : http://www.asp.net/AJAX/AjaxControlT...gDropDown.aspx

Outre le fait que l'exemple de code soit fait en C# (j'ai réussi à comprendre comment il fonctionne) je n'arrive aps àcompendre comment ils vont chercher les donéne dans la base.

Visiblement ils utilisent un objet maison Cars qui retourne un truc que je n'arrive pas à définir.

Alors questions :
- pouvez vous m'aider à comprendre comment ils vont chercher les données pour les mettre dans la DDL
- connaissez vous un autre système (plus simple) pour faire ce que je cherche à faire

Merci d'avance.
03/04/2009, 12h16
predalpha
Salut Zooffy,

ca ressemble au l'autocompleteExtender que tu as déja mis en place.
Cela se base sur un service et la méthode du service.
Code:

1 2 ServicePath="CarsService.asmx" ServiceMethod="GetDropDownContents"
Pour faire plus simple et sans rechargement de page, tu peux mettre des dropdowlists dans des ajax updatepanel et implementer le selectindexchange de tes DropDownLists.

Merci pour ton aide.

Jusque là, j'ai suivi et c'est vrai que ça y ressemble.
Sauf que, là, il veut en retour de WebMethode un CascadingDropDownNameValue a lieu d'un Array.

Et là, je n'arrive pas à lui donner ce qu'il veut.

Voici ma WebMethode :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 <WebMethod()> _ Public Function RemplirListeGeoPolitique(ByVal knownCategoryValues As String, ByVal category As String) As AjaxControlToolkit.CascadingDropDownNameValue Dim valret As New List(Of AjaxControlToolkit.CascadingDropDownNameValue()) Dim dt As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.GLOBAL_ContenuZone" & category) For Each r As DataRow In dt.Rows valret.Add(New AjaxControlToolkit.CascadingDropDownNameValue(r(0), r(1))) Next Return valret.ToArray() End Function
Et sur la ligne du valret dans le For Each il me dit :

Citation:

Une valeur de type 'AjaxControlToolkit.CascadingDropDownNameValue' ne peut pas être convertie en 'Tableau à 1 dimension(s) de AjaxControlToolkit.CascadingDropDownNameValue'.

Je comprends pas ce qu'il veut mettre dedans. Pour les arguments donné par l'autocomplétion sont simples : deux String.

Vois tu d'où pourrais provenir le souci ?

03/04/2009, 13h57
predalpha

essaies de mettre r(0).tostring et r(1).tostring

Merci. J'ai avancé entre les deux. Je sais pas ce que j'ai pu modifier, mais ça c'est mis à fonctionner.

Par contre, je bloque maintenant sur la cascade elle même
Je rempli bien ma première liste. Ce qui occupe ici est de décensdre dans le découpage géopolitique de la France. Donc ma première liste est celle des régions.

Ensuite je voudrais avoir la liste des départements contenus dans la région choisie. Mais là il me met un message d'erreur. Je pense que je dois avoir un souci pour comprendre l'utilisation des deux variables en paramètre.
Voici le code HTML de la page :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 <asp:DropDownList ID="lstRegion" runat="server"></asp:DropDownList><br /> <asp:DropDownList ID="lstDepartement" runat="server"></asp:DropDownList><br /> <asp:DropDownList ID="lstArrondissement" runat="server"></asp:DropDownList><br /> <asp:DropDownList ID="lstVille" runat="server"></asp:DropDownList><br /> <asp:Button ID="btnChoix" runat="server" Text="Choisir" /> <ajaxToolkit:CascadingDropDown ID="cddRegion" runat="server" TargetControlID="lstRegion" Category="2" PromptText="Choisissez une région" ServicePath="~/GMPhotoProfil.asmx" ServiceMethod="RemplirListeGeoPolitique" ></ajaxToolkit:CascadingDropDown> <ajaxToolkit:CascadingDropDown ID="cddDepartement" runat="server" TargetControlID="lstDepartement" ParentControlID="lstRegion" Category="3" PromptText="Choisissez un département" ServicePath="~/GMPhotoProfil.asmx" ServiceMethod="RemplirListeGeoPolitique"></ajaxToolkit:CascadingDropDown>
Puis le code la méthode, dernière version :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 <WebMethod()> _ Public Function RemplirListeGeoPolitique(ByVal knownCategoryValues As String, ByVal category As String) As Array Dim valret As New List(Of AjaxControlToolkit.CascadingDropDownNameValue) Try If knownCategoryValues = "" Then knownCategoryValues = "199" End If Dim dt As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.GLOBAL_ContenuZone " & knownCategoryValues) For Each r As DataRow In dt.Rows valret.Add(New AjaxControlToolkit.CascadingDropDownNameValue(r(0), r(1))) Next Catch ex As Exception Logage(ex.Message) End Try Return valret.ToArray() End Function
Et le message d'erreur que je trap avec le ex.mesasge :

Citation:

Syntaxe incorrecte vers ':'.

Pas trés explicite......

Sachant que ma Proc Stock prends comme paramètre l'identifiant d'une zone (région, département, ...) et va chercher ce qu'il faut dans la table pour remonter une liste d'identifiant et de nom.
Sachant aussi que ma table de GeoPolitique est architecturée sur le principe des arbres décisionnels de notre bien aimé SQLPRO.

Du coup, peut être que je n'utilise pas bien les paramètres.

Qu'en penses tu ?

03/04/2009, 14h34
predalpha

Arf, je n'ai pas assez étudié ce contrôle. Mais j'ai trouvé qqchose d'interressant sur ce site.

http://aspalliance.com/1183_Creating_a_CascadingDropDown_Using_AJAX.all

Bon, je crois que j'ai avancé, enfin à priori, sauf que je capte pas ce que j'ai trouvé. Grâce à mon outil de logage je peux capter plein de chose qu'on ne voit pas en AJAX et là j'ai découvert un truc qui me laisse sur mon céans, parce que je connais pas.

Dans la variable knownCategoryValues y a un truc qui se rajoute, liste aprés liste. Du coup, j'ai changé la variable category dans chaque CDD.

Maintenant, j'ai repris un morceau de code de l'exemple que je comprenais pas et je pense que c'est lié. Sauf que j'arrive pas à le faire fonctionner.

Dans l'exmple ils utilisent un StringDictionary, visiblement pour envoyer vers leur objet maison l'identifiant de la catégorie retenu par la précédente liste. Ils mettent aussi un bout de code (voir plus loin) qui permet de parser ce truc en Integer (et à mon avis en ce que tu veux pour l'envoyer vers la BDD).

Voici la chaine de knownCategoryValues qui évolue liste aprés liste :

Citation:

[rien]
2:200;
2:200;3:224;

J'ai mis ça dans le code, avant mon test pour savoir si c'est vide :
Code:

1 2 3 4 5 6 7 Dim kv As StringDictionary = AjaxControlToolkit.CascadingDropDown.ParseKnownCategoryValuesString(knownCategoryValues) Dim modelId As Integer If Not kv.ContainsKey(category) OrElse Not Int32.TryParse(kv(category), modelId) Then Logage("que dalle") End If Logage(modelId)
A chaque liste choisie, même la première (ce qui est normal) il me marque "que dalle" et sur le deuxième logage il me donne 0.

Du coup, j'en déduis que l'orsque je j'aurais compris comment extraire la dernière valeur de la liste, je pourrais l'envoyer en paramètre de la Proc Stock.

Vois de quoi ça parle ?

Essaies ceci pour récupérer ta clef

Code:

1
2
3
4
5
 
' la chaine à l'index 1 est l'élément sélectionné dans ta dropdownliste 
Dim _categoryValues As String() = knownCategoryValues.Split(":", ";") 
' Converti l'élément en entier à l'index 1 pour obtenir ton identifiant
Dim _carID As Integer = Convert.ToInt32(_categoryValues(1))

03/04/2009, 15h01
zooffy

Je viens d'essayer ton bout de code. Je maitrise pas bien le Split.

Pour 'linstant il me dit ça :

Citation:

La résolution de surcharge a échoué, car aucun 'Split' accessible ne peut être appelé sans conversion restrictive :

En bloquant sur knownCategoryValues.Split(":", ";")

Mais le truc du StringDictionary, c'est pas bien ?
03/04/2009, 15h29
predalpha

excuses mopi zooffy
c'est plutot uniquement ça la commande

knownCategoryValues.Split(";")

//c'est pour voir si ça marche , je pense que ton string dictionnary fonctionne aussi
03/04/2009, 16h44
zooffy

Alors aprés correction j'ai un autre mesasge d'erreur, mais sur le deuxième passage :

Citation:

Le format de la chaîne d'entrée est incorrect.

Quant au StringDictionnary, ben j'arrive toujours pas à le faire fonctionner.

Citation:
Envoyé par predalpha
Essaies ceci pour récupérer ta clef
Code:

1 2 3 4 5 ' la chaine à l'index 1 est l'élément sélectionné dans ta dropdownliste Dim _categoryValues As String() = knownCategoryValues.Split(":", ";") ' Converti l'élément en entier à l'index 1 pour obtenir ton identifiant Dim _carID As Integer = Convert.ToInt32(_categoryValues(1))
Bonjour! j'ai déjà rencontré ce problème avec ce contrôle.
Essaie de déclarer _categoryValues comme un array plutôt.
Et pour la conversion en int32, je te conseille de faire un test d'abord du genre isNumeric(_categoryValues(1)), pour éviter des erreurs non prévues pour le moment, mais il suffit que ce soit à null et ça plantera ton appli.

A plus.

Merci pour votre les gars.

Voici où en est ma WebMethod et j'avoue que je commence à perdre les pédales

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
 
<WebMethod()> _
    Public Function RemplirListeGeoPolitique(ByVal knownCategoryValues As String, ByVal category As String) As Array
        Logage("knownCategoryValues : " & knownCategoryValues)
        Dim valret As New List(Of AjaxControlToolkit.CascadingDropDownNameValue)
        Dim IdReg As Integer = 0
        Try
            If knownCategoryValues = "" Then
                IdReg = "199"
            Else
                ' la chaine à l'index 1 est l'élément sélectionné dans ta dropdownliste 
                Dim _categoryValues As Array = knownCategoryValues.Split(";")
                ' Converti l'élément en entier à l'index 1 pour obtenir ton identifiant
                Dim _carID As Integer = Convert.ToInt32(_categoryValues(1))
                Logage("carid : " & _carID)
                IdReg = _carID
            End If
            Logage("idreg : " & IdReg)
            Dim dt As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.GLOBAL_ContenuZone " & IdReg)
            For Each r As DataRow In dt.Rows
                valret.Add(New AjaxControlToolkit.CascadingDropDownNameValue(r(0), r(1)))
            Next
        Catch ex As Exception
            Logage(ex.Message & ex.InnerException.ToString)
        End Try
        Return valret.ToArray()
    End Function

Vu mes retours de Logage (ma fonction qui inscrit des trucs dans un ficher texte) il bloquerait sur la déclaration de _carId, mais ce qu'il y a de bizare, c'est le catch ne fonctionne pas, j'ai pas de message en retour.

Vous voyez d'où peut provenir le souci ?

06/04/2009, 11h55
zooffy

Je crois que j'ai trouvé un truc mais je sais pas comment l'exploiter.

J'ai testé le contenue de ça :

Code:

_categoryValues(0)

Et il me retourne ça :

Citation:

2:200

et category est égale à 3.

Donc j'en déduis qu'il m'envoi la category de la DDL suivante avec l'Item selectionné de la DDL précédente. Je pense également que pour le troisième passage il m'enverra le tout, puis une deuxième série avec les nouvelle valeur, donc category à 4 et l'Item selectionné de la DDL 3.

Précision : les category des DDL sont 2, 3, 4, 5 car ces valeurs correspondent à un niveau de découpage dans ma BDD. Toutefois, je peux m'en séparer et utiliser category autrement.

Alors du coup, je pense qu'il faut mettre knownCategoryValues sous forme de tableau qui contient une série de tableau lui même contenant deux valeurs.
Ensuite il faut que je récupère le tableau contenant la valeur de category et l'id de l'item sélectionné pour trouver l'ID à envoyer à ma Proc Stock.

Sauf que ça, je sais pas faire. Vous avez une idée ?

Mais pourquoi tu n'utilises pas simplement le StringDictionnary ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
       [WebMethod(EnableSession = true)]
        public CascadingDropDownNameValue[] GetCCialByBranch(string knownCategoryValues, string category)
        {
            StringDictionary kv = CascadingDropDown.ParseKnownCategoryValuesString(knownCategoryValues);
 
            long idBranch;
            if (!kv.ContainsKey("undefined") || !long.TryParse(kv["undefined"], out idBranch))
            { return null; }
 
            //Apppel au service
....
}

En 2 lignes tu récuperes ton Id pour la Proc.

Merci pour ton aide

Citation:

Envoyé par User.Anonymous

Mais pourquoi tu n'utilises pas simplement le StringDictionnary ??

En 2 lignes tu récuperes ton Id pour la Proc.

Ben parce que, comme je l'ai dit plus haut, je sais pas le faire fonctionner.
Du coup, avec ton bout de code (qu'il va falloir que je trduise en VB pour bien le comrpendre, je vais peut être le mettre en oeuvre et réussir à capter comment marche ce truc qui à l'air vachement bien.

Je test ça de suite et je te tiens au courant, mais je pense qu'il va me falloir un coup de main car si ça marche du premier coup, c'est que je dois ête cocu ! ! !

Sinon, pour l'autre solution, ben j'ai bricolé un truc pas trés catholique, voyez plutôt :
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 <WebMethod()> _ Public Function RemplirListeGeoPolitique(ByVal knownCategoryValues As String, ByVal category As String) As Array Dim valret As New List(Of AjaxControlToolkit.CascadingDropDownNameValue) Dim IdReg As Integer = 0 Try If knownCategoryValues = "" Then IdReg = "199" Else ' la chaine à l'index 1 est l'élément sélectionné dans ta dropdownliste Dim _categoryValues As Array = knownCategoryValues.Split(";") ' Converti l'élément en entier à l'index 1 pour obtenir ton identifiant Dim strReg As String = _categoryValues(category) IdReg = Convert.ToInt32(Right(strReg, strReg.Length - strReg.LastIndexOf(":") - 1)) End If Dim dt As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.GLOBAL_ContenuZone " & IdReg) For Each r As DataRow In dt.Rows valret.Add(New AjaxControlToolkit.CascadingDropDownNameValue(r(0), r(1))) Next Catch ex As Exception Logage(ex.Message & ex.InnerException.ToString) End Try Return valret.ToArray() End Function
Et j'ai remplacé les category de mes DDL par la bonne valeur : 10 pour le premier mais j'aurais pu mettre toto et 0,1,2 pour els suivantes, comme ça, c'est l'ordre qu'il faut pour le tableau. Enfin, ça marche. Mais il est vrai que le Dictionnary à l'air plus sexy, alors je vais essayé, comme ça j'aurais les deux et certainement appris un truc.

06/04/2009, 12h31
zooffy

Bon, ben comme prévu, le bout de code que tu em donne veux pas se traduire en VB dans le traducteur en ligne que j'ai trouvé.

L'ennui c'est que je comprends pas ce que fais ce code vu que je capte rien au C#. Ce qui coince c'est le IF. Je crois que même en VB , les IF à trois branches, j'y arrive pas (mais je ne sais même plus si on peut el faire en VB.NET)

Faut aps perdre de vue que (mais je asis que c'est pas écrit dans ma signature...) je ne suis jamais allé à l'école d'ingé. J'ai tout appris sur le tas depuis lâge de 22 ans. Du coup, j'ai des concepts de base qui m'échappe pas mal.

Vois tu ce qui pourrais coincer ?
Pourrais tu traduire ce bout de code en VB.NET ?

Merci d'avance.

Je te rassures je n'ai pas été en école d'ingé non plus :)

Pour ton code en VB, ça devrait donner quelque chose comme ça
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 Imports AjaxControlToolkit Imports System.Collections.Specialized Imports System.Collections.Generic (...) <WebMethod()> _ Public Function RemplirListeGeoPolitique(ByVal knownCategoryValues As String, ByVal category As String) As CascadingDropDownNameValue() Dim kv As StringDictionary kv = CascadingDropDown.ParseKnownCategoryValuesString(knownCategoryValues) Dim Id As Long If (kv.ContainsKey(("undefined") = False Or Long.TryParse(kv("undefined"), Id) = False)) Then Return Nothing End If 'Acces aux données Dim dt As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.GLOBAL_ContenuZone " & Id) Dim values As List(Of CascadingDropDownNameValue) For Each r As DataRow In dt.Rows values.Add(New CascadingDropDownNameValue(r("Id").ToString(), r("Name").ToString(), False)) Next Return values.ToArray() End Function
Dans le New CascadingDropDownNameValue :
le 1ème paramètre sera le dataValueField du ddl
le 2ème paramètre sera le dataTextField du ddl
le 3ème paramètre sera si le champ est selectionné ou non

En tous cas, je n'ai pas fait de VB depuis longtemps et je sais pourquoi maintenant :P

D'ailleurs si c'est un webService indépendant tu peux le faire le C# même si le reste de ton appli est en VB

06/04/2009, 16h47
zooffy

Merci pour ton aide.

Alors, aprés avoir essayé ce bout de code j'ai un message d'erreur qui apparait assez tôt :

Citation:

La conversion de la chaîne "undefined" en type 'Boolean' n'est pas valide.

Vois tu d'où pourais provenir ce souci, parce que là, je suis un poil largué sur le test conditionnel.

Quant à programmer mon service web en C#, j'aimerais bien, mais il faudrait que j'apprenne le langage pour ça et j'avoue que j'ai asp trop le temps en ce moment. Je suis à deux doigts de la mise en production, donc pas le temps de tout apprendre.
Par contre, je garde cette idée pour plus tard car j'ai la ferme intention de me lancer dans les MMO, donc si je veux exploiter XNA j'ai intérêt à me mettre au C#

Code:

1
2
3
4
 
        If (kv.ContainsKey("undefined") = False Or Long.TryParse(kv("undefined"), Id) = False) Then
            Return Nothing
        End If

1 parenthèse de trop

Alors j'ai modifié un poil le code.

il manquait un petit New sur la Lsit Of et j'ai réduis les paramettre du Add à leur plus simple expression.

Voici où on en est (avec l'ajout d'un Try pour capter l'éventullement message d'erreur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Try Dim kv As StringDictionary kv = CascadingDropDown.ParseKnownCategoryValuesString(knownCategoryValues) Dim Id As Long If (kv.ContainsKey("undefined") = False Or Long.TryParse(kv("undefined"), Id) = False) Then 'Return Nothing Id = "199" End If 'Acces aux données Dim dt As DataTable = New DManager("DataDev").RetournerTable("EXEC dbo.GLOBAL_ContenuZone " & Id) Dim values As New List(Of CascadingDropDownNameValue) For Each r As DataRow In dt.Rows values.Add(New CascadingDropDownNameValue(r(0), r(1))) Next Return values.ToArray() Catch ex As Exception Logage(ex.Message) End Try
Donc ce code marche bien, sans poser d'erreur, sauf que, il charge toujours la même liste de donnée dans la DDL suivante. En gros, ma première DDL arrive avec la liste des régions et la suivnte aussi et ainsi de suite, jusqu'à la quatrième.

J'ai trouné le problème dans tous les ens et je vois pas bien comment je peux faire en sorte de changer ça. Il doit y avoir une subilité du Dictionnary que j'ai pas capté.

06/04/2009, 18h00
User.Anonymous

Vérifie bien en debug que tu n'envoie pas toujours l'Id 199
09/04/2009, 14h48
zooffy

Ben si, ça envoi toujours 199, sinon j'aurais pas la liste des régions à chaque fois.
Parce que, un return Nothing, je peux pas me permettre à cet endroit là. Du coup, vu que la prenière liste n'est pas issue d'une saisie, en lui collant l'identifiant de la France dans ma table, j'obtiens la liste des régions.

Mais le test conditionnel qui est fait à cet endroit est bien fait pour dire qu'on met 199 seulement si kv est vide, non ?

Ou alors, j'ai rien compris.
10/04/2009, 11h59
User.Anonymous

Oui, mais ton kv n'a pas à être vide, sinon à chaque erreur il te reverra la listes des régions.

Si c'est pour l'initialisation, essayes d'envoyer 199 à ta première liste par le code behind.
11/04/2009, 09h55
zooffy

Bon, ben ça à l'air de marcher comme ça.

Merci pour ton aide.