Remplissage DropDownList en fonction d'une autre DropDownList ASP.NET VB.NET

Version imprimable

Bonjour,

Je suis actuellement en train de developper un portail de suivi d'incidents en ASP.NET (VB.NET) avec une base ACCESS de test.

Je bloque sur un point.

Je m'explique :

J'ai 2 DropDownList. Une "DropDownListPays" et une "DropDownListSite".
Un pays peut contenir plusieurs sites. J'aimerais que lorsque je sélectionne un pays dans la DDL Pays, seulement les sites qui se trouvent dans le Pays selectionné apparaissent dans la DDL Site sans pour autant recharger toute la page.

Pour la partie rechargement partiel de la page j'utilise un updatepanel et un trigger dans le .ASPX (cette partie semble marcher convenablement ).
Pour la partie remplissage de la DDL Site en fonction de la DDL Pays j'utilise des dataset dans le .ASPX.VB

code :

.ASPX

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
 
 
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Incidents.aspx.vb" Inherits="Incidents" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
	<title>Incidents</title>
</head>
<body>
	<form id="formIncidents" runat="server">
 
		<asp:ScriptManager ID="ScriptManager1" runat="server" />
 
		<asp:Label ID="LabelPays" runat="server" Text="Pays :"></asp:Label>
		<asp:DropDownList ID="DropDownListPays" runat="server" AutoPostBack="true"></asp:DropDownList></td>
 
		<asp:Label ID="LabelSite" runat="server" Text="Site :"></asp:Label>
		<asp:UpdatePanel ID="UpdatePanelDDLSite" UpdateMode="Conditional" runat="server">
			<Triggers>
				<asp:AsyncPostBackTrigger controlid="DropDownListPays" eventname="SelectedIndexChanged" />
			</Triggers>
			<ContentTemplate>
				<asp:DropDownList ID="DropDownListSite" runat="server"></asp:DropDownList>  
			</ContentTemplate>
		</asp:UpdatePanel>
 
	</form>
</body>
</html>

.ASPX.VB

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Imports System.Data
Imports System.Data.OleDb
 
 
Partial Class Incidents
    Inherits System.Web.UI.Page
 
 
    Dim MyConnection As System.Data.OleDb.OleDbConnection
    Dim MyCommand As New OleDbCommand
    Dim MyDataSet As DataSet
    Dim MyDataAdapter As OleDbDataAdapter
    Dim Requete As String
 
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        MyConnection = New OleDbConnection()
        MyConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\SOCIETE\Access\AccessPortail.accdb;Persist Security Info=True"
        MyConnection.Open()
 
 
        Requete = "SELECT DISTINCT Pays FROM Incidents ORDER BY Pays ASC"
        MyCommand = New OleDbCommand(Requete, MyConnection)
 
        MyDataAdapter = New OleDbDataAdapter(MyCommand)
        MyDataSet = New DataSet
        MyDataAdapter.Fill(MyDataSet, "Pays")
 
        DropDownListPays.DataSource = MyDataSet
        DropDownListPays.DataTextField = "Pays"
        DropDownListPays.DataValueField = "Pays"
        DropDownListPays.DataBind()
 
        MyDataSet.Clear()
		MyConnection.Close()
 
    End Sub
 
 
    Protected Sub DropDownListPays_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownListPays.SelectedIndexChanged
 
 
        MyConnection = New OleDbConnection()
        MyConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\SOCIETE\Access\AccessPortail.accdb;Persist Security Info=True"
        MyConnection.Open()
 
 
        Requete = "SELECT DISTINCT Site FROM Incidents "
        Requete += "WHERE Pays= '" + DropDownListPays.SelectedValue.ToString() + "' "
        Requete += "ORDER BY Site ASC"
        MyCommand = New OleDbCommand(Requete, MyConnection)
 
        MyDataAdapter = New OleDbDataAdapter(MyCommand)
        MyDataSet = New DataSet
        MyDataAdapter.Fill(MyDataSet, "Site")
 
        DropDownListSite.DataSource = MyDataSet
        DropDownListSite.DataTextField = "Site"
        DropDownListSite.DataBind()
 
        MyDataSet.Clear()
        MyConnection.Close()
 
    End Sub
End Class

