###前提・実現したいこと
DataGridViewにテーブルレコードを表示したい。
###該当のソースコード
Imports System.Data.OleDb
Public Class Form1
End Class
Public Class FormSelectAllGrid
Inherits System.Windows.Forms.Form
'------------------------------------------------------------ ' tbl1から全レコードを取得しデータグリッドに表示する '------------------------------------------------------------ Private Sub FormSelectAllGrid_Load _ (ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim con As New OleDbConnection() Dim cmd As New OleDbCommand() Dim da As New OleDbDataAdapter() Dim ds As DataSet = New DataSet() Dim DataGrid As New DataGrid Dim datatable As New DataTable Try ' テーブルスタイルを生成する Dim dgStyle As DataGridTableStyle = _ New DataGridTableStyle() dgStyle.MappingName = "tbl1" ' 列スタイルを生成し、プロパティを設定する Dim col(2) As DataGridTextBoxColumn ' 1列目 col(0) = New DataGridTextBoxColumn() '表示名 col(0).HeaderText = "列1" col(0).MappingName = "列1 '幅 col(0).Width = 60 '中央揃え col(0).Alignment = HorizontalAlignment.Center ・ ・ ・ '30列目: col(29) = New DataGridTextBoxColumn() col(29).HeaderText = "列30" col(29).MappingName = "列30" col(29).Width = 150 col(29).Alignment = HorizontalAlignment.Left 'テーブルスタイルに追加する dgStyle.GridColumnStyles.AddRange(col) ' テーブルスタイルをグリッドに追加する DataGrid.TableStyles.Clear() DataGrid.TableStyles.Add(dgStyle) ' DB接続文字列の設定 con.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Application.StartupPath & "C:¥joho_2.mdb" ' コネクションの設定 cmd.Connection = con ' SQL文の設定 cmd.CommandText = _ "SELECT 列1,・・・・,列30 & _ "FROM tbl1 ORDER BY 列1" ' データを取得する da.SelectCommand = cmd ds.Clear() da.Fill(ds, "tbl1") ' データをバインドする DataGrid.SetDataBinding(ds, "tbl1")
Catch ex As Exception
' 例外が発生した時の処理
MessageBox.Show(ex.ToString, "例外発生")
End Try End Sub
End Class
###試したこと
http://park5.wakwak.com/~weblab/selectAllGrid.html
こちらのサンプルを参考にしました。
###補足情報(言語/FW/ツール等のバージョンなど)
Visual Studio2008
ADO.net
データソースはAccess
上記のコードでは、DataGridViewに表示されず
たくさん調べたのですが、どこが悪いのかすらわからず
行き詰まってしまいました。
大変恐縮ですが、どなたかご教授いただけないでしょうか。
宜しくお願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/09/14 05:10