Question

How to use DataTable in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim table As New DataTable

        table.Columns.Add("ID", GetType(Integer))
        table.Columns.Add("Name", GetType(String))
        table.Columns.Add("Salary", GetType(Double))

        table.Rows.Add(123, "Ajax", 23492)
        table.Rows.Add(543, "Arrow", 31871)
        table.Rows.Add(876, "Axel", 16878)
        table.Rows.Add(342, "Everly", 46123)

        For Each row As DataRow In table.Rows
            Console.WriteLine("{0} : {1} : {2}", row.Field(Of Integer)(0),
                                                 row.Field(Of String)(1),
                                                 row.Field(Of Double)(2))
        Next

    End Sub

End Module

' run:
' 
' 123 : Ajax : 23492
' 543: Arrow :  31871
' 876: Axel :  16878
' 342: Everly :  46123

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim table As New DataTable

        table.Columns.Add("ID", GetType(Integer))
        table.Columns.Add("Name", GetType(String))
        table.Columns.Add("Salary", GetType(Double))

        table.Rows.Add(123, "Ajax", 23492)
        table.Rows.Add(543, "Arrow", 31871)
        table.Rows.Add(876, "Axel", 16878)
        table.Rows.Add(342, "Everly", 46123)

        Console.WriteLine(table.Rows(0).Field(Of Integer)(0))
        Console.WriteLine(table.Rows(1).Field(Of Integer)(0))
        Console.WriteLine(table.Rows(2).Field(Of Integer)(0))

        Console.WriteLine(table.Rows(0).Field(Of String)(1))
        Console.WriteLine(table.Rows(1).Field(Of String)(1))
        Console.WriteLine(table.Rows(2).Field(Of String)(1))

        Console.WriteLine(table.Rows(0).Field(Of Double)(2))
        Console.WriteLine(table.Rows(1).Field(Of Double)(2))
        Console.WriteLine(table.Rows(2).Field(Of Double)(2))

    End Sub

End Module

' run:
' 
' 123
' 543
' 876
' Ajax
' Arrow
' Axel
' 23492
' 31871
' 16878

 

70+ SQL courses for beginners and professionals