Comboboxのitemにvaluemember,displaymemberを設定する方法を知りたいです。

前提・実現したいこと

以前質問したのですが、私の質問が質問になっていなかったため、再度投稿させていただきました。
以前の質問に回答いただいていた方は誠に申し訳ございません。

VB.NETで最近勉強を始めた初心者です。
現在、dreadを使ってSQLServerからデータを読みだし、コンボボックスにitemとして格納しています。

以下のソースの場合、itemに対してDisplaymemberまたはvaluememberを設定する方法を教えていただきたく思います。

発生している問題・エラーメッセージ

Displaymemberやvaluememberを反映させることが出来ていません。

該当のソースコード

vb
1 Dim dread As SqlClient.SqlDataReader
2        Dim str As String = String.Empty
3        Try
4            Using conn As New SqlClient.SqlConnection(pubSqlConnectionString)
5                conn.Open()
6                Using cmd As New SqlClient.SqlCommand()
7                    cmd.Connection = conn
8                    cmd.CommandText =
9                                "Select NO,CD,MB,MN                                     " & ControlChars.NewLine &
10                                "FROM  Test2                                                   " & ControlChars.NewLine &
11                                "WHERE   BNN = '" & login_Pass.text & "'                " & ControlChars.NewLine
12                    dread = cmd.ExecuteReader()
13
14                    Do While dread.Read()
15                        Dim iIdx As Integer
16                        Dim NO As String, CD As String, MB As String, MN As String
17                        iIdx = dread.GetOrdinal("NO")
18                        NO = dread(iIdx)
19                        iIdx = dread.GetOrdinal("CD")
20                        CD = dread(iIdx)
21                        iIdx = dread.GetOrdinal("MB")
22                        MB = dread(iIdx)
23                        iIdx = dread.GetOrdinal("MN")
24                        MN = dread(iIdx)
25
26                        Me.NO.Items.Add(NO + CD + MB + MN)
27                        Me.NO.ValueMember = Me.ODNO.Items(NO)
28                    Loop
29                End Using
30            End Using
31        Catch
32           
33        End Try

試したこと

補足情報（FW/ツールのバージョンなど）

VisualStudio2019

退会済みユーザー

2020/08/05 04:07

https://teratail.com/questions/282229 の話ですよね。質問は編集できるので、同じ課題で新たにスレッドを立てるのは止めて、前のスレッドの質問を編集するようにしてください。スレッドの乱立はノイズが増えるので好ましくないです（はっきり言うと迷惑なのです）。

退会済みユーザー

2020/08/06 00:56

申し訳ございません。以後気を付けたいと思います。

行動規範の内容に同意します

回答1件

ベストアンサー

一旦DataTableに格納すると扱いやすいと思います。

vbnet
1    cmd.CommandText = "Select Column1, Column2 FROM TestTable "
2
3    'select結果をDataTableに格納
4    Dim adp = New SqlDataAdapter(cmd)
5    Dim table As New DataTable
6    adp.Fill(table)
7
8    'DisplayMember,ValieMemberに使用するカラムを指定し
9    'DataSourceにDataTableを設定する
10    ComboBox1.DisplayMember = "Column1"
11    ComboBox1.ValueMember = "Column2"
12    ComboBox1.DataSource = table