Populate Data from data table : DataSet Read « Database ADO.net « VB.Net

1. VB.Net
2. Database ADO.net
3. DataSet Read

Populate Data from data table

 
Imports System
Imports System.Data
Imports System.Data.SqlClient

public class MainClass
   Shared Sub Main()
      Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
          "integrated security=sspi;database=MyDatabase")


      'Sql Query
      Dim sql As String = "SELECT * From Employee"

      Try
         ' Open Connection
         thisConnection.Open()
         Console.WriteLine("Connection Opened")

         ' Create Data Adapter
         Dim da As New SqlDataAdapter(sql, thisConnection)

         ' Create and fill Dataset
         Dim ds As New DataSet
         da.Fill(ds, "Employee")

         ' Get Data Table
         Dim dt As DataTable = ds.Tables("Employee")

         'Display Data
         For Each row As DataRow In dt.Rows
            For Each col As DataColumn In dt.Columns
               Console.WriteLine(row(col))
            Next
            Console.WriteLine("".PadLeft(20, "="))
         Next
      Catch ex As SqlException
         ' Display error
         Console.WriteLine("Error: " & ex.ToString())
      Finally
         ' Close Connection
         thisConnection.Close()
         Console.WriteLine("Connection Closed")
      End Try
   End Sub
End Class

           
         
  

Related examples in the same category