タイトル : 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 コードは このようになっています。 宜しくお願い致します。 |