tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: コンボボックスの記入位置
投稿日: 2005/09/20(Tue) 09:30
投稿者
[OSのVer]:Windows    [VBのVer]:VB.NET  
説明が足らずにすみません。
コードは下記のようになっています.
ただ、このようにコンボボックスの処理を列挙してもいいのかかが、わかりません・・。
すみません。

また、この処理でコンボボックスに 
複数行・・・ 所属コード・所属名と表示したいのですが、良い方法等ございませんでしょうか。
皆様にはお手数をお掛けして申し訳ございません.



    Private Sub F_社員メンテ_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.Load

        Dim oConn As New OleDb.OleDbConnection
        Dim oCommand As New OleDb.OleDbCommand
        Dim oDataAdapter As New OleDb.OleDbDataAdapter
        Dim oDataSet As DataSet = New DataSet


    '1個目のコンボボックス

        Try
            oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\SyaDBmdb"

            oCommand.Connection = oConn
            Const strselect As String = "SELECT * FROM T_分類"
            oCommand.CommandText = strselect

            '分類テーブルから全レコードデータを取得
            oDataAdapter.SelectCommand = oCommand
            oDataSet.Clear()
            oDataAdapter.Fill(oDataSet, "T_分類")

            'コンボボックスに分類テーブルを連結する
            cmd_CD.DataSource = oDataSet.Tables("T_分類")
      
      'コンボボックスに区分名・分類名表示設定
            cmd_CD.DisplayMember = "区分名"
            'cmd_CD.DisplayMember = "分類名"

            '区分名・分類名に対応した分類コードを設定
            cmd_CD.DisplayMember = "分類コード"

        Catch
            MsgBox(Err.Number & "," & Err.Description)
        End Try


    '2個目のコンボボックス

        Try
            oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\SyaDBmdb"

            oCommand.Connection = oConn

            Const strselectb As String = "SELECT * FROM T_所属"
            oCommand.CommandText = strselectb

            'T_所属テーブルから全レコードデータを取得
            oDataAdapter.SelectCommand = oCommand
            oDataSet.Clear()
            oDataAdapter.Fill(oDataSet, "T_所属")

            'コンボボックスにT_所属テーブルを連結する
            cmd_SCD.DataSource = oDataSet.Tables("T_所属")

            'コンボボックスに分類名を表示設定
            cmd_SCD.DisplayMember = "所属名"
            ''所属名に対応した所属コードを設定
            'cmd_SCD.DisplayMember = "所属コード"
        Catch
            MsgBox(Err.Number & "," & Err.Description)
        End Try

コードは
このようになっています。

宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。