Q&A
DataTable に MySQL のデータを取得してきて、それを BindingSource 経由で DataGridView にバインドするのがはるかに簡単かつ適切だと思うのですが、そうしない特別な理由などがあるのでしょうか？
DatagridviewにMySQLからデータを取得し、表示する処理を作成しています。
発生している問題
MySQLからデータは取得できているのですが、一つのcellに全部のデータが表示されてしまっている状況です。
| no | a | b |
|---|---|---|
| no,a1,b1 |
これをデータごとにCellに表示したいです。
下記イメージ
| no | a | b |
|---|---|---|
| 1 | a1 | b1 |
| ### 該当のソースコード | ||
| ```VB | ||
| Dim objCommand As MySqlCommand = Gnl_objConnection.CreateCommand | ||
| objCommand.CommandText = "Select * From tbl_master" | ||
| Dim objDataReader As MySqlDataReader = objCommand.ExecuteReader | ||
| 'DatagridviewにMySQLのデータをセット | ||
| Call Datagridview1.Rows.Add(CStr(objDataReader.Item("No")) & " " & CStr(objDataReader.Item("a")) & " " & CStr(objDataReader.Item("b"))) | ||
| ``` | ||
| ### 補足情報（FW/ツールのバージョンなど） | ||
| .Net Framework4 | ||
| Microsoft Visual Studio2010 |
エラーメッセージなどはありません。
なんせ、最近触れたばかりで今の私の精一杯の情報の中でやっている状況です。
もし、違う方法があるのでしたら教えて欲しいです。
freemann さんの回答を見てください。分からなかったらその回答のコメント欄で質問してください。
回答1件
0
ベストアンサー
参考になるURLを載せておきます。
やることは一緒です。
SQLite用のを使うか、MySql用のを使うかの違いです。
投稿2020/03/16 07:06
総合スコア264
ご回答ありがとうございます。
頂いたものを参考に変更してみました。見えにくかったらすみません。
---------------------------------------------------------------------------------------------------------
Dim dt As DataTable = New DataTable()
'MySQLへの接続情報の設定をします。
Dim builder As MySqlConnectionStringBuilder = New MySqlConnectionStringBuilder()
'MySQLのファイルへのパスを設定します。
builder.DataSource = "Database=aa;Data Source=localhost;User Id=bb;Password=****"
'接続情報を使ってコネクションを生成します。
Using conn As New MySqlConnection(builder.ConnectionString)
'MySQL文とコネクションを設定します。
Using cmd As New MySqlCommand("SELECT * FROM tbl_master", conn)
'MySQLへの橋渡しのアダプターを設定します。
Dim sda As MySqlDataAdapter = New MySqlDataAdapter()
'SELECTコマンドを設定します。
sda.SelectCommand = cmd
'SELECTの実行及びフェッチ
sda.Fill(dt)
'グリッドに表示します。
Datagridview1.DataSource = dt
End Using
End Using
---------------------------------------------------------------------------------------------------------
上から三行目、「builder.DataSource = "Database=aa;Data Source=localhost;User Id=bb;Password=****"」この部分ですね。
'DataSourceは'MySql.Data.MySqlClient.MysqlConnectionStringBuilder'のメンバーではありません。
というエラーメッセージが表示されてしまいます。
以下のサイトに参考になる設定例が載っています。
Serverのようです。
https://docs.microsoft.com/ja-jp/azure/mysql/connect-csharp
ConnectionStringBuilderを使うのならServerプロパティにはlocalhost、UserIDにはbb、Passwordにはパスワードをそれぞれbuilderオブジェクトのプロパティに入れてください。
または、質問文には書かれていませんが、当初接続で成功していたやり方で接続の方を行ってみては？
おそらくConnectionクラスのConnectionStringへ文字列でセミコロンで区切りながら書いたのだと予想しますがそれでも良いです。
freemannさん返信ありがとうございます。
DataSourceをSerVerに変更したところ先程のエラーメッセージは消えました。
ですが、実行時「sda.Fill(dt)」の部分で'Unable to connect to any of the specified MySQL hosts'
のエラーメッセージが表示されてしまいました。
色々調べてみたのですが、ファイアーウォールは無効にしてあるので、それではじかれているとは考えられず、Sourceの部分をServerに変え「Server=localhost:3306」でやってみたのですがそれでも上手くいきませんでした。
Serverをlocalhostではなく、パソコン名ではどうでしょうか。
たまにそういうソフトもあるのです。
shinamiさん返信ありがとうございます。
当初の接続方法(ConnectionクラスのConnectionString)でやったところ接続できました。
ありがとうございます。
builder = New MySqlConnection
builder .ConnectionString = "Database=aa;Data Source=localhost;User Id=bb;Password=****"
Using conn As New MySqlConnection(builder .ConnectionString)
で接続できました。
欲しいものだけを待ってくる場合はどうしたらいいのでしょうか？
欲しいものだけとは、データですよね？SELECT文のWHERE句で絞り込みをするかと思います。
取得できました、ありがとうございます。
一応質問に対する解決はしたので、一旦閉じたいと思います。
新たに不具合がでてしまったんですが、このままコメントでやり取りをすると長々となってしまいそうなので、別に新たに質問します。
結果として下記修正コードです。
Dim dt As DataTable = New DataTable()
'Dim ds As New DataSet
builder = New MySqlConnection
builder .ConnectionString = "Database=aa;Data Source=localhost;User Id=bb;Password=****"
'接続情報を使ってコネクションを生成します。
Using conn As New MySqlConnection(builder .ConnectionString)
'MySQL文とコネクションを設定します。
Using cmd As New MySqlCommand("SELECT '取得したいデータ名称' FROM tbl_master,conn)
'MySQLへの橋渡しのアダプターを設定します。
Dim sda As MySqlDataAdapter = New MySqlDataAdapter()
''SELECTコマンドを設定します。
sda.SelectCommand = cmd
'SELECTの実行及びフェッチ
sda.Fill(dt)
'グリッドに表示します。
Datagridview1.DataSource = dt
End Using
End Using
あなたの回答
tips
プレビュー
