VB.NetDatabase Topics

VB.Net - DataView

Code Sample

This sample get’s a set of data from the database, and then sort’s it by placing the data into a DataView and sorting that.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Shared Function GetColumnListDt(
        csId As Integer,
        tableName As String,
        Optional addBlank As Boolean = False,
        Optional sortParameter As String = "") _
    As System.Data.DataTable

    Dim sql As String _
        = "select * " _
        & "from " & tableName _
        & "where 1=0"

    Dim abo As TblConnectionString _
        = GetOneById(csId)

    Dim ds As DataSet _
        = si.Db.DsGet(sql, "", connectionString:=abo.ConnectionString)
    Dim dtIn As DataTable _
        = ds.Tables(0)
    Dim dtOut As New DataTable
    dtOut.Columns.Add("TableName",
                      System.Type.GetType("System.String"))
    For Each aColumn As DataColumn In dtIn.Columns
        'dtOut.Columns.Add(aColumn.ColumnName,
        '                    System.Type.GetType("System.String"))
        dtOut.Rows.Add(aColumn.ColumnName)
    Next

    Dim aDv As New DataView(dtOut)
    If sortParameter <> "" Then
        aDv.Sort = sortParameter
    End If

    Return aDv.ToTable

End Function