Ma partie Remplissage de DDL Site en fonction de DDL Pays ne fonctionnne pas..
Ai-je le droit d'utilise les même DataTextField et DataValueField lors de mon remplissage de DDL Pays ?

Auriez vous quelques idées ?

Merci d'avance,

Bien cordialement,

Tan

23/07/2010, 15h15
Neodream

Je ne sais pas si c'est la bonne solution, mais dans ton cas, que j'ai déjà croisé. Personnellement je laissais la page se recharché donc autopostback à true. Et je mettais le ViewState sur les éléments dont je voulais garder les valeurs à la page suivante.

Comme ça sur l'évènement onChange de ta DdlPays tu peux effectuer les opérations que tu veux sur ta DdlSites.

Voilà

Cordialement.

Bonne journée

PS : Cette solution n'est sans doute pas la meilleure, mais elle fonctionne très bien pour des pages où il n'y a pas trop de données à mettre dans le ViewState.
23/07/2010, 15h18
lutecefalco

Elle fonctionne correctement à mon avis, c'est juste que la valeur dans DDLPays n'est pas la bonne puisque que tu rebindes cette dernière à chaque PageLoad
23/07/2010, 15h51
TannE

Merci pour vos réponses.

Citation:

Envoyé par lutecefalco

Elle fonctionne correctement à mon avis, c'est juste que la valeur dans DDLPays n'est pas la bonne puisque que tu rebindes cette dernière à chaque PageLoad

Je n'ai pas l'impression que ce soit ça car ma DDL Site se vide lorsque je choisis un pays avec la DDL Pays.
Donc il ne s'agit pas d'une mauvaise valeur mais il n'y a tout simplement pas de valeur dans DDL pays.

En effet, en mode Pas à Pas dans VS, la requete que j'obtiens est la suivante :

SELECT DISTINCT Site FROM Incidents WHERE Pays= '' ORDER BY Site ASC

On voit bien que ma SelectedValue est nulle.
Ceci dit j'ai quand même essayé de mettre un boolean afin de ne passer qu'une fois dans le page Load et j'obtiens le même resultat..
Merci quand même.

Citation:

Envoyé par Neodream

Je ne sais pas si c'est la bonne solution, mais dans ton cas, que j'ai déjà croisé. Personnellement je laissais la page se recharché donc autopostback à true. Et je mettais le ViewState sur les éléments dont je voulais garder les valeurs à la page suivante.

Comme ça sur l'évènement onChange de ta DdlPays tu peux effectuer les opérations que tu veux sur ta DdlSites.

Voilà

Cordialement.

Bonne journée

PS : Cette solution n'est sans doute pas la meilleure, mais elle fonctionne très bien pour des pages où il n'y a pas trop de données à mettre dans le ViewState.

