Remplacer Select par DropDownList

**alicia26** · 31/05/2007, 12h09

bonjour
voici un bout de code qui fonctionne correctement
le code vb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
 
<html>
<script language="VB" runat="server">
 
    Sub Agent_Click(Sender As Object, E As EventArgs) 
 
        Dim DS As DataSet
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlDataAdapter
 
        Dim SelectCommand As String = "select * from agent where structure= @structure"
 
        MyConnection = New SqlConnection("Server=(local); Initial Catalog='mission';" _
            & " Trusted_Connection=True;")
        MyCommand = New SqlDataAdapter(SelectCommand, MyConnection)
 
        MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@structure", SqlDbType.VarChar, 2))
        MyCommand.SelectCommand.Parameters("@structure").Value = MySelect.Value
 
        DS = new DataSet()
        MyCommand.Fill(DS, "agent")
 
        MyDataGrid.DataSource = DS.Tables("agent").DefaultView
        MyDataGrid.DataBind()
    End Sub
 
</script>

et la partie asp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<body style="font: 10pt verdana">
 
  <form id="Form1" runat="server">
 
    <h3><font face="Verdana">Afficher vers un contrôle</font></h3>
 
    Sélectionnez un état : 
 
    <select id="MySelect" runat="server">
      <option>DI</option>
      <option>II</option>  
      <option>KO</option>  
      <option>KK</option>  
      <option>MI</option>  
      <option>OR</option> 
      <option>TN</option>  
      <option>UT</option>  
    </select>
 
    <input id="Submit1" type="submit" OnServerClick="Agent_Click" Value="Obtenir les auteurs" runat="server"/><p>
 
    <ASP:DataGrid id="MyDataGrid" runat="server"
      Width="700"
      BackColor="#ccccff" 
      BorderColor="black"
      ShowFooter="false" 
      CellPadding=3 
      CellSpacing="0"
      Font-Names="Verdana"
      Font-Size="8pt"
      HeaderStyle-BackColor="#aaaadd"
      EnableViewState="false"
    />
 
  </form>
 
</body>
</html>

ce code permet d'afficher le contenu d'une table à partir d'une valeur sélectionnez dans le "select".
Seulement j'aimerai le remplacer par un dropdownlist afin qu'il ne s'affiche que la(les) valeur(s) stockées dans la base
Merci pour vos suggestions!

**zooffy** · 31/05/2007, 16h10

Salut

Je pense que j'ai fait un petite fonction qui devrait te satisfaire. Je te le donne et tu me dira ce que tu en penses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Public Shared Sub RemplirListeDer(ByVal idRQ As String, ByRef nomListe As DropDownList)
		Dim dm As New DataManager("DataCon")
		Dim dt As DataTable
		dt = dm.ExecuterRequeteTabulaire(idRQ)
		For i As Int16 = 0 To dt.Rows.Count - 1
			nomListe.Items.Add(New ListItem(dt.Rows(i).Item(1), dt.Rows(i).Item(0)))
		Next
End Sub

Alors il faut tout de même que je t'explique tout ça parce que y a du FrameWork Technique perso.
L'idée à retenir c'est que tu obtiennes une DataTable avec deux colonnes Valeur et Libellé. Tu place simplement un DropDonwList dans la page ASPX avec juste un ID et rien d'autre, enfin sauf si tu veux mettre des option apr défaut en plus de ce qu'il y a dans la BDD.
Ensuite, dans la fonction du envoi la requête qui va bien pour créer ta DataTable et hop, ça roule.
Le DataManager, tu n'y fait pas attention, j'ai fabriqué un truc quipermet de gérer plein de requête avec des fonction simple pour ne aps retaper en permananece les connexions à la base de données, la gestion des commandes et touti quanti...

Voilà, si ça peut t'aider.

**alicia26** · 31/05/2007, 16h37

merci pour ta réponse
alors si je comprend bien, il faut créer une autre table ,sauf si je n'ai rien compris à ton code????!!!.
J'aimerai utliser un champ de ma table tout simplement.
Bon,je teste le code tout de même!

**alicia26** · 31/05/2007, 16h51

je suis entrain de tester le code,mais à la compil,j'ai l'erreur suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataManager: "Type 'DataManager' non défini"

et je l'ai remplacé par DataViewManager

DataCon et dm.ExecuterRequeteTabulaire sont soulignés et cette erreur s'affiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Une valeur de type 'String' ne peut pas être convertie en 'System.Data.DataSet'

**zooffy** · 31/05/2007, 17h01

Nom, pas une table au sens SQL du terme, mais une DataTable au sens ASP.NET.

Tu dois générer une DataTable qui se rempli avec tes données venant de ta BDD. Ta DataTable aura deux colonne correspondant à la Valeur et au Libellé qui seront envoyé dans la DropDonwList.

Dis si ton test à marché ou renvoi l'éventuel message d'erreur que tu aura.

@+

**zooffy** · 31/05/2007, 17h04

OOOps, trop de temps pour répondre.

Alors suite à ton message, oui, DataManager, tu ne le connais pas car c'est un objet personnel.

DataCon c'est le nom de ma connectionString dans mon Web.config.
Et dm.ExecuterRequeteTabulaire c'est une des fonction de ma Classe DataManger qui me permet d'éxécuter simplement une requête tabulaire.

Donc il faut que tu remplace ces lignes là par l'exécution d'un requeête tabulaire qui va se déverser dans une DataTable.

Est ce que c'est plus clair comme ça ?

**alicia26** · 31/05/2007, 17h46

Syntaxiquement çà tourne,seulement le contenu mon datagrid ne s'affiche plus en fonction du champ sélectionné dans mon dropdownlist,il affiche toute la base
voici un bout de code behind retapé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub GetAuthors_Click(Sender As Object, E As EventArgs) 
 
        Dim DS As DataSet
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlDataAdapter
 
        Dim SelectCommand As String = "select idagent,matricule,noms,prenoms,email,qualite,objetmission,pays,ville from agent where structure= structure"
 
        MyConnection = New SqlConnection("Server=(local); Initial Catalog='mission';" _
            & " Trusted_Connection=True;")
        MyCommand = New SqlDataAdapter(SelectCommand, MyConnection)
 
        '  MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@structure", SqlDbType.VarChar, 2))
        '  MyCommand.SelectCommand.Parameters("@structure").Value = nomListe.Value
 
        DS = new DataSet()
        MyCommand.Fill(DS, "agent")
 
        MyDataGrid.DataSource = DS.Tables("agent").DefaultView
        MyDataGrid.DataBind()
    End Sub
    Public Shared Sub RemplirListeDer(ByVal idRQ As String, ByRef nomListe As DropDownList)
        'MyConnection As New DataManager("missionConnectionString")
        Dim dm = New SqlConnection("Server=(local); Initial Catalog='mission';" _
          & " Trusted_Connection=True;")
 
        Dim dt As DataTable
        dt = dm.GetAuthors_Click(idRQ)
        For i As Int16 = 0 To dt.Rows.Count - 1
            nomListe.Items.Add(New ListItem(dt.Rows(i).Item(1), dt.Rows(i).Item(0)))
        Next
    End Sub

**alicia26** · 06/06/2007, 19h47

merci pour ton aide

j'ai finalement réussi.
Aussi j'ai trouvé une propriété: DataTextField="mavaleur" qui permet de
récuperer le champ de la bdd.Et avec quelques modif dans le code vb,çà tourne correctement!

A++

Remplacer Select par DropDownList

ASP.NET

Vue hybride

Discussions similaires

Partager

Partager