Changement du selectedindex dans une dropdownlist

Version imprimable

Je souhaite modifier les donnees dans les dropdownlist en fonction du chois de la dropdownlist10. Je prend l'evenement dropdownlist.SelectedIndexChanged, recupere l'index de la liste pour en faire un requete, je ne vois aucun changement why :lol:
ou je dois faire autre chose ou d'une autre maniere?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Protected Sub DropDownList10_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.SelectedIndexChanged
 
 
        ' Charge les donnees du template Hardware
        CnxStaging.Open() ' Ferme la connexion
 
        Dim StrSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate WHERE IdHarwareTemplate=" & DropDownList10.SelectedIndex
        Dim CmdHardware As New SqlCommand(StrSqlHardwareTemplate, CnxStaging)
        Dim DrHardware As SqlDataReader = CmdHardware.ExecuteReader
        If DrHardware.Read Then
            If IsDBNull(DrHardware("Hardware_MemoryBase")) = False Then DropDownList3.Text = DrHardware("Hardware_MemoryBase").ToString
            If IsDBNull(DrHardware("Hardware_CpuType")) = False Then DropDownList4.Text = DrHardware("Hardware_CpuType").ToString
            If IsDBNull(DrHardware("Hardware_CpuNumber")) = False Then DropDownList5.Text = DrHardware("Hardware_CpuNumber").ToString
            If IsDBNull(DrHardware("Hardware_NetWorkLinks")) = False Then DropDownList6.Text = DrHardware("Hardware_NetWorkLinks").ToString
        End If
        DrHardware.Close() ' Ferme le datareader
        CnxStaging.Close() ' Ferme la connexion
 
    End Sub

19/10/2007, 14h31
aloisio11

Salut,

<asp:DropDownList ID="ddlDevise" AutoPostBack="true" runat="server" >

