列を作成してデータを追加する

サンプルコード

Sub Main()
  With DataGridView1
    .ColumnCount = 2
    .Columns(0).Name = "No"
    .Columns(1).Name = "Name"
    .Rows.Add(New String() {"1", "aaa"})
    .Rows.Add(New String() {"2", "bbb"})
    .Rows.Add(New String() {"3", "ccc"})
  End With
End Sub

データベースの内容を表示

サンプルコード

Imports System.Data
Imports System.Data.SqlClient

Sub Main()
  Dim conectStr As String = "<接続文字列の指定>"
  Dim QueryCommand As String = "Select * From 商品"
  Dim adpt As New SqlDataAdapter(QueryCommand, conectStr)
  Dim Ds As New DataSet("Sample")
  Dim Dt As New DataTable("商品")

  Ds.Tables.Add(Dt)
  adpt.Fill(Dt)
  DataGridView1.DataSource = Dt
End Sub

カスタム列を追加して表示する

サンプルコード

Imports System.Data
Imports System.Data.SqlClient

Sub Main()
  Dim conectStr As String = "<接続文字列の指定>"
  Dim QueryCommand As String = "Select * From 商品"
  Dim adpt As New SqlDataAdapter(QueryCommand, conectStr)
  Dim Ds As New DataSet("Sample")
  Dim Dt As New DataTable("商品")

  Ds.Tables.Add(Dt)
  adpt.Fill(Dt)
  Dim expandCol As DataColumn = Dt.Columns.Add("No:Name")
  expandCol.Expression = "id + ':' + Name"
  DataGridView1.DataSource = Dt
End Sub

SQLコマンドでデータベースからの取得時に連結させて表示させる方法もありますが、今回はデータベースから取得したデータを連結させて表示しました。

処理の順序は、データテーブルにデータを流し込む→列を追加→列に式を指定→データビューに表示です。


特定の内容のみを表示する

サンプルコード

Imports System.Data
Imports System.Data.SqlClient

Sub Main()
  Dim conectStr As String = "<接続文字列>"
  Dim QueryCommand As String = "Select * From 商品"
  Dim adpt As New SqlDataAdapter(QueryCommand, conectStr)
  Dim Ds As New DataSet("Sample")
  Dim Dt As New DataTable("商品")

  Ds.Tables.Add(Dt)
  adpt.Fill(Dt)

  'インスタンス時に条件の指定
  Dim dataView = New DataView(Dt, "単価 > 2500", "単価 Desc", DataViewRowState.CurrentRows)

  '若しくは一個づつ指定する
  Dim dataView = New DataView()
  With dataView
    .Table = Dt
    .RowFilter = "単価 > 2500"
    .Sort = "単価 Desc"
    .RowStateFilter = DataViewRowState.CurrentRows
  End With

  DataGridView1.DataSource = dataView
End Sub