Mon rechargement partiel de la page fonctionne bien(deja testé avec d'autres fonctions ) donc je ne pense pas que l'erreur vienne de la.
Je vais quand même aller faire un tour du coté des viewstate pour voir ce que ça donne.
Merci quand même
23/07/2010, 15h54
lutecefalco

Citation:

Envoyé par TannE

Merci pour vos réponses.
Je n'ai pas l'impression que ce soit ça car ma DDL Site se vide lorsque je choisis un pays avec la DDL Pays.
Donc il ne s'agit pas d'une mauvaise valeur mais il n'y a tout simplement pas de valeur dans DDL pays.

En effet, en mode Pas à Pas dans VS, la requete que j'obtiens est la suivante :

SELECT DISTINCT Site FROM Incidents WHERE Pays= '' ORDER BY Site ASC

On voit bien que ma SelectedValue est nulle.
Ceci dit j'ai quand même essayé de mettre un boolean afin de ne passer qu'une fois dans le page Load et j'obtiens le même resultat..
Merci quand même.

Bah c'est exactement ce que je dis, ta DDL est réinitialisée et donc la selectedvalue est nulle
23/07/2010, 16h25
TannE

Citation:

Envoyé par lutecefalco

Bah c'est exactement ce que je dis, ta DDL est réinitialisée et donc la selectedvalue est nulle

Oui excuse moi, Il semble que tu ais tout à fait raison. Mon boolean n'a pas fonctionné.
Ma DDL Pays se REremplit à chaque fois.

Je n'avais pas remarqué mais je repasse par le page_load à chaque fois.
Comment faire pour que ça ne passe qu'une seule fois par le page_load ?
Je pensais que mon UpdatePanel se chargait de rafraichir seulement une partie de la page..
23/07/2010, 16h29
lutecefalco

Citation:

Envoyé par TannE

Comment faire pour que ça ne passe qu'une seule fois par le page_load ?

Regarde du côté de la propriété IsPostBack

Citation:

Envoyé par TannE

Je pensais que mon UpdatePanel se chargait de rafraichir seulement une partie de la page..

Visuellement oui, mais côté serveur tout est refait

Citation:

Envoyé par lutecefalco

Regarde du côté de la propriété IsPostBack

Visuellement oui, mais côté serveur tout est refait

C'est parfait, c'est exactement ce que je cherchais.

Merci beaucoup !

Je remet le code avec la petite modification pour les suivants :

.ASPX

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
 
 
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Incidents.aspx.vb" Inherits="Incidents" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
	<title>Incidents</title>
</head>
<body>
	<form id="formIncidents" runat="server">
 
		<asp:ScriptManager ID="ScriptManager1" runat="server" />
 
		<asp:Label ID="LabelPays" runat="server" Text="Pays :"></asp:Label>
		<asp:DropDownList ID="DropDownListPays" runat="server" AutoPostBack="true"></asp:DropDownList></td>
 
		<asp:Label ID="LabelSite" runat="server" Text="Site :"></asp:Label>
		<asp:UpdatePanel ID="UpdatePanelDDLSite" UpdateMode="Conditional" runat="server">
			<Triggers>
				<asp:AsyncPostBackTrigger controlid="DropDownListPays" eventname="SelectedIndexChanged" />
			</Triggers>
			<ContentTemplate>
				<asp:DropDownList ID="DropDownListSite" runat="server"></asp:DropDownList>  
			</ContentTemplate>
		</asp:UpdatePanel>
 
	</form>
</body>
</html>

.ASPX.VB

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Imports System.Data
Imports System.Data.OleDb
 
 
Partial Class Incidents
    Inherits System.Web.UI.Page
 
 
    Dim MyConnection As System.Data.OleDb.OleDbConnection
    Dim MyCommand As New OleDbCommand
    Dim MyDataSet As DataSet
    Dim MyDataAdapter As OleDbDataAdapter
    Dim Requete As String
 
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        MyConnection = New OleDbConnection()
        MyConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\SOCIETE\Access\AccessPortail.accdb;Persist Security Info=True"
        MyConnection.Open()
 
 
		If not IsPostBack Then
 
			Requete = "SELECT DISTINCT Pays FROM Incidents ORDER BY Pays ASC"
			MyCommand = New OleDbCommand(Requete, MyConnection)
 
			MyDataAdapter = New OleDbDataAdapter(MyCommand)
			MyDataSet = New DataSet
			MyDataAdapter.Fill(MyDataSet, "Pays")
 
			DropDownListPays.DataSource = MyDataSet
			DropDownListPays.DataTextField = "Pays"
			DropDownListPays.DataValueField = "Pays"
			DropDownListPays.DataBind()
 
			MyDataSet.Clear()
 
		End If
 
		MyConnection.Close()
 
    End Sub
 
 
    Protected Sub DropDownListPays_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownListPays.SelectedIndexChanged
 
 
        MyConnection = New OleDbConnection()
        MyConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\SOCIETE\Access\AccessPortail.accdb;Persist Security Info=True"
        MyConnection.Open()
 
 
        Requete = "SELECT DISTINCT Site FROM Incidents "
        Requete += "WHERE Pays= '" + DropDownListPays.SelectedValue.ToString() + "' "
        Requete += "ORDER BY Site ASC"
        MyCommand = New OleDbCommand(Requete, MyConnection)
 
        MyDataAdapter = New OleDbDataAdapter(MyCommand)
        MyDataSet = New DataSet
        MyDataAdapter.Fill(MyDataSet, "Site")
 
        DropDownListSite.DataSource = MyDataSet
        DropDownListSite.DataTextField = "Site"
        DropDownListSite.DataBind()
 
        MyDataSet.Clear()
        MyConnection.Close()
 
    End Sub
End Class

Encore Merci !

Bien cordialement,

Tan