PGlabo

« [ASP.NET|SQL Server] SQL Server から一件アイテム取得 | メイン | [ASP.NET|SQL Server] SQL Server からドロップダウンリストへ »

2005年10月06日

[ASP.NET] DataGrid に表示（3パターン）

'例１： データテーブル
 
        Dim DT As DataTable = New DataTable
        Dim DR As DataRow

        DT.Columns.Add(New DataColumn("項目", GetType(String)))

        DT.Columns.Add(New DataColumn("内容", GetType(String)))

        DT.Columns.Add(New DataColumn("備考", GetType(String)))

        DR = DT.NewRow

        DR(0) = "UserID" : DR(1) = User.Identity.Name : DR(2) = ""

        DT.Rows.Add(DR)

        DR = DT.NewRow

        DR(0) = "UserPass" : DR(1) = "******" : DR(2) = "パスワードは非表示にしています。"

        DT.Rows.Add(DR)

        DR = DT.NewRow

        DR(0) = "UserName" : DR(1) = DB_LName & " " & DB_FName & "　さん" : DR(2) = ""

        DT.Rows.Add(DR)

        DR = DT.NewRow

        DR(0) = "UserRole" : DR(1) = UserRole : DR(2) = ""

        DT.Rows.Add(DR)

        Dim DV As DataView = New DataView(DT)

        DataGrid1.DataSource = DV

        DataGrid1.DataBind()

'例２： データテーブル（短いコード）

        ' Create a table to store data for the DropDownList control.

        Dim DT As DataTable = New DataTable

        ' Define the columns of the table.

        DT.Columns.Add(New DataColumn("ColorTextField", GetType(String)))

        DT.Columns.Add(New DataColumn("ColorValueField", GetType(String)))

        ' Populate the table with sample values.

        DT.Rows.Add(CreateRow("White", "White", DT))

        DT.Rows.Add(CreateRow("Silver", "Silver", DT))

        DT.Rows.Add(CreateRow("Dark Gray", "DarkGray", DT))

        DT.Rows.Add(CreateRow("Khaki", "Khaki", DT))

        DT.Rows.Add(CreateRow("Dark Khaki", "DarkKhaki", DT))

        ' Create a DataView from the DataTable to act as the data source

        ' for the DropDownList control.

        Dim DV As DataView = New DataView(DT)

        DataGrid1.DataSource = DV

        DataGrid1.DataBind()

'例３： データセット（データアダプタ使用）

        Dim DA As New System.Data.SqlClient.SqlDataAdapter

        Dim DS As New DataSet

        DA.SelectCommand = Cmd       

        DS.Clear()

        DA.Fill(DS, "社員リスト")

        DataGrid1.DataSource = DS

        DataGrid1.DataBind()

2005 / 10 / 06