Wie kann ich eine Dropdown-Liste mit Daten füllen?

Question

Ich habe eine dropdownlist, die ich mit einem bestimmten Wert und einem bestimmten Text füllen möchte. Ich benutze keine datasource, aber ich mache manuell eine Verbindung und Abrufen von Daten im Code. Wie kann ich diese dropdownlist füllen? Wenn ich die Daten mit einem datareader lese und ein Array inkrementiere, erhalte ich nur den Wert oder den Text. Das ist, was ich bisher, aber es ist völlig falsch:

//connection string etc goes here 
Dbcmd2.CommandText = "select dept,deptname from table" 

Dim dr As SqlClient.SqlDataReader 
    dr = Dbcmd2.ExecuteReader 
    Dim i As Integer 
    Dim arydept As New arraylist 
    While dr.Read 
     arydept.Add(dr1("dept")) 
    End While 

    ddldept.datasource = arydept 
    ddldept.DataTextField = ???????? 
    ddldept.DataValueField = dr("dept") 
    ddldept.DataBind() 

Wie kann ich diese ohne zu arbeiten, mit einem Klassenobjekt für Department zu schaffen? Gibt es überhaupt oder sollte ich das Klassenobjekt erstellen?

Answer 1

Gibt es einen bestimmten Grund, dass Sie es auf die normale Weise tun können?

Dbcmd2.CommandText = "select dept,deptname from table" 
Dim dr As SqlClient.SqlDataReader = Dbcmd2.ExecuteReader 
While dr.Read() 
    ddldept.Items.Add(new ListItem(dr("deptname"),dr("dept")) 
End While 
' ddldept is now populated with all items from the query 

Answer 2

Statt eine Arraylist zu verwenden, wenn Sie ein Wörterbuch-Objekt verwenden, dann können Sie den Namen speichern und den Wert.

So etwas sollte es tun

Dim All As New Dictionary(Of String, String) 
All.Add("Test", 1) 
All.Add("Test2", 2) 
test.DataSource = All 
test.DataTextField = "Key" 
test.DataValueField = "Value" 
test.DataBind() 

Answer 3

Statt die Datenquelle/databind() Ansatz der Verwendung, könnten Sie einfach die Listenelemente erstellen und fügen Sie sie in Ihre Dropdownlist.

dr = Dbcmd2.ExecuteReader 
    Dim i As Integer 
    Dim arydept As New arraylist 

    ddldept.Items.Clear() 
    While dr.Read 
     ddldept.Items.Add(new ListItem(dr1("dept"), dr1("dept"))) 
    End While 

Answer 4

Wie wäre es mit diesem?

ddldept.Items.Clear() 

While dr.Read 
    ListItem item = New ListItem() 
    item.Text = dr("deptname").ToString() 
    item.Value = dr("dept").ToString() 

    ddldept.Items.Add(item) 
End While 

Answer 5

Sie sind bereits den Leser mit so nur Pop, die in eine Datentabelle und binden:

//connection string etc goes here 
Dbcmd2.CommandText = "select dept,deptname from table" 

Dim dr As SqlClient.SqlDataReader 
dr = Dbcmd2.ExecuteReader 
Dim myData as DataTable 
If dr.HasRows Then 
    myData.Load(dr) 
End If 

ddldept.datasource = myData 
ddldept.DataTextField = myData("myTextField") 
ddldept.DataValueField = myData("dept") 
ddldept.DataBind()