コンボボックスの表示に関して (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

←解決時は質問者本人がここをチェックしてください。

戻る