[VB.NET] Problème de répétition dans une DropDownList

Bonjour, j'ai mit en place des DropDownList sur ma page qui sont alimenter par une requête SQL. Ca marche mais le problème et que les résultats sont affichés en boucle.

Par exemple, avec ma table "sites" qui contient "créteil" et "paris", ma dropdownlist "ddlsite" va m'afficher

créteil
paris
créteil
paris
créteil
paris
créteil
etc......

Quand je fais l'opération pour une seule DropDownList je n'ai pas ce problème, mais dès que je l'applique à plusieur dropdownlist ca ne marche plus.

Auriez vous une explication???

Voici mon code :

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

Sub Page_Load (Sender As Object, e As EventArgs)   Dim dReader As System.Data.SqlClient.SqlDataReader Dim MyConnection As System.Data.SqlClient.SqlConnection Dim connectionString As String   MyConnection = New System.Data.SqlClient.SqlConnection MyConnection.ConnectionString = "Server=(local); Initial Catalog='intervention'; Trusted_Connection=True;" MyConnection.Open()   Dim SqlCommand1 As System.Data.SqlClient.SqlCommand SqlCommand1 = new System.Data.SqlClient.SqlCommand SqlCommand1.Connection = MyConnection SqlCommand1.CommandText = "Select code_site, lib_site, code_service, lib_service, code_nature, lib_nature from sites, services, nature"   dReader = SqlCommand1.ExecuteReader() ddlsite.DataSource = dReader ddlsite.DataTextField = "lib_site" ddlsite.DataValueField = "code_site" ddlsite.DataBind() dReader.Close() dReader = SqlCommand1.ExecuteReader() ddlservice.DataSource = dReader ddlservice.DataTextField = "lib_service" ddlservice.DataValueField = "code_service" ddlservice.DataBind() dReader.Close() dReader = SqlCommand1.ExecuteReader() ddlplatef.DataSource = dReader ddlplatef.DataTextField = "lib_nature" ddlplatef.DataValueField = "code_nature" ddlplatef.DataBind() dReader.Close()   MyConnection.Close()     End sub

---

Erreur toute bête : Tu ne dois remplir tes drop down list que lors de la premiere demande de la page, et pas à chaque post back (ou au moins il faut vider celles-ci à chaque fois). Donc :

Code:

---

1 2 3 4 5

if( ! Page.IsPostback ) { //remplissage des ddl }

---

Attention, le premier admin qui passe va te rediriger vers la recherche dans les archives ;)

J'ai essayé de faire comme tu ma dit, mais cela ne fonctionne pas, j'ai toujours le même problème dès l'ouverture de ma page :
Voici un screen qui permet de bien voir le problème
www.btscam.fr.st

et voici le code avec la prise en compte du postback :

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

Sub Page_Load (Sender As Object, e As EventArgs)   Dim dReader As System.Data.SqlClient.SqlDataReader Dim MyConnection As System.Data.SqlClient.SqlConnection Dim connectionString As String   MyConnection = New System.Data.SqlClient.SqlConnection MyConnection.ConnectionString = "Server=(local); Initial Catalog='intervention'; Trusted_Connection=True;" MyConnection.Open()   Dim SqlCommand1 As System.Data.SqlClient.SqlCommand SqlCommand1 = new System.Data.SqlClient.SqlCommand SqlCommand1.Connection = MyConnection SqlCommand1.CommandText = "Select sites.code_site, sites.lib_site, services.code_service, services.lib_service, nature.code_nature, nature.lib_nature from sites, services, nature" If Not IsPostBack Then dReader = SqlCommand1.ExecuteReader() ddlsite.DataSource = dReader ddlsite.DataTextField = "lib_site" ddlsite.DataValueField = "code_site" ddlsite.DataBind() dReader.Close() dReader = SqlCommand1.ExecuteReader() ddlservice.DataSource = dReader ddlservice.DataTextField = "lib_service" ddlservice.DataValueField = "code_service" ddlservice.DataBind() dReader.Close() dReader = SqlCommand1.ExecuteReader() ddlplatef.DataSource = dReader ddlplatef.DataTextField = "lib_nature" ddlplatef.DataValueField = "code_nature" ddlplatef.DataBind() dReader.Close()   MyConnection.Close() End if

---

AH bon, dans ce cas tu es sur que ce n'est pas simplement ce que tu as en base qui est démultiplié ?

oui oui sur et certain, dans ma table "site" je n'ai que "créteil" "paris" "versaille" :oops:

C'est bon le problème est résolu, merci beaucoup :D

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

Sub Page_Load (Sender As Object, e As EventArgs)   Dim dReader As System.Data.SqlClient.SqlDataReader Dim MyConnection As System.Data.SqlClient.SqlConnection Dim connectionString As String   MyConnection = New System.Data.SqlClient.SqlConnection MyConnection.ConnectionString = "Server=(local); Initial Catalog='intervention'; Trusted_Connection=True;" MyConnection.Open()   Dim SqlCommand1 As System.Data.SqlClient.SqlCommand SqlCommand1 = new System.Data.SqlClient.SqlCommand SqlCommand1.Connection = MyConnection SqlCommand1.CommandText = "Select code_site,lib_site from sites" Dim SqlCommand2 As System.Data.SqlClient.SqlCommand SqlCommand2 = new System.Data.SqlClient.SqlCommand SqlCommand2.Connection = MyConnection SqlCommand2.CommandText = "Select code_service,lib_service from services" Dim SqlCommand3 As System.Data.SqlClient.SqlCommand SqlCommand3 = new System.Data.SqlClient.SqlCommand SqlCommand3.Connection = MyConnection SqlCommand3.CommandText = "Select code_nature,lib_nature from nature"       dReader = SqlCommand1.ExecuteReader() ddlsite.DataSource = dReader ddlsite.DataTextField = "lib_site" ddlsite.DataValueField = "code_site" ddlsite.DataBind() dReader.Close()   dReader = SqlCommand2.ExecuteReader() ddlservice.DataSource = dReader ddlservice.DataTextField = "lib_service" ddlservice.DataValueField = "code_service" ddlservice.DataBind() dReader.Close()   dReader = SqlCommand3.ExecuteReader() ddlplatef.DataSource = dReader ddlplatef.DataTextField = "lib_nature" ddlplatef.DataValueField = "code_nature" ddlplatef.DataBind() dReader.Close() MyConnection.Close()       End sub

---