質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

2回答

1340閲覧

VB2015でMySQLのデータをコンボボックスに入れたい

NextToYou

総合スコア28

MySQL

MySQL(マイエスキューエル)は、TCX DataKonsultAB社などが開発するRDBMS(リレーショナルデータベースの管理システム)です。世界で最も人気の高いシステムで、オープンソースで開発されています。MySQLデータベースサーバは、高速性と信頼性があり、Linux、UNIX、Windowsなどの複数のプラットフォームで動作することができます。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2019/05/13 08:01

編集2019/05/13 08:13

前提・実現したいこと

VB2015でMySQLのデータをコンボボックスに入れたい

該当のソースコード

VB

1 ''' <summary> 2 ''' ライン名に値を設定する 3 ''' </summary> 4 ''' <param name="cmbDCSIdentifyName">値を設定するコンボボックスコントロール</param> 5 Private Sub setComboBox(ByVal cmbDCSIdentifyName As ComboBox) 6 Dim readData As Table = New Table() 7 Dim task As SelectLineTask = New SelectLineTask(-1) 8 Dim Table As Table = WrappingStatus() 9 Dim connector As MySQLConnector 10 11 Try 12 connector = New MySQLConnector("localhost", 3306, "xxxx", "xxxx", "INTEGRATED_INSPECTION") 13 Using con As New MySqlConnection(connector.CreateConnection()) 14 con.Open() 15 con.BeginTransaction() 16 17 ' SQL文構築 18 Dim selectSQL As String = OpenSelectSQL() 19 20 ' SQLに変数をセット 21 Using cmd As MySqlCommand = New MySqlCommand(selectSQL, con) 22 task.PrepareParameter(cmd) 23 task.SetParameter(cmd, Table.rows.Item(0)) 24 25 ' 実行 26 Dim adapter As New MySqlDataAdapter(cmd) 27 28 Dim ds As DataSet = New DataSet 29 adapter.Fill(ds) 30 31 32 ' 取得したデータの格納 33 readData.InsertAll(ds) 34 35 Dim i As Integer = 0 36 While (readData.rows.Count <= i) 37 cmbDCSIdentifyName.Items.Add(readData) 38 i += 1 39 End While 40 End Using 41 End Using 42 Catch ex As MySqlException 43 44 Catch ex As IndexOutOfRangeException 45 End Try 46 End Sub

DBの値は
A1
B1
C1
D1
と仮定してください

試したこと

上記のコードの直前で

VB

1MsgBox(readData.rows.Count)

を実行すると"4"となるのでDBに接続は出来ていると思われます。

補足情報(FW/ツールのバージョンなど)

VS2015
MySQL8.0

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hihijiji

2019/05/13 08:08

コードが全然足りません。 adapter,readData,cmbDCSIdentifyName はそれぞれなんですか? コンボボックスとはどのようにデータ連携してますか? コードで示してください。
guest

回答2

0

ベストアンサー

While ループの部分は削って、かわりに cmbDCSIdentifyNameDataSource を設定したほうが良いかもしれません。

VB

1cmbDCSIdentifyName.DataSource = readData 2' Dim i As Integer = 0 3' While (readData.rows.Count <= i) 4' cmbDCSIdentifyName.Items.Add(readData) 5' i += 1 6' End While

さらに、Try の前か End Try の後に、以下を入れてみてください。

VB

1cmbDCSIdentifyName.ValueMember = "値が入っている列名(例:SHOHIN_ID)" '適切な列名を記述してください 2cmbDCSIdentifyName.DisplayMember = "表示する文字列が入っている列名(例:SHOHIN_NAME)" '適切な列名を記述してください

投稿2019/05/13 08:41

alg

総合スコア2019

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ループの所はこうかな?

VB

1For Each row As DataRow In readData 2 cmbDCSIdentifyName.Items.Add(row) 3Next row

DisplayMember とかも設定がひつようだけど

投稿2019/05/13 08:25

hihijiji

総合スコア4150

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問