C# と VB.NET の質問掲示板

お世話になります。不足がありまして申し訳ありません。

ＶＢはＶｉｓｕａｌ　Ｓｔｕｄｉｏ　２０１０です。
ＳＱＬはＳＱＬ　Ｓｅｒｖｅｒ　２０１２　です。
Ｆｏｒｍを使って作成しています。

ソースは以下のように作成しています。

        Dim dSet As DataSet = New DataSet("分類Ａ")
        Dim dSet2 As DataSet = New DataSet("分類Ｂ")
        Dim dAdp As SqlClient.SqlDataAdapter
        Dim dAdp2 As SqlClient.SqlDataAdapter
        Dim scn As New SqlClient.SqlConnection("ＳＱＬサーバーへの接続パス")

        dAdp = New SqlClient.SqlDataAdapter("select 分類Ｂ名 from　分類マスタ", scn)
        dAdp.Fill(dSet, "分類マスタ")
        dAdp2 = New SqlClient.SqlDataAdapter("select distinct 分類Ａ名 from 分類マスタ", scn)
        dAdp2.Fill(dSet2, "分類マスタ")

        cmbCHUNAME.DataSource = dSet.Tables("分類マスタ")
        cmbDAINAME.DataSource = dSet2.Tables("分類マスタ")
        cmbCHUNAME.DisplayMember = "分類Ｂ名"
        cmbDAINAME.DisplayMember = "分類Ａ名"
        cmbCHUNAME.SelectedItem = "分類Ｂ"
        cmbDAINAME.SelectedItem = "分類Ａ"

以上、よろしくお願いします。

■No66609 (まさ さん) に返信

DB読込は出来ている物として
DataTableを用いたサンプルを載せます。
ComboBox,BindingSourceはデザイナで貼りつけてあるものとします。

        Dim tbl1 As New DataTable
        With tbl1.Columns
            .Add("分類A", GetType(Integer))
            .Add("分類A名", GetType(String))
        End With
        Dim tbl2 As New DataTable
        With tbl2.Columns
            .Add("分類A", GetType(Integer))
            .Add("分類B", GetType(Integer))
            .Add("分類B名", GetType(String))
        End With

        With tbl1.Rows
            .Add(1, "りんご")
            .Add(2, "みかん")
        End With

        With tbl2.Rows
            .Add(1, 11, "ふじ")
            .Add(1, 12, "むつ")
            .Add(1, 13, "ジョナ")
            .Add(2, 21, "オレンジ")
            .Add(2, 22, "伊予かん")
        End With

        BindingSource1.DataSource = tbl1
        ComboBox1.DataSource = BindingSource1
        ComboBox1.ValueMember = "分類A"
        ComboBox1.DisplayMember = "分類A名"

        BindingSource2.DataSource = tbl2
        BindingSource2.Filter = "1=0"
        ComboBox2.DataSource = BindingSource2
        ComboBox2.ValueMember = "分類B"
        ComboBox2.DisplayMember = "分類B名"




    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        BindingSource2.Filter = String.Format("分類A = {0}", ComboBox1.SelectedValue)
    End Sub

■No66612 (shu さん) に返信


shu様、大変、ありがとうございます。とても助かります。

まだ、ＶＢを初めて１ヶ月くらいなので、わからないことも多いのですが、
下記の分類に関する情報を直接プログラムに書き込むのではなく、
ＳＱＬサーバーのテーブル内からもってくるようにしたいのです。

>         With tbl1.Rows
>             .Add(1, "りんご")
>             .Add(2, "みかん")
>         End With
> 
>         With tbl2.Rows
>             .Add(1, 11, "ふじ")
>             .Add(1, 12, "むつ")
>             .Add(1, 13, "ジョナ")
>             .Add(2, 21, "オレンジ")
>             .Add(2, 22, "伊予かん")
>         End With

このようなときはどうすればよいのでしょうか？
大変申し訳ありませんが、よろしくお願いします。