|
Public Module TestData
Public Function SampleDataSet() As DataSet
Dim dataSet As DataSet
dataSet = New DataSet()
dataSet.Tables.Add(Client())
dataSet.Tables.Add(WorkHours())
Return dataSet
End Function
Public Function Client() As DataTable
Dim dt As DataTable
dt = New DataTable()
dt.TableName = "Client"
dt.Columns.Add("name")
dt.Columns.Add("address")
dt.Columns.Add("city")
dt.Columns.Add("state")
dt.Columns.Add("zip")
dt.Columns.Add("phone")
Dim r As DataRow
r = dt.NewRow()
r(0) = "Some Customer"
r(1) = "234 Avenue Street"
r(2) = "Over There"
r(3) = "FL"
r(4) = "88888"
r(5) = "888.777.6666"
dt.Rows.Add(r)
Return dt
End Function
Public Function WorkHours() As DataTable
Dim dt As DataTable
dt = New DataTable()
dt.TableName = "WorkHours"
dt.Columns.Add("hours")
dt.Columns.Add("date")
dt.Columns.Add("description")
Dim r As DataRow
r = dt.NewRow()
r(0) = "1"
r(1) = "7/1/2008"
r(2) = "Project 1"
dt.Rows.Add(r)
r = dt.NewRow()
r(0) = "2"
r(1) = "7/2/2008"
r(2) = "Project 2"
dt.Rows.Add(r)
r = dt.NewRow()
r(0) = "3"
r(1) = "7/3/2008"
r(2) = "Project 3"
dt.Rows.Add(r)
r = dt.NewRow()
r(0) = "4"
r(1) = "7/4/2008"
r(2) = "Project 4"
dt.Rows.Add(r)
r = dt.NewRow()
r(0) = "5"
r(1) = "7/5/2008"
r(2) = "Project 5"
dt.Rows.Add(r)
Return dt
End Function
End Module
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
Dave is an independent consultant working in a variety of industries utilizing Microsoft .NET technologies.