掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックスの表示に関して (ID:147831)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
教えて下さい。 以下のように、Oracleから取得したデータを、コンボボックスのデータとして表示させたいと 考えていますが、下記のように記述した場合、コンボボックスのデータが、Windows7では表示され ますが、WindowsXP では表示されません。 PC個別の問題か、あるいはWindows update かと思い、複数台のPCや最新のWindows Updateを しましたが、現象は変わりませんでした。 何か記述に問題があるか?ご指摘頂ければ幸いです。 よろしくお願いします。 《記述内容》 Dim Connection As New OracleConnection Dim Command As OracleCommand 'Oracleへのコネクションの確立 Connection.ConnectionString = "User Id=XXXXX; Password=00000; Data Source=XE" 'オープン Connection.Open() 'コマンド作成 Command = Connection.CreateCommand Try Dim dt1 = New DataTable Dim ds1 As New DataSet Dim Select_SQL As String 'SQL文作成 Select_SQL = "SELECT 部品コード,部品名称 FROM T_部品名称" Select_SQL = String.Concat(Select_SQL, " ORDER BY 部品コード") Dim adp1 As New OracleDataAdapter(Select_SQL, Connection) ds1.Clear() 'データセットの中にT_部品名称というテーブルを作成し、そこへ格納する。 adp1.Fill(ds1, "T_部品名称") ' コンボボックスに部品名称テーブルを連結する CMB_部品名称.DataSource = ds1.Tables("T_部品名称") ' コンボボックスに部品名称を表示する CMB_部品名称.DisplayMember = "部品名称" ' 部品コードをSelectdValueで取得する CMB_部品名称.ValueMember = "部品コード" Catch ex As Exception 例外が発生した時の処理 MessageBox.Show(ex.ToString, "例外発生") End Try
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.