Il faut pas oublié le AutoPostBack="true"[/
19/10/2007, 14h41
thierry007

Mais quand je met le postback a true pour le drodownlist10, il me reaffiche tout le temps la valeur qu'il a par defaut de la liste :oops:
19/10/2007, 14h50
aloisio11

JE peux voir le code du loadde la page STP ?
19/10/2007, 14h54
lutecefalco

Citation:

Envoyé par thierry007

Mais quand je met le postback a true pour le drodownlist10, il me reaffiche tout le temps la valeur qu'il a par defaut de la liste :oops:

Tu dois initialiser ta ddl10 dans le OnLoad je pense.
Si c'est le cas, un ptit If Not IsPostBack et le tour est joué

Ok merci vais essayer ce soir en attendant voici le code
Merci

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports Infragistics.WebUI.WebControls
Imports System.Web.UI.HtmlControls
Imports Infragistics.WebUI.WebDataInput
 
Partial Class RequestStaging
 
    Inherits System.Web.UI.Page
    Dim CnxStaging As New SqlConnection("Data Source=LLUXSAPP311;Initial Catalog=Staging2;Integrated Security=True")
    Dim StrRequest As String
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        'Construction de la chaine avec les parametres de la page default
        StrRequest = Me.Request.Params("Id1") & " - "
        StrRequest &= Me.Request.Params("Id2") & " - "
        StrRequest &= Me.Request.Params("Id3")
        Label3.Text = StrRequest
 
        CnxStaging.Open() ' Ouvre la connexion
 
        ' Charge les donnees domaine dans la droplist
        Dim StringSqlDomaine = "SELECT * FROM TblDomain"
        Dim Da As New SqlDataAdapter(StringSqlDomaine, CnxStaging)
        Dim Ds As New DataSet("TblDomain")
        Da.Fill(Ds, "TblDomain")
        DropDownList1.DataSource = Ds
        DropDownList1.DataValueField = Ds.Tables("TblDomain").Columns(0).ToString
 
        DropDownList1.DataBind()
 
 
        ' Charge les donnees d environement
        Dim StringSqlEnvironement = "SELECT * FROM TblEnvironment"
        Dim DaEnvironement As New SqlDataAdapter(StringSqlEnvironement, CnxStaging)
        Dim DsEnvironement As New DataSet("TblEnvironment")
        DaEnvironement.Fill(DsEnvironement, "TblEnvironment")
        DropDownList2.DataSource = DsEnvironement
        DropDownList2.DataValueField = DsEnvironement.Tables("TblEnvironment").Columns(0).ToString
 
        DropDownList2.DataBind()
 
        ' Charge les donnees de memoire
        Dim StringSqlMemory = "SELECT * FROM TblMemory"
        Dim DaMemory As New SqlDataAdapter(StringSqlMemory, CnxStaging)
        Dim DsMemory As New DataSet("TblMemory")
        DaMemory.Fill(DsMemory, "TblMemory")
        DropDownList3.DataSource = DsMemory
        DropDownList3.DataValueField = DsMemory.Tables("TblMemory").Columns(0).ToString
 
        DropDownList3.DataBind()
 
 
        ' Charge les donnees de type de Cpu
        Dim StringSqlCpuType = "SELECT * FROM TblTypeCpu"
        Dim DaCpuType As New SqlDataAdapter(StringSqlCpuType, CnxStaging)
        Dim DsCpuType As New DataSet("TblTypeCpu")
        DaCpuType.Fill(DsCpuType, "TblTypeCpu")
        DropDownList4.DataSource = DsCpuType
        DropDownList4.DataValueField = DsCpuType.Tables("TblTypeCpu").Columns(0).ToString
        DropDownList4.Text = Nothing
        DropDownList4.DataBind()
 
        ' Charge les donnees de type de Network links
        Dim StringSqlNetWorkLinks = "SELECT * FROM TblNetWorkLinks"
        Dim DaNetWorkLinks As New SqlDataAdapter(StringSqlNetWorkLinks, CnxStaging)
        Dim DsNetWorkLinks As New DataSet("TblNetWorkLinks")
        DaNetWorkLinks.Fill(DsNetWorkLinks, "TblNetWorkLinks")
        DropDownList6.DataSource = DsNetWorkLinks
        DropDownList6.DataValueField = DsNetWorkLinks.Tables("TblNetWorkLinks").Columns(0).ToString
 
        DropDownList6.DataBind()
 
 
        ' Charge les donnees du template 
        Dim StringSqlServerTemplate = "SELECT * FROM TblServerTemplate WHERE IdServerTemplate=1" '& CInt(Me.Request.Params("Id1"))
        Dim Cmd As New SqlCommand(StringSqlServerTemplate, CnxStaging)
        Dim DrServerTemplate As SqlDataReader = Cmd.ExecuteReader
        If DrServerTemplate.Read Then
            ' Tabs Template
            If IsDBNull(DrServerTemplate("Template_ServerName")) = False Then TextBox1.Text = DrServerTemplate("Template_ServerName").ToString
            If IsDBNull(DrServerTemplate("Template_ConfigType")) = False Then TextBox2.Text = DrServerTemplate("Template_ConfigType").ToString
            If IsDBNull(DrServerTemplate("Template_Domaine")) = False Then DropDownList1.Text = DrServerTemplate("Template_Domaine").ToString
            If IsDBNull(DrServerTemplate("Template_OU")) = False Then TextBox4.Text = DrServerTemplate("Template_OU").ToString
            If IsDBNull(DrServerTemplate("Template_InventoryOwner")) = False Then TextBox5.Text = DrServerTemplate("Template_InventoryOwner").ToString
            If IsDBNull(DrServerTemplate("Template_Environement")) = False Then DropDownList2.Text = DrServerTemplate("Template_Environement").ToString
            If IsDBNull(DrServerTemplate("Template_ServerDescription")) = False Then TextBox6.Text = DrServerTemplate("Template_ServerDescription").ToString
            If IsDBNull(DrServerTemplate("Template_PatchingPhase")) = False Then TextBox7.Text = DrServerTemplate("Template_PatchingPhase").ToString
            If IsDBNull(DrServerTemplate("Template_RebootTimeFrame")) = False Then TextBox8.Text = DrServerTemplate("Template_RebootTimeFrame").ToString
            If IsDBNull(DrServerTemplate("Template_MaintenanceTimeFrame")) = False Then TextBox9.Text = DrServerTemplate("Template_MaintenanceTimeFrame").ToString
            If IsDBNull(DrServerTemplate("Template_Comments")) = False Then TextBox10.Text = DrServerTemplate("Template_Comments").ToString
            CheckBox1.Checked = DrServerTemplate("Template_Confidenciality")
            If IsDBNull(DrServerTemplate("TargetInstallationDate")) = False Then TextBox11.Text = DrServerTemplate("TargetInstallationDate").ToString
            DrServerTemplate.Close() ' Ferme le datareader
        End If
 
 
        ' Charge les donnees Hardware dans la droplist
        Dim StringSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate"
        Dim DaHardwareTemplate As New SqlDataAdapter(StringSqlHardwareTemplate, CnxStaging)
        Dim DsHardwareTemplate As New DataSet("TblHardwareTemplate")
        DaHardwareTemplate.Fill(DsHardwareTemplate, "TblHardwareTemplate")
        DropDownList10.DataSource = DsHardwareTemplate
        DropDownList10.DataValueField = DsHardwareTemplate.Tables("TblHardwareTemplate").Columns(1).ToString
        DropDownList10.DataBind()
 
 
        CnxStaging.Close() ' Ferme la connexion
 
    End Sub
 
    Protected Sub DropDownList10_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.SelectedIndexChanged
 
 
        ' Charge les donnees du template Hardware
        CnxStaging.Open() ' Ferme la connexion
 
        Dim StrSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate WHERE IdHardwareTemplate=" & DropDownList10.SelectedIndex
        TextBox3.Text = DropDownList10.SelectedIndex
        Dim CmdHardware As New SqlCommand(StrSqlHardwareTemplate, CnxStaging)
        Dim DrHardware As SqlDataReader = CmdHardware.ExecuteReader
        If DrHardware.Read Then
            If IsDBNull(DrHardware("Hardware_MemoryBase")) = False Then DropDownList3.Text = DrHardware("Hardware_MemoryBase").ToString
            If IsDBNull(DrHardware("Hardware_CpuType")) = False Then DropDownList4.Text = DrHardware("Hardware_CpuType").ToString
            If IsDBNull(DrHardware("Hardware_CpuNumber")) = False Then DropDownList5.Text = DrHardware("Hardware_CpuNumber").ToString
            If IsDBNull(DrHardware("Hardware_NetWorkLinks")) = False Then DropDownList6.Text = DrHardware("Hardware_NetWorkLinks").ToString
        End If
        DrHardware.Close() ' Ferme le datareader
        CnxStaging.Close() ' Ferme la connexion
 
 
 
 
    End Sub
 
    Protected Sub DropDownList10_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.TextChanged
 
 
    End Sub
End Class

19/10/2007, 15h26
lutecefalco

C'est bien ce que j'ai dit

Le DropdownList10 est bien initialisé dans le loadpage
le if not ispostback lui doit encarde l'initialisation du dropdownlist10
mais j'ai quand même le stude voici la source modifiée
Si parcontre tu estime que je fais fausse route dans la code complet je prefere que tu me le dise afin de corriger cela des le depart, je te rappel que je sui debutant en ASP.NET

Merci du coup de main

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports Infragistics.WebUI.WebControls
Imports System.Web.UI.HtmlControls
Imports Infragistics.WebUI.WebDataInput
 
Partial Class RequestStaging
 
    Inherits System.Web.UI.Page
    Dim CnxStaging As New SqlConnection("Data Source=LLUXSAPP311;Initial Catalog=Staging2;Integrated Security=True")
    Dim StrRequest As String
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        'Construction de la chaine avec les parametres de la page default
        StrRequest = Me.Request.Params("Id1") & " - "
        StrRequest &= Me.Request.Params("Id2") & " - "
        StrRequest &= Me.Request.Params("Id3")
        Label3.Text = StrRequest
 
        CnxStaging.Open() ' Ouvre la connexion
 
        ' Charge les donnees domaine dans la droplist
        Dim StringSqlDomaine = "SELECT * FROM TblDomain"
        Dim Da As New SqlDataAdapter(StringSqlDomaine, CnxStaging)
        Dim Ds As New DataSet("TblDomain")
        Da.Fill(Ds, "TblDomain")
        DropDownList1.DataSource = Ds
        DropDownList1.DataValueField = Ds.Tables("TblDomain").Columns(0).ToString
 
        DropDownList1.DataBind()
 
 
        ' Charge les donnees d environement
        Dim StringSqlEnvironement = "SELECT * FROM TblEnvironment"
        Dim DaEnvironement As New SqlDataAdapter(StringSqlEnvironement, CnxStaging)
        Dim DsEnvironement As New DataSet("TblEnvironment")
        DaEnvironement.Fill(DsEnvironement, "TblEnvironment")
        DropDownList2.DataSource = DsEnvironement
        DropDownList2.DataValueField = DsEnvironement.Tables("TblEnvironment").Columns(0).ToString
 
        DropDownList2.DataBind()
 
        ' Charge les donnees de memoire
        Dim StringSqlMemory = "SELECT * FROM TblMemory"
        Dim DaMemory As New SqlDataAdapter(StringSqlMemory, CnxStaging)
        Dim DsMemory As New DataSet("TblMemory")
        DaMemory.Fill(DsMemory, "TblMemory")
        DropDownList3.DataSource = DsMemory
        DropDownList3.DataValueField = DsMemory.Tables("TblMemory").Columns(0).ToString
 
        DropDownList3.DataBind()
 
 
        ' Charge les donnees de type de Cpu
        Dim StringSqlCpuType = "SELECT * FROM TblTypeCpu"
        Dim DaCpuType As New SqlDataAdapter(StringSqlCpuType, CnxStaging)
        Dim DsCpuType As New DataSet("TblTypeCpu")
        DaCpuType.Fill(DsCpuType, "TblTypeCpu")
        DropDownList4.DataSource = DsCpuType
        DropDownList4.DataValueField = DsCpuType.Tables("TblTypeCpu").Columns(0).ToString
        DropDownList4.Text = Nothing
        DropDownList4.DataBind()
 
        ' Charge les donnees de type de Network links
        Dim StringSqlNetWorkLinks = "SELECT * FROM TblNetWorkLinks"
        Dim DaNetWorkLinks As New SqlDataAdapter(StringSqlNetWorkLinks, CnxStaging)
        Dim DsNetWorkLinks As New DataSet("TblNetWorkLinks")
        DaNetWorkLinks.Fill(DsNetWorkLinks, "TblNetWorkLinks")
        DropDownList6.DataSource = DsNetWorkLinks
        DropDownList6.DataValueField = DsNetWorkLinks.Tables("TblNetWorkLinks").Columns(0).ToString
 
        DropDownList6.DataBind()
 
 
        ' Charge les donnees du template 
        Dim StringSqlServerTemplate = "SELECT * FROM TblServerTemplate WHERE IdServerTemplate=1" '& CInt(Me.Request.Params("Id1"))
        Dim Cmd As New SqlCommand(StringSqlServerTemplate, CnxStaging)
        Dim DrServerTemplate As SqlDataReader = Cmd.ExecuteReader
        If DrServerTemplate.Read Then
            ' Tabs Template
            If IsDBNull(DrServerTemplate("Template_ServerName")) = False Then TextBox1.Text = DrServerTemplate("Template_ServerName").ToString
            If IsDBNull(DrServerTemplate("Template_ConfigType")) = False Then TextBox2.Text = DrServerTemplate("Template_ConfigType").ToString
            If IsDBNull(DrServerTemplate("Template_Domaine")) = False Then DropDownList1.Text = DrServerTemplate("Template_Domaine").ToString
            If IsDBNull(DrServerTemplate("Template_OU")) = False Then TextBox4.Text = DrServerTemplate("Template_OU").ToString
            If IsDBNull(DrServerTemplate("Template_InventoryOwner")) = False Then TextBox5.Text = DrServerTemplate("Template_InventoryOwner").ToString
            If IsDBNull(DrServerTemplate("Template_Environement")) = False Then DropDownList2.Text = DrServerTemplate("Template_Environement").ToString
            If IsDBNull(DrServerTemplate("Template_ServerDescription")) = False Then TextBox6.Text = DrServerTemplate("Template_ServerDescription").ToString
            If IsDBNull(DrServerTemplate("Template_PatchingPhase")) = False Then TextBox7.Text = DrServerTemplate("Template_PatchingPhase").ToString
            If IsDBNull(DrServerTemplate("Template_RebootTimeFrame")) = False Then TextBox8.Text = DrServerTemplate("Template_RebootTimeFrame").ToString
            If IsDBNull(DrServerTemplate("Template_MaintenanceTimeFrame")) = False Then TextBox9.Text = DrServerTemplate("Template_MaintenanceTimeFrame").ToString
            If IsDBNull(DrServerTemplate("Template_Comments")) = False Then TextBox10.Text = DrServerTemplate("Template_Comments").ToString
            CheckBox1.Checked = DrServerTemplate("Template_Confidenciality")
            If IsDBNull(DrServerTemplate("TargetInstallationDate")) = False Then TextBox11.Text = DrServerTemplate("TargetInstallationDate").ToString
            DrServerTemplate.Close() ' Ferme le datareader
        End If
 
 
        If Not ispostback Then
            ' Charge les donnees Hardware dans la droplist
            Dim StringSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate"
            Dim DaHardwareTemplate As New SqlDataAdapter(StringSqlHardwareTemplate, CnxStaging)
            Dim DsHardwareTemplate As New DataSet("TblHardwareTemplate")
            DaHardwareTemplate.Fill(DsHardwareTemplate, "TblHardwareTemplate")
            DropDownList10.DataSource = DsHardwareTemplate
            DropDownList10.DataValueField = DsHardwareTemplate.Tables("TblHardwareTemplate").Columns(1).ToString
            DropDownList10.DataBind()
        End If
 
        CnxStaging.Close() ' Ferme la connexion
 
    End Sub
 
    Protected Sub DropDownList10_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.SelectedIndexChanged
 
 
        ' Charge les donnees du template Hardware
        CnxStaging.Open() ' Ferme la connexion
 
        Dim StrSqlHardwareTemplate = "SELECT * FROM TblHardwareTemplate WHERE IdHardwareTemplate=" & DropDownList10.SelectedIndex
        TextBox3.Text = DropDownList10.SelectedIndex
        Dim CmdHardware As New SqlCommand(StrSqlHardwareTemplate, CnxStaging)
        Dim DrHardware As SqlDataReader = CmdHardware.ExecuteReader
        If DrHardware.Read Then
            If IsDBNull(DrHardware("Hardware_MemoryBase")) = False Then DropDownList3.Text = DrHardware("Hardware_MemoryBase").ToString
            If IsDBNull(DrHardware("Hardware_CpuType")) = False Then DropDownList4.Text = DrHardware("Hardware_CpuType").ToString
            If IsDBNull(DrHardware("Hardware_CpuNumber")) = False Then DropDownList5.Text = DrHardware("Hardware_CpuNumber").ToString
            If IsDBNull(DrHardware("Hardware_NetWorkLinks")) = False Then DropDownList6.Text = DrHardware("Hardware_NetWorkLinks").ToString
        End If
        DrHardware.Close() ' Ferme le datareader
        CnxStaging.Close() ' Ferme la connexion
 
 
 
 
    End Sub
 
    Protected Sub DropDownList10_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList10.TextChanged
 
 
    End Sub
End Class

20/10/2007, 20h56
lutecefalco

T'es débutant en français aussi??? C'est vraiment pas agréable de lire tes messages ...

Sinon, je vois pas à quoi correspond la proprieté Text d'une dropdownlist
21/10/2007, 11h26
thierry007

Content de voir comme on peut se prendre la tête , je vois que tu es un pro dans tous les domaines :king:

Jusqua présent tu te contente de tourner autour du principal et de critiquer ouvertement l'approche des autres , ce n'est pas commme cela que tu avances.

J'ai demander si ma façon de faire était la bonne ou pas , ce que j'attents d'un forum c'est une discution entre personnes. Les critiques bêtes, un enfant de 8 ans peut aussi les faire.

Citation:

La critique est aisée
21/10/2007, 12h06
lutecefalco

Tu fais aucun effort dans la rédaction de tes posts.
C'est un manque de respect pour ceux qui te lisent.

Bonne chance à celui ou celle qui prendra la relève ici.
Moi j'arrête
21/10/2007, 12h08
thierry007

:salut:
21/10/2007, 12h11
thierry007

Quel francais faut il TE parler

Citation:

Le DropdownList10 est bien initialisé dans le loadpage
le if not ispostback lui doit encarde l'initialisation du dropdownlist10
mais j'ai quand même le stude voici la source modifiée
Si parcontre tu estime que je fais fausse route dans la code complet je prefere que tu me le dise afin de corriger cela des le depart, je te rappel que je sui debutant en ASP.NET

Merci du coup de main
21/10/2007, 12h19
lutecefalco

Un français avec de la ponctuation, des majuscules en début de phrase, des espaces entre les mots, un "s" au pluriel, un "s" à la 2ème personne du singulier...
En gros, le français que t'apprends à l'école primaire
21/10/2007, 13h02
thierry007

Le problème est donc résolut en 13-14 post là tu bas les records
:bravo:
:resolu:

Je préfère en rester là dans cette discution et voir apres des personnes compétentes