Creating a Dataset with Customized Columns and Rows

Category:

Database

Type:

Snippets

Difficulty:

Intermediate

Author:

Ravi Sankar

Version Compatibility: Visual Basic.NET

More information:

This last in a short series of Oracle and .NET snippets shows you how to create a dataset with custom columns and rows and then using that with a grid.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Dim m_dataset_D as dataset

Code:

m_dataset_D = New DataSet

Dim dtd As DataTable

dtd = New DataTable

m_dataset_D.Tables.Add(dtd)

Dim dc1d, dc2d, dc3d, dc4d, dc5d As DataColumn

dc1d = New DataColumn("TEST1")
        dc2d = New DataColumn("TEST2")
        dc3d = New DataColumn("TEST3")
        dc4d = New DataColumn("TEST4")
        dc5d = New DataColumn("TEST5")

m_dataset_D.Tables(0).Columns.Add(dc1d)
        m_dataset_D.Tables(0).Columns.Add(dc2d)
        m_dataset_D.Tables(0).Columns.Add(dc3d)
        m_dataset_D.Tables(0).Columns.Add(dc4d)
        m_dataset_D.Tables(0).Columns.Add(dc5d)

m_dataset_D.Tables(0).Columns(0).Caption = "Description"

m_dataset_D.Tables(0).Columns(1).Caption = "TEST 1"

m_dataset_D.Tables(0).Columns(2).Caption = "TEST2"
        m_dataset_D.Tables(0).Columns(3).Caption = "TEST3"
        m_dataset_D.Tables(0).Columns(4).Caption = "TEST4"

Dim dr1d, dr2d, dr3d, dr4d, dr5d, dr6d, dr7d, dr8d, dr9d, dr10d, dr11d, dr12d, dr13d, dr14d, dr15d As DataRow

dr1d = m_dataset_D.Tables(0).NewRow()

dr1d("Description") = "Test1"

dr2d = m_dataset_D.Tables(0).NewRow()

dr2d("Description") = "Medical Bill Review"

dr3d = m_dataset_D.Tables(0).NewRow()

dr3d("Description") = "Employee contractor"

dr4d = m_dataset_D.Tables(0).NewRow()

dr4d("Description") = "Legal"

m_dataset_D.Tables(0).Rows.Add(dr1d)
        m_dataset_D.Tables(0).Rows.Add(dr2d)
        m_dataset_D.Tables(0).Rows.Add(dr3d)
        m_dataset_D.Tables(0).Rows.Add(dr4d)
      .....

Distribution_grid.DataSource = m_dataset_D