データグリッドにデータベースの内容を表示

パニック 2007-07-31 23:10:00 No: 137063

恐れ入ります。現在.net、mysql、odbcを使ってデータグリッドにデータベースの内容を表示させようとしているのですが、
どうしてもわからなかったので投稿しました。
データベースを通さないでは、何とか出来たのですが、データベースを通そうとすると出来ません。
正式には、データベースへの通し方がわかりせん。

なんとか完成させたいので、どなたかご教授していただければ幸いです。
少し長くなってしまいますが、DBを通さないで出来たソースを載せます。
もしこのソースを少しいじるだけで出来るものならば、少しだけでもいいのでご教授ください。

Dim dataSet1 As New DataSet("SAMPLE")

Dim dataTable1 As DataTable = dataSet1.Tables.Add("SAMPLE")

Dim dc1 As DataColumn = dataTable1.Columns.Add("列1", GetType(String))
Dim dc2 As DataColumn = dataTable1.Columns.Add("列2", GetType(String))
Dim dc3 As DataColumn = dataTable1.Columns.Add("列3", GetType(Boolean))

Dim DGTS As New DataGridTableStyle
DGTS.MappingName = dataTable1.TableName

DataGrid1.TableStyles.Clear()
DataGrid1.TableStyles.Add(DGTS)

Dim style1 As New DataGridTextBoxColumn
Dim style2 As New DataGridTextBoxColumn
Dim style3 As New DataGridBoolColumn

style1.MappingName = dc1.ColumnName
style2.MappingName = dc2.ColumnName
style3.MappingName = dc3.ColumnName

style1.HeaderText = dc1.ColumnName
style2.HeaderText = dc2.ColumnName
style3.HeaderText = dc3.ColumnName

style3.AllowNull = False

DGTS.GridColumnStyles.Clear()
DGTS.GridColumnStyles.Add(style1)
DGTS.GridColumnStyles.Add(style2)
DGTS.GridColumnStyles.Add(style3)

dataTable1.Rows.Add(New [Object]() {1, "C", True})
dataTable1.Rows.Add(New [Object]() {2, "VB", False})
dataTable1.Rows.Add(New [Object]() {3, "C#", True})
dataTable1.Rows.Add(New [Object]() {4, "JAVA", False})
dataTable1.Rows.Add(New [Object]() {5, "Perl", True})

DataGrid1.SetDataBinding(dataSet1, dataTable1.TableName)

他人任せといったらそれに当てはまってしまうかもしれませんが、何日も出来ないまま先に進まないで、よろしくお願いします。

長文失礼しました。

かさのば 2007-08-01 18:33:50 No: 137064

ご参考までに、VB.NETからMySQLに接続してSQLを発行するTipsです。
http://hihi.sakura.ne.jp/VB/MySQL.html