ドロップダウンリストにデータを入力するにはどうすればよいですか？

Question

私はdropdownlistを持っており、特定の値と特定のテキストを入力したいと思っています。私はdatasourceを使用していませんが、手動で接続を行い、コードでデータを取得しています。このdropdownlistをどのように埋め込むことができますか？ datareaderでデータを読み取り、配列をインクリメントすると、値またはテキストのいずれかしか得られません。これは私がこれまで持っているものであるが、それは完全に間違っている：

//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() 

は、どのように私は、これはDepartmentのクラスオブジェクトを作成することなく、仕事を得ることができますか？とにかく、またはクラスオブジェクトを作成する必要がありますか？

Answer 1

通常のやり方で特別な理由はありますか？

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

辞書オブジェクトを使用する場合はArrayListを使用する代わりに、名前と値を格納できます。このような

何かはそれを

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

代わりのデータソース/データバインド（）アプローチを使用して行う必要があり、あなたは、単にリスト項目を作成し、ドロップダウンリストにそれらを追加することができます。

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

これはどうですか。

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

あなたはすでにこれだけのDataTableとバインドにそのポップリーダーを使用している：

//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()