Remplacer Select par DropDownList

Version imprimable

bonjour
voici un bout de code qui fonctionne correctement
le code 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
<%@ 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:

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!

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:

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.

31/05/2007, 16h37
alicia26

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!
31/05/2007, 16h51
alicia26

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

Code:

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:

Une valeur de type 'String' ne peut pas être convertie en 'System.Data.DataSet'
31/05/2007, 17h01
zooffy

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.

@+
31/05/2007, 17h04
zooffy

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 ?

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:

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

01/06/2007, 09h36
zooffy
Ben oui, ça ne amrche pas dans ce sens là.
Tu envois un DataGrid, alors qu'il faut remplir une DataTable.

Reprenons dans l'ordre :
- tu mets une DropDownList dans ta page ASPX
Code:

1 2 <asp:DropDownList ID="lstMaListe" runat="server"></asp:DropDownList>
- tu prépares ta requête dans un coin
Code:

1 2 maRQ = "SELECT maValeur, monLibellé FROM maTable WHERE mesConditions"
- Tu appelle la fonction que je t'ai filé en lui passant comme paramettre le nom de liste et la requête
Code:

1 2 RemplirListeDer(maRQ,lstMaListe)
- Dans la fonction, tu exécute la requête pour remplir la DataTable et ta liste se rempli, tout simplement.

Ensuite tu reprend ton code pour faire réagir ton DataGrid en fonction de la DropDownList.

La fonction que je t'ai donné ne sert uq'à remplir une liste, c'est tout et rien de plus. Elle n'ai pas en lien avec un dataGrid ou autre chose du genre.
Certes, j'aurais du nétoyer le code de mes ajouts personnels. Le DataManager n'est pas un objet du FrameWork, mais une création perso pour gérer plus facilement mes requêtes.

Est ce que c'est plus clair comme ça ?
06/06/2007, 19h47
alicia26